cQLOGBUV	;CHECK WINDOWS BACKUPLOG ;cQLOGBUV;  ; Compiled March 5, 2009 12:13:23
	G 1
	;
date	;date
	N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
	F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
	S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
datez	Q
time	;time
	N %J,%R S QT=$G(QT),%R=$P($H,",",2)\60,%J=%R\60
	S TD=$J(%J,2)_$P(" u ; h ; h ",";",$S(QT="F":2,QT="E":3,1:1))_(%R#60\10)_(%R#10)
timez	Q
doubleq(X)	;Double quotes in string
	N Y S Y=0 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
doubleqz	K Y Q X
	;
T0	;CHECK WINDOWS BACKUPLOG ;
T1	;Backup succesvol! Beëindigd: ;
T2	;Geen backup-logfile gevonden!;
T3	;Geen backup gestart op vorige werkdag!;
T4	;Backup is nog altijd bezig! Gestart: ;
T5	;Backup heeft abnormale duur: ;
	;
T0F	;CHECK WINDOWS BACKUPLOG ;
T1F	;Copie de sauvegarde succedé! Fini: ;
T2F	;Pas de journal de copie de sauvegarde trouvé!;
T3F	;Pas de copie de sauvegarde le jour avant!;
T4F	;Copie de sauvegarde n'a pas encore fini! Démarré: ;
T5F	;Copie de sauvegarde a une durée abnormale: ;
	;
T0E	;CHECK WINDOWS BACKUPLOG ;
T1E	;Backup successfull! Ended: ;
T2E	;No backup-logfile found!;
T3E	;No backup started on last working day!;
TE4	;Backup is still busy! Started: ;
T5E	;Backup has abnormal duration: ;
	;
T0D	;CHECK WINDOWS BACKUPLOG ;
T1D	;Backup successfull! Ended: ;
T2D	;No backup-logfile found!;
T3D	;No backup started on last working day!;
TED	;Backup is still busy! Started: ;
T5D	;Backup has abnormal duration: ;
	;
1	D INI^cQ6 S QU="SU" I $G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))!$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U"))) G YZ
	S REG=$$REGION^cQDATIM
	S TYPE=+$G(^cLOG($ZU(5),"BACKUP","LOGBOEK","TYPE")) I TYPE'=3 G YZ
	S SOFT=+$G(^cLOG($ZU(5),"BACKUP","LOGBOEK","TYPE",TYPE)) I 'SOFT G YZ
	;
