code:

---

 BREAK ON 
 CLS

 $srvlist=@scriptdir+'\SRVLST.INI'
 $srvMrk=@scriptdir+'\SRVMRK.INI'

 :start
 ?'starting process'
 enumini($srvlist)
 ?'Process complete'
 SLEEP 1
 GOTO start

 FUNCTION ENUMINI($fl)
       DIM $sections,$keys,$sectionkey,$sectionentry,$rc,$resource,$i
       $sections=split(readprofilestring($fl,'',''),chr(10))
       FOR EACH $sectionentry IN $sections
             IF $sectionentry <>''
                   ;?'Section '+$sectionentry
                   $keys=split(readprofilestring($fl,$sectionentry,''),chr(10))
                   FOR EACH $sectionkey IN $keys
                         IF $sectionkey <>''
                               ;? 'Key "'+$sectionkey+'" = "'+readprofilestring($fl,$sectionentry,$sectionkey)+'"'
                               $resource=readprofilestring($fl,$sectionentry,$sectionkey)
                               IF Ping($resource,0,12,5000) ;pings for max. 60 seconds
                                          $resource+' is running..'?
                                     ;Clear out the marker file
                                     $rc=writeprofilestring($srvMrk,'SERVERS',$resource,'')
                               ELSE
                                     FOR $I=1 to 13
                                     $resource+' server not available'?
                                     ;Create a Marker each time that it fails
                                     $rc=writeprofilestring($srvMrk,'SERVERS',$resource+$i,@time)
                                     NEXT
                                     ;if it hits 60 minutes, page
                                     IF $I=12
                                       MAILER($resource)
                                     ENDIF
                               ENDIF
                         ENDIF
                   NEXT
             ENDIF
       NEXT
 ENDFUNCTION

FUNCTION MAILER($resource)
$mailhost='smtp.company.com'
$recipient='kdyer@@company.com'
$mailLine=@ldrive+'Programs\blat.exe - -to $recipient -server $mailhost -subject $resource+" server not available" '
$mailLine=$mailLine+'-body $resource+" server not available for 60 minutes" -f $recipient -q'
SHELL $mailLine
ENDFUNCTION

; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000012 > PING()

---

code:

---

1=SERVER1
2=SERVER2
3=SERVER3

---

code:

---

[SERVER1]
LastCheck=2003/10/10 10:10:10am
LastDown=2003/10/10 10:10:10am

---