cQMSMIB ;INSTELLEN BACKUP ;cQMSMIB; [ 09/05/00  2:14 PM ]
 ;
T0 ;CONFIGURE BACKUP ;
T1 ;TYPE BACKUP\"1[] = tape (OS)   2[] = copy (M)   3[] = disk (OS)   4[] = Xcopy (M)           -[] = end program    (OS = M goes down,  M = M continues to run)"
T2 ;Backup Directory\"Enter Backup PC and sharename, fe. //firma_bu/drive_d"
T3 ;Backup Namespaces\"Enter Namespaces to backup, fe. /DATA-M/TEST/   [] = all"
T4 ;Which Directory\"Enter directory to backup, fe. D:/DataM"
 ;
1 D INI^cQ6 S CS=$ZU(5)
 S QT="",K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S (R,K)="^cLOG(CS,""BACKUP"")",FP=402 W @F
 F  S K=$Q(@K) Q:K=""  Q:$NA(@K,2)'=$NA(@R)  I $E($QS(K,3),1,3)'="LOG" W !?3,K," = ",@K,!
 ;
2 S R="TY\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1234-""[K&$L(K)\" D R0 G YZ:K="-"
 ;
3 K ^cLOG(CS,"BACKUP","AUTO")
 K ^cLOG(CS,"BACKUP","TYPE")
 I TY=1 D
 . S TYPE="TAPE",^cLOG(CS,"BACKUP","TYPE")=1
 I TY=2 D
 . S TYPE="DATA",BUDIR="\\Backup_pc\drive_d",BUVGS=""
 . S R="BUDIR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
 . F  Q:$E(BUDIR,$L(BUDIR))'="/"  S $E(BUDIR,$L(BUDIR))=""
 . S R="BUVGS\22\3\"_$P($T(@("T3"_QT)),U,2)_"\40\\(K?1.9(1""/"".E)1""/"")!(""-""[K)\" D R0 Q:K="-"
 . S BUVGS=$TR(BUVGS,"/","\")
 . S ^cLOG(CS,"BACKUP","AUTO",TYPE,"X")="S BUDIR="""_BUDIR_""",BUVGS="""_BUVGS_""""
 . S ^cLOG(CS,"BACKUP","TYPE")=2
 I TY=3 D
 . S TYPE="DISK",DIRFR="d:\data",BUDIR="\\Backup_pc\drive_d"
 . S R="DIRFR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
 . S DIRFR=$TR(DIRFR,"/","\")
 . S R="BUDIR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
 . S BUDIR=$TR(BUDIR,"/","\")
 . S ^cLOG(CS,"BACKUP","AUTO",TYPE,5)="Xcopy "_DIRFR_" "_BUDIR_" /s /v /y"
 . S ^cLOG(CS,"BACKUP","TYPE")=1
 I TY=4 D
 . S TYPE="DATA",BUDIR="\\Backup_pc\drive_d",BUVGS=""
 . S R="BUDIR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
 . F  Q:$E(BUDIR,$L(BUDIR))'="/"  S $E(BUDIR,$L(BUDIR))=""
 . S R="DIRFR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
 . F  Q:$E(DIRFR,$L(DIRFR))'="/"  S $E(DIRFR,$L(DIRFR))=""
 . S ^cLOG(CS,"BACKUP","AUTO",TYPE,"X")="S BUDIR="""_BUDIR_""",DIRFR="""_DIRFR_""""
 . S ^cLOG(CS,"BACKUP","TYPE")=4
 S ^cLOG(CS,"BACKUP","AUTO")=TYPE
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
ZZ ; 14.02.01 - 16 u 10 * Cache-r2.0.2