cQCC ;Check caretaker ;cQCC; [ 08/22/01  11:52 AM ]
 ;
 D MASTER^cQ5 L +^cLOG(cs,"CTK0","Watchdog"):1 E  G YZ    ;Watchdog already running
 D M("Watchdog on "_$ZU(110)_" started!"," ")
 ;
 F  D
 . L +^cLOG(cs,"CTK0","JOB",boot):300 S T=$T
 . I T D M("Caretaker "_$ZU(110)_" is down!","I will restart it immediately !") J ^cQCTK1 H 120
 . I 'T,boot="TBAC"!(boot="TBBC") D
 .. S H=+$P($H,",",2)
 .. ; Watchdog reporting between 11:24 and 11:30  and  15:24 and 15:30
 .. I ((H>(11.4*3600))&(H<(11.5*3600)))!((H>(15.4*3600))&(H<(15.5*3600))) D
 ... D M("Watchdog on "_$ZU(110)_" is still alive!","Caretaker is still running !")
 ;
YZ Q
 ;
 ;
M(M,N) S M=$G(M),N(1)=$G(N)
 S SMTP="123.123.1.29",FROM="system@datam.be",TO="support@datam.be"
 I $E($ZU(110),1,2)="TB" S FROM="ip@terbeke.be",DTO="support@data-m.be"
 S DFROM=$ZU(110)_" <"_FROM_">",DTO=TO
 S MSG=$$EMAIL^cA350(SMTP,FROM,TO,,,M,.N,DFROM,DTO)
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8