cQLBV ;Logboek veiligheidskopie ;cQLBV; [ 07/06/01  2:56 PM ]
 G YZ
 ;
T0 ;Logboek veiligheidskopie ;
 ;
T0F ;Journal de copie de sauvegarde ;
 ;
G ;Get Windows logbook into ^cLOG(cs,"BACKUP","LOGBOEK")
 S $ZT="ERR^"_$T(+0)
 S REG=$$REGION^cQDATIM
 D MASTER^cQ5 I workst!client G YZ
 S TYPE=+$G(^cLOG(cs,"BACKUP","LOGBOEK","TYPE")) I TYPE'=3 G YZ
 S SOFT=+$G(^cLOG(cs,"BACKUP","LOGBOEK","TYPE",TYPE)) I 'SOFT G YZ
 ;
 K L S L=$G(^cLOG(cs,"BACKUP","AUTO")) I '$L(L) S L="TAPE"
 M L=^cLOG(0,"BACKUP","AUTO",L)
 I $D(^cLOG(cs,"BACKUP","AUTO",L)) M L=^cLOG(cs,"BACKUP","AUTO",L)
 X:$D(L("X")) L("X") K L("X")
 K L S BUDIR=$G(BUDIR),BUVGS=$G(BUVGS) D GDB^cQAUTOBU(.L)
 D AVER
 ;
 K BUV,A
 S DIR=$G(^cLOG(cs,"BACKUP","LOGBOEK","TYPE",TYPE,SOFT,"PATH")) I '$L(DIR) G YZ
 S FILE=$G(^cLOG(cs,"BACKUP","LOGBOEK","TYPE",TYPE,SOFT,"FILE")) I '$L(FILE) G YZ
 I $E(DIR,$L(DIR))="\" S DIR=$E(DIR,1,$L(DIR)-1)
 S X=$ZU(140,4,DIR_"\"_FILE) G YZ:X'=0  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 $$LCASE(Z)?1"bex"2N1".txt" D  Q
 .... F  S K=$$RF^cQFILE(LF,.A) Q:K  S A=$$LCASE(A) 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 $$LCASE(Z)?1"bex"2N1".log" D  Q
 .... F  S K=$$RF^cQFILE(LF,.A) Q:K  S A=$$LCASE(A),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=$$LCASE(A) 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=$$LCASE(A) Q:A[D  S B=B_A
 ........ F  S ER=$$RF^cQFILE(LF,.A) Q:ER  S A=$$LCASE(A) 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=$$LCASE(A) 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 $$LCASE(Z)?1.E1".txt" D  Q
 .... F  S ER=$$RF^cQFILE(LF,.A) Q:ER  I $$LCASE(A)["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 $$LCASE(A)["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(cs,""BACKUP"",""LOGBOEK"",TYPE)",40)
 S ER=$$CF^cQFILE(LF)
 ;
YZ Q
 ;
AVER S AVER=0,DELTA=75,(AL,I,J)=0
 S I=$O(^cLOG(cs,"BACKUP","LOGBOEK",TYPE,I)) Q:I=""  D
 . F  S J=$O(^cLOG(cs,"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(cs,"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(cs,"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 MD,%DD,%DM,%DN,%DX,%DY,%TN,%TS
 S MD=$ZU(140,2,K),%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 A(%DN,%TN,FILE)=FILE_"|"_$ZU(140,1,K)_"|"_%DX_"|"_%TS
AZ Q
 ;
LCASE(X) ;Convert string to lowercase
 Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;
MS U 0 S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R *K
MSZ Q
 ;
ERR W !,$ZE,! Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8