2	K L S L=$G(^cLOG($ZU(5),"BACKUP","AUTO")) I '$L(L) S L="TAPE"
	M L=^cLOG(0,"BACKUP","AUTO",L)
	I $D(^cLOG($ZU(5),"BACKUP","AUTO",L)) M L=^cLOG($ZU(5),"BACKUP","AUTO",L)
	X:$D(L("X")) L("X") K L("X")
	S BUDIR=$G(BUDIR),BUVGS=$G(BUVGS) D GDB^cQAUTOBU(BUDIR,BUVGS)
	I $ZU(5)=$G(^cLOG($ZU(5),"SYSTEM","MASTER"),$ZCVT($ZU(110),"U")),$G(^cLOG($ZU(5),"SYSTEM","MASTER"),$ZCVT($ZU(110),"U"))'=$G(^cLOG($ZU(5),"SYSTEM","SLAVE"),$G(^cLOG($ZU(5),"SYSTEM","MASTER"),$ZCVT($ZU(110),"U"))) D
	. S cs=$ZCONVERT($ZU(5),"L"),I=""
	. F  S I=$O(DBS(I)) Q:I=""  I DBS(I)[$ZU(5) D
	.. S DBS(I)=$P(DBS(I),$ZU(5))_$ZCONVERT($G(^cLOG($ZU(5),"SYSTEM","SLAVE"),$G(^cLOG($ZU(5),"SYSTEM","MASTER"),$ZCVT($ZU(110),"U"))),"L")_$P(DBS(I),$ZU(5),2,$L(DBS(I),$ZU(5)))
	;
3	K BUV,A S (BUSD,BUST,BUED,BUET)=0
	F I=1:1:AD S BUV($P(DBS(I),D,1,$L(DBS(I),D)-1),$P(DBS(I),D,$L(DBS(I),D)))=""
	S DIR=$G(^cLOG($ZU(5),"BACKUP","TYPE",TYPE,"PATH")) I '$L(DIR) G 4
	S FILE=$G(^cLOG($ZU(5),"BACKUP","TYPE",TYPE,"FILE")) I '$L(FILE) G 4
	I $E(DIR,$L(DIR))="\" S DIR=$E(DIR,1,$L(DIR)-1)
	S X=$ZOS(12,DIR_"\"_FILE,0) G YZ:X<0!($P(X,"^")="") D A($$DCF(X))
	I FILE["*" F  S X=$ZOS(13,X) Q:X<0!($P(X,"^")="")  D A($$DCF(X))
	S (X,Y,Z)="",D="\",%Q=0,%DEV=$$HFS^cQ9 I '%DEV S %Q=1 G 4
	F  S X=$O(A(X),-1) Q:X=""  D  Q
	. F  S Y=$O(A(X,Y),-1) Q:Y=""  D  Q
	.. F  S Z=$O(A(X,Y,Z),-1) Q:Z=""  D  Q
	... O %DEV:(DIR_"\"_Z:"R") U %DEV I $ZA<0 C %DEV Q
	... I $ZCONVERT(Z,"L")?1"bex"2N1".txt" D  Q
	.... F  U %DEV R A Q:$ZC<0  S A=$ZCONVERT(A,"L") I A["backup completed" D  Q
	..... S %DS=$TR("45.12.7890","1234567890",$P(A(X,Y,Z),"|",3))
	... I $ZCONVERT(Z,"L")?1"bex"2N1".log" D  Q
	.... F  U %DEV R A Q:$ZC<0  S A=$ZCONVERT(A,"L"),K="",SW=0 D
	..... I A["backup started on" D  Q
	...... S A=$P(A,"backup started on ",2),%TS=$P(A," at ",2),%TS=$P(%TS,":",1,2)_$P(%TS," ",2),%TS=$TR(%TS,"apm. ","AP")
	...... S %DS=$TR($P(A," at "),"/","-"),AD=$P(%DS,"-",2),AM=$P(%DS,"-"),AJ=$P(%DS,"-",3),AJ=$S(AJ>50:19,1:20)_AJ
	...... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	...... S BUSDR=%DS,BUSTR=%TS D ^%DI,^%TI S BUSD=+$G(%DN),BUST=+$G(%TN)
	...... F  U %DEV R A Q:$ZC<0  S A=$ZCONVERT(A,"L") D
	....... F  S K=$O(BUV(K)) Q:K=""  I A[K S (B,L)="" D  Q
	........ F  U %DEV R A Q:$ZC<0  S A=$ZCONVERT(A,"L") Q:A["directory"  S B=B_A
	........ F  S L=$O(BUV(K,L)) Q:L=""  S SW=B[L
	........ I SW F  U %DEV R A Q:$ZC<0  S A=$ZCONVERT(A,"L") I A["backup completed on" D
	......... S A=$P(A,"backup completed on ",2),%TS=$P(A," at ",2),%TS=$P(%TS,":",1,2)_$P(%TS," ",2),%TS=$TR(%TS,"apm. ","AP")
	......... S %DS=$TR($P(A," at "),"/","-"),AD=$P(%DS,"-",2),AM=$P(%DS,"-"),AJ=$P(%DS,"-",3),AJ=$S(AJ>50:19,1:20)_AJ
	......... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	......... S BUEDR=%DS,BUETR=%TS D ^%DI,^%TI S BUED=+$G(%DN),BUET=+$G(%TN)
	... I $ZCONVERT(Z,"L")?1.E1".txt" D  Q
	.... F  U %DEV R A Q:$ZC<0  I $ZCONVERT(A,"L")["backup job started" D
	..... S A=$P(A," - ",2),%TS=$P(A," ",2),%DS=$TR($P(A," "),"/","-")
	..... S AD=$P(%DS,"-",2),AM=$P(%DS,"-"),AJ=$P(%DS,"-",3),AJ=$S(AJ>50:19,1:20)_AJ
	..... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	..... S BUSDR=%DS,BUSTR=%TS D ^%DI,^%TI S BUSD=+$G(%DN),BUST=+$G(%TN)
	..... F  U %DEV R A Q:$ZC<0  I $ZCONVERT(A,"L")["backup job ended" D  Q
	...... S A=$P(A," - ",2),%TS=$P(A," ",2),%DS=$TR($P(A," "),"/","-")
	...... S AD=$P(%DS,"-",2),AM=$P(%DS,"-"),AJ=$P(%DS,"-",3),AJ=$S(AJ>50:19,1:20)_AJ
	...... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	...... S BUEDR=%DS,BUETR=%TS D ^%DI,^%TI S BUED=+$G(%DN),BUET=+$G(%TN)
	C %DEV
	;
4	D AVER^cQLBUV
	;
5	S BUTI=BUED-BUSD*86400+BUET-BUST\60
	S ERR=0,R(1)=$P($T(@("T1"_QT)),";",2)_$G(BUEDR)_" "_$G(BUETR)_" "_BUTI_" min."
	I BUSD=0 D  G 6 ;logboek?
	. S ERR=1,R(1)=$P($T(@("T2"_QT)),";",2)
	I (BUSD#7)'=($TR($H#7,"0123456","6011145")) D  G 6 ;vorige werkdag?
	. S ERR=1,R(1)=$P($T(@("T3"_QT)),";",2)
	I BUED=0 D  G 6 ;nog bezig?
	. S ERR=1,R(1)=$P($T(@("T4"_QT)),";",2)_$G(BUSDR)_" "_$G(BUSTR)
	I BUTI<(100-DELTA/100*AVER)!(BUTI>(100+DELTA/100*AVER)) D  G 6 ;duur ??
	. S ERR=1,R(1)=$P($T(@("T5"_QT)),";",2)_BUTI_" min. ("_AVER_" min.)"
	;
6	S PG=$T(+0),PN=$P($T(@("T0"_QT)),";",2) D BU^cQALERT(.R,ERR,PG,PN)
	;
YZ	Q
	;
DF(R)	I REG="dd-mm-yy" Q $TR("12.34.5678","12.34.5678",R)
	I REG="dd-yy-mm" Q $TR("12.5678.34","12.34.5678",R)
	I REG="mm-dd-yy" Q $TR("34.12.5678","12.34.5678",R)
	I REG="mm-yy-dd" Q $TR("34.5678.12","12.34.5678",R)
	I REG="yy-dd-mm" Q $TR("5678.12.34","12.34.5678",R)
	I REG="yy-mm-dd" Q $TR("5678.34.12","12.34.5678",R)
DFZ	Q R
	;
A(K)	S K=$G(K,"") Q:K=""
	S %DS=$P(K,"|",3) D ^%DI S %TS=$P(K,"|",4) D ^%TI
	S A(%DN,%TN,$P(K,"|"))=K
AZ	Q
	;
DCF(%Y)	N %A,%B,%C,%D,%I,%J,%K
	S %I=$P(%Y,"^"),%J=$P(%Y,"^",2,999) K %Z
	S %K=$ZASCII(%J,22) I $ZB(%K,16,1) Q ""
	S %A=$ZASCII(%J,27),%B=$ZASCII(%J,28),%C=$ZASCII(%J,29),%D=$ZASCII(%J,30)
	S %Z(1)=%I,%Z(2)=%A+(%B*256)+(%C*256*256)+(%D*256*256*256)
	S %A=$ZASCII(%J,25),%B=$ZASCII(%J,26),%C=256*%B+%A,%D=%C#32,%C=%C\32,%E=%C#16,%C=%C\16,%C=%C+1980
	S %Z(3)=$E("00",1,2-$L(%E))_%E_"-"_$E("00",1,2-$L(%D))_%D_"-"_%C
	S %A=$ZASCII(%J,23),%B=$ZASCII(%J,24),%C=%B*256+%A,%D=%C#32*2,%C=%C\32,%E=%C#64,%C=%C\64,%A=%C\12,%B=%C#12 S:%A %B=%B+12
	S %Z(4)=%B_":"_$E("00",1,2-$L(%E))_%E
	S (%I,%Z)="" F  S %I=$O(%Z(%I)) Q:%I=""  S %Z=%Z_%Z(%I)_"|"
DCFZ	Q %Z
	;
MS	U 0 S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R *K
MSZ	Q
	;
BG	D 1,LOG^cQCTK1 Q
	;
ZZ	; 05.03.2009 - 12:13 * Cache-r6.1.0