cQLBV	;Logboek veiligheidskopie ;cQLBV;
	Q
	;
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
	;
G	;Get Windows logbook into ^cLOG($ZU( 5 ),"BACKUP","LOGBOEK")
	S $ZT="ERR^"_$T(+0)
	S REG=$$REGION^cQDATIM
	I $G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))!$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U"))) G YZ
	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
	;
	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") F I="BUDIR","DIRFR","JRNL" I $D(L(I)) S @I=L(I)
	K L S BUDIR=$G(BUDIR),BUVGS=$G(BUVGS) D GDB^cQAUTOBU(.L)
	D AVER
	;
	K BUV,A
	S DIR=$G(^cLOG($ZU(5),"BACKUP","LOGBOEK","TYPE",TYPE,SOFT,"PATH")) I '$L(DIR) G YZ
	S FILE=$G(^cLOG($ZU(5),"BACKUP","LOGBOEK","TYPE",TYPE,SOFT,"FILE")) I '$L(FILE) G YZ
	I $E(DIR,$L(DIR))="\" S DIR=$E(DIR,1,$L(DIR)-1)
	I $$TST^cQFILE(DIR_"\"_FILE) G YZ
	D A(DIR_"\"_FILE)
	S (X,Y,Z)="",D="\",%Q=0
	F  S X=$O(A(X)) Q:X=""  D
	. F  S Y=$O(A(X,Y)) Q:Y=""  D
	.. F  S Z=$O(A(X,Y,Z)) Q:Z=""  S $ZT="" D
	... S LF=DIR_"\"_Z S %Q=$$OR^cQFILE(LF) I %Q Q
	... I $ZCONVERT(Z,"L")?1"bex"2N1".txt" D  Q
	.... F  S K=$$RF^cQFILE(LF,.A) Q:K  S A=$ZCONVERT(A,"L") I A["backup completed" D  Q
	..... S %DS=$P(A(X,Y,Z),"|",3) D L(X,Y,%DS,$P(A(X,Y,Z),"|",4))
	... I $ZCONVERT(Z,"L")?1"bex"2N1".log" D  Q
	.... F  S K=$$RF^cQFILE(LF,.A) Q:K  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,"-"),AM=$P(%DS,"-",2),AJ=$P(%DS,"-",3)
	...... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	...... D INT^%DI,INT^%TI S BUSD=+$G(%DN),BUST=+$G(%TN)
	...... F  S ER=$$RF^cQFILE(LF,.A) Q:ER  S A=$ZCONVERT(A,"L") D
	....... F  S K=$O(BUV(K)) Q:K=""  I A[K S (B,L)="" D  Q
	........ F  S ER=$$RF^cQFILE(LF,.A) Q:ER  S A=$ZCONVERT(A,"L") Q:A[D  S B=B_A
	........ F  S ER=$$RF^cQFILE(LF,.A) Q:ER  S A=$ZCONVERT(A,"L") Q:A[D  S B=B_A
	........ F  S L=$O(BUV(K,L)) Q:L=""  S SW=B[L
	........ I SW F  S ER=$$RF^cQFILE(LF,.A) Q:ER  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)
	......... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	......... D INT^%DI,INT^%TI S BUED=+$G(%DN),BUET=+$G(%TN)
	......... S %DS=$P(A(X,Y,Z),"|",3) I '$$OK Q
	......... D L(X,Y,%DS,$P(A(X,Y,Z),"|",4),BUTI)
	... I $ZCONVERT(Z,"L")?1.E1".txt" D  Q
	.... F  S ER=$$RF^cQFILE(LF,.A) Q:ER  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,"-"),AM=$P(%DS,"-",2),AJ=$P(%DS,"-",3)
	..... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	..... S BUSDR=%DS,BUSTR=%TS D INT^%DI,INT^%TI S BUSD=+$G(%DN),BUST=+$G(%TN)
	..... F  S ER=$$RF^cQFILE(LF,.A) Q:ER  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,"-"),AM=$P(%DS,"-",2),AJ=$P(%DS,"-",3)
	...... S %DS=$E("00",1,2-$L(AM))_AM_"-"_$E("00",1,2-$L(AD))_AD_"-"_AJ
	...... S BUEDR=%DS,BUETR=%TS D INT^%DI,INT^%TI S BUED=+$G(%DN),BUET=+$G(%TN)
	...... I '$$OK Q
	...... I %TS["AM",$P(%TS,":")=12 S $P(%TS,":",1)="0"
	...... I %TS["PM",$P(%TS,":")<12 S $P(%TS,":")=$P(%TS,":")+12
	...... S %TS=$P(%TS,":",1,2),X=$$DF(%DS) D L(BUED,BUET,X,%TS,BUTI)
	D CLEAN^cQ13("^cLOG("""_$ZU(5)_""",""BACKUP"",""LOGBOEK"",TYPE)",40)
	S ER=$$CF^cQFILE(LF)
	;
YZ	Q
	;
AVER	S AVER=0,(AL,I,J)=0,DELTA=$G(^cLOG($ZU(5),"BACKUP","DELTA"),25)
	F  S I=$O(^cLOG($ZU(5),"BACKUP","LOGBOEK",TYPE,I)) Q:I=""  D
	. F  S J=$O(^cLOG($ZU(5),"BACKUP","LOGBOEK",TYPE,I,J)) Q:J=""  S K=^(J) I $E(K)="B" S AVER=AVER+$P(K,D,6),AL=AL+1
	I AVER S AVER=AVER\AL
	I 'AVER S AVER=+$P($G(^cLOG($ZU(5),"BACKUP","TIME",TYPE)),D,3)
AVERZ	Q
	;
OK()	S BUTI=BUED-BUSD*86400+BUET-BUST\60,OK=0
	I BUSD=0!(BUST=0) G OKZ
	I BUED=0!(BUET=0) G OKZ
	I AVER,BUTI<(100-DELTA/100*AVER)!(BUTI>(100+DELTA/100*AVER)) G OKZ
	S OK=1
OKZ	Q OK
	;
L(X,Y,XX,YY,Z)	;X=dag($H),Y=uur($H),XX=dag(readable),YY=uur(readable),Z=duur
	S ^cLOG($ZU(5),"BACKUP","LOGBOEK",TYPE,X,Y)="BW\"_(X#7)_D_XX_D_YY_"\AUTO\"_Z
	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=""  N ER,MD,SF,%DD,%DM,%DN,%DX,%DY,%TN,%TS
	S ER=$$FMD^cQFILE(K,.MD) S:ER MD=0 S %DN=+MD D 200^%DO S %DX=$TR(%DX,"/","-")
	S %TN=$P(MD,",",2) D 300^%TO S %TS=$E(%TS,1,2)_":"_$E(%TS,3,4)
	S ER=$$FS^cQFILE(K,.SF) I ER S SF=0
	S A(%DN,%TN,FILE)=FILE_"|"_SF_"|"_%DX_"|"_%TS
AZ	Q
	;
MS	U 0 S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R *K
MSZ	Q
	;
ERR	S %=$ZE D ^cA400 Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9