cQIB	;Configure backup ;cQIB;
	;
T0	;Configure backup ;
T1	;Type backup\"1[] = tape   2[] = copy   3[] = disk (OS)   4[] = Xcopy   5[] = periodiciteit   6[] = afwijking   9[] = backupdirs   -[] = end program"
T2	;Backup Directory;Enter Backup PC and sharename   +[] = ;
T3	;Backup Namespaces;Enter Namespaces to backup, fe. /DATAM/TEST/   [] = all   .[] = ;
T4	;Which Directory;Enter directory to backup   +[] = ;
T5	;Backup Journalspaces\"[] = yes   0[] = no"
T6	;Periodiciteit\"2[] = dagelijks/gisteren   7[] = op werkdagen   [] = dagelijks/vandaag (standaard)";
T7	;Afwijking backupduur tov gemiddelde duur\"xxx[] = percentage afwijking   [] = standaard (50%)";
T8	;BackupDir op backuppc;[] = geen  +[] = ;
T9	;Logfiles;[] = geen   +[] = ;
	;
1	D INI^cQ6 S CS=$ZU(5)
	S QT="",K=$P($T(+1),";",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=302 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,!
	S (R,K)="^cLOG(CS,""BACKUP"",""PC"")",FP=1502 W @F
	F  S K=$Q(@K) Q:K=""  Q:$NA(@K,2)'=$NA(@R)  W !?3,K," = ",@K,!
	S BUDIRDEF="E:/backup/",DIRFRDEF="D:/DataM/"
	S PCDIRDEF="//backuppc/backup/",PCLOGDEF="//backuppc/c$/Program Files/UltraBac Software/UltraBac8/Logs/"
	;
2	S R="TY\22\3\"_$P($T(T1),U,2)_"\1\\""1234569-""[K&$L(K)\" D R0 G YZ:K="-"
	;
3	I TY=1 D
	. K ^cLOG(CS,"BACKUP","AUTO")
	. S TYPE="TAPE",^cLOG(CS,"BACKUP","TYPE")=1
	. S TYPE="DISK"
	I TY=2 D
	. S TYPE="DATA"
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"X")) X ^("X")
	. E  S BUDIR=BUDIRDEF,BUVGS=""
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"BUDIR")) S BUDIR=^("BUDIR")
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"BUVGS")) S BUVGS=^("BUVGS")
	. S R="BUDIR\22\3\"_$P($T(T2),U,2)_"\56\\$L(K)\" D R0 Q:K="-"
	. S:K="+" K=BUDIRDEF S:K="." K=BUDIR S BUDIR=K
	. F  Q:$E(BUDIR,$L(BUDIR))'="/"  S $E(BUDIR,$L(BUDIR))=""
	. S R="K\22\3\"_$P($T(T3),U,2)_"\S3\40\\(K?1.99(1""/"".E)1""/"")!(""-,.""[K)\" D R0 Q:K="-"
	. S:K="." K=BUVGS S BUVGS=K
	. S BUVGS=$TR(BUVGS,"/","\")
	. K ^cLOG(CS,"BACKUP","AUTO")
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"X")="S BUDIR="""_BUDIR_""",BUVGS="""_BUVGS_""""
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"BUDIR")=BUDIR
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"BUVGS")=BUVGS
	. S ^cLOG(CS,"BACKUP","TYPE")=2
	. S ^cLOG(CS,"BACKUP","AUTO")=TYPE
	I TY=3 D
	. S TYPE="DISK"
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,5)) S DIRFR=$P(^(5)," ",2),BUDIR=$P(^(5)," ",3)
	. E  S DIRFR=DIRFRDEF,BUDIR=BUDIRDEF
	. S R="K\22\3\"_$P($T(T4),U,2)_"\S4\56\\$L(K)\" D R0 Q:K="-"
	. S:K="+" K=DIRFRDEF S:K="." K=DIRFR S DIRFR=K
	. S DIRFR=$TR(DIRFR,"/","\")
	. S R="BUDIR\22\3\"_$P($T(T2),U,2)_"\S2\56\\$L(K)\" D R0 Q:K="-"
	. S:K="+" K=BUDIRDEF S:K="." K=BUDIR S BUDIR=K
	. S BUDIR=$TR(BUDIR,"/","\")
	. K ^cLOG(CS,"BACKUP","AUTO")
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,5)="Xcopy "_DIRFR_" "_BUDIR_" /s /v /y"
	. S ^cLOG(CS,"BACKUP","TYPE")=1
	. S ^cLOG(CS,"BACKUP","AUTO")=TYPE
	I TY=4 D
	. S TYPE="DATA"
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"X")) X ^("X")
	. E  S BUDIR=BUDIRDEF,DIRFR=DIRFRDEF,JRNL=1
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"BUDIR")) S BUDIR=^("BUDIR")
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"BUVGS")) S BUVGS=^("BUVGS")
	. I $D(^cLOG(CS,"BACKUP","AUTO",TYPE,"BUDIR")) S BUDIR=^("BUDIR")
	. S R="K\22\3\"_$P($T(T2),U,2)_"\S2\56\\$L(K)\" D R0 Q:K="-"
	. S:K="+" K=BUDIRDEF S:K="." K=BUDIR S BUDIR=K
	. F  Q:$E(BUDIR,$L(BUDIR))'="/"  S $E(BUDIR,$L(BUDIR))=""
	. S R="K\22\3\"_$P($T(T4),U,2)_"\S4\56\\$L(K)\" D R0 Q:K="-"
	. S:K="+" K=DIRFRDEF S:K="." K=DIRFR S DIRFR=K
	. F  Q:$E(DIRFR,$L(DIRFR))'="/"  S $E(DIRFR,$L(DIRFR))=""
	. S R="JRNL\22\3\"_$P($T(T5),U,2)_"\1\\""0-""[K\" D R0 Q:K="-"
	. S:K="" (K,JRNL)=1
	. K ^cLOG(CS,"BACKUP","AUTO")
	. ;S ^cLOG(CS,"BACKUP","AUTO",TYPE,"X")="S BUDIR="""_BUDIR_""",DIRFR="""_DIRFR_""",JRNL="_JRNL
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"BUDIR")=BUDIR
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"DIRFR")=DIRFR
	. S ^cLOG(CS,"BACKUP","AUTO",TYPE,"JRNL")=JRNL
	. S ^cLOG(CS,"BACKUP","TYPE")=4
	. S ^cLOG(CS,"BACKUP","AUTO")=TYPE
	I TY=5 D
	. S R="K\21\3\"_$P($T(T6),U,2)_"\1\\""27-""[K\" D R0 Q:K="-"
	. I 'K K ^cLOG(CS,"BACKUP","PER")
	. E  S ^cLOG(CS,"BACKUP","PER")=K
	I TY=6 D
	. S R="K\21\3\"_$P($T(T7),U,2)_"\3\\K?.N!(K=""-"")\" D R0 Q:K="-"
	. I 'K K ^cLOG(CS,"BACKUP","DELTA")
	. E  S ^cLOG(CS,"BACKUP","DELTA")=K
	I TY=9 D
	. S PCDIR=$G(^cLOG(CS,"BACKUP","PC","DIR"))
	. S R="K\21\3\"_$P($T(T8),U,2)_"\S8\100\\\" D R0 Q:K="-"
	. S:K="+" K=PCDIRDEF S:K="." K=PCDIR
	. S ^cLOG(CS,"BACKUP","PC","DIR")=K
	. S PCLOG=$G(^cLOG(CS,"BACKUP","PC","LOG"))
	. S R="K\21\3\"_$P($T(T9),U,2)_"\S9\100\\\" D R0 Q:K="-"
	. S:K="+" K=PCLOGDEF S:K="." K=PCLOG
	. S ^cLOG(CS,"BACKUP","PC","LOG")=K
	G 1
	;
YZ	Q
	;
S2	W !?2,$P($T(T2),U,3),BUDIRDEF,"   .[] = ",BUDIR Q
S3	W !?2,$P($T(T3),U,3),"   .[] = ",BUVGS Q
S4	W !?2,$P($T(T4),U,3),DIRFRDEF,"   .[] = ",DIRFR Q
S8	W !!?2,$P($T(T8),U,3),PCDIRDEF,"   .[] = ",PCDIR Q
S9	W !!?2,$P($T(T9),U,3),PCLOGDEF," .[] = ",PCLOG 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	; 17.01.2012 - 15:58 * Cache-r6.4.9