- BKUCW2KV ;TASSC/MFD set variables for Cache Win2k backup [ 11/17/2002 9:07 PM ]
- ;;1.59;W2KCABACKUP;;
- VARS ;
- ;***** HOST OS PATH SECTION ********
- ;This is a freeze only version.
- ;NOTE the Cache install directory should be added to the system PATH
- ;***** PATH SECTION ********
- ;Define which paths contain database volumes in an array and your
- ;Journal directory
- S BKUPATH(0)="D:\Cache\TRG"
- S BKUPATH(1)="D:\JRN"
- S BKUPATH(2)="D:\cachesys"
- S BKUPATH(3)="D:\Cache\CAL"
- S BKUPATH(4)="D:\Cache\TST"
- ;Define where you are copying to-array subscripts must match BKUPATH
- ;AND the "to" folders must already exist!
- S CPTODIR(0)="D:\cachebackup\TRG"
- S CPTODIR(1)="D:\jrnbackup"
- S CPTODIR(2)="D:\cachesysbackup"
- S CPTODIR(3)="D:\cachebackup\CAL"
- S CPTODIR(4)="D:\cachebackup\TST"
- ;
- S (BKUPDRV,I)="" F S I=$O(CPTODIR(I)) Q:I="" S BKUPDRV=BKUPDRV_CPTODIR(I)_" "
- ;Default is to backup what is in CPTODIR but you can backup entire
- ;drives by uncommenting and editing one of the lines below
- ;S BKUPDRV="C:\"
- ;S BKUPDRV="D:\" ;to get entire C, E, F, D, and G drives- except for files inuse
- ;
- ;****** MISCELLANEOUS ******
- S SENDTOID="" ;to ftp the results file
- S MAILTOID="HELPDESK@DOMAIN.NAME" ;email results file
- S MAILFROMID="HELPDESK@DOMAIN.NAME" ;address email is from- must be defined
- S MAILTOID="@c:\winnt\wsendmaillist.txt" ;email results file to a list
- ;S PREVKILL="yes" D NOKILL ;prevent kill of glbs; Don't uncomment, doesn't work with Cache
- ;S NOVAL=1 ;uncomment to skip Validate- NOT RECOMMENDED!
- S NOSSD=1 ;to avoid SSD on error- FOR TESTING ONLY!
- ;S BKUHANG=300 ;uncomment to extend buffer flush hang, 60 is dflt
- ;
- ;S BKURTIME=2100 ; 9pm, set to military run time for Shadow server and no Taskman
- S BKUSITE="Phoenix Training System" ; set to site name for addition to mail message subject
- ;
- ;The variable values below are standard and should not be changed
- S CDIR=$P($ZU(131,1),",",2),CDIR=$P(CDIR,"\mgr")
- S HOSTNAME="%COMPUTERNAME%"
- S:'$D(BKUSITE) BKUSITE=HOSTNAME
- S SENDFILE=CDIR_"\backup_cawin."_HOSTNAME
- S VALFILE=CDIR_"\backup_cawin.RESULTS"
- S INTFILE=CDIR_"\backup_cawin.INTEGRIT" ; this is appended to Results file if an error
- S INTEGAPP="" ;uncomment to get Integr check result appended to Results file every run
- S CUMFILE=CDIR_"\backup_cawin.CUM"
- S TMPCUM=CUMFILE_".tmp"
- ;S TRSHOOT="yes" ;do not use, for test purposes only
- ;
- ;****** TAPE BACKUP SECTION ******
- ;S NOTAPE=1 ;uncomment to skip tape backup and do disk-to-disk only
- S TAPEDRV="""DLT""" D TLIB ;set your tape drive type, e.g. DLT, 4mm, LTO Ultrium
- ;S TAPEDRV="""4mm DDS""" D TLIB ;set your tape drive type, e.g. DLT, 4mm
- ;Define Windows-level tape backup command
- S TVERIFY="yes" ;change to no to skip tape verify-NOT RECOMMENDED!
- S TBKUPCMD="ntbackup backup systemstate" ;get system state (registry) also
- ;S TBKUPCMD="ntbackup backup" ;don't backup system state (registry)
- S TBKUPJOB="""RPMS Backup on "_$ZD($P($H,","),5)_" at "_$H_""""
- S TBKUPOPT="/N "_TBKUPJOB_" /d """_$G(BKUPDRV)_" plus System State"" /v:yes /r:no /rs:no /hc:on /m normal /l:s /p "_TAPEDRV_" /um"
- S:TVERIFY="no" TBKUPOPT="/N "_TBKUPJOB_" /d """_$G(BKUPDRV)_"plus System State"" /v:no /r:no /rs:no /hc:on /m normal /l:s /p "_TAPEDRV_" /um"
- ;
- ;
- ;***** DEL/COPY SECTION ******
- ;Set Delete cmd to use
- S DELCMD="del /q /s "
- S DELCMDOP="\*.*"
- ;Set Copy cmd to use-
- ;found xcopy to be slightly faster than copy
- ;and scopy won't copy an open file
- S NTCPCMD="xcopy"
- S NTCPOPT="/s /e /f" ;xcopy options-copy any subdirs and data in them
- ;
- ;****** CACHE VARS SECTION ******
- D RPATH ; add %SYS to routine search path
- S SYS=$ZU(110)
- S USR=$ZU(67,11,$J)
- ;
- K I Q ;the end
- ;
- ;
- TLIB ;get tape library name
- ;required to run rsm refresh command to activate a changed tape
- N X,Y S Y="tapelib.txt"
- S X=$ZF(-1,"rsm view /tlibrary|qgrep Drive >"_CDIR_"\tapelib.txt")
- O CDIR_"\"_Y:"R"
- U CDIR_"\"_Y R TAPELIB
- C CDIR_"\"_Y K X
- S TAPELIB=""_TAPELIB_""
- S TAPEREF="start /wait rsm.exe refresh /lf"""_TAPELIB_""""
- S X=$$DEL^%ZISH(CDIR,Y)
- Q
- ;
- RPATH ; set the Namespace path to include %SYS
- S BKUNSP=$ZU(20,$ZU(20),"%SYS") ;set routine search path to include %SYS
- Q
- ;
- NOPATH ; set path back to just IHS or PRD
- S BKUNSP=$ZU(20,BKUNSP)
- Q
- ;
- ;
- ; Subs below not currently used for Cache backups
- ; Currently when a user logs in, a switch is set to disallow top level kills
- ; in LOGIN^%ZSTART, to allow kill for the process so I $ZU(68,28,0)
- ;
- NOKILL ; set ^BKUVARS to prevent global kills
- K ^BKUVARS("PREVENTKILL"),^("ALLOWKILL")
- N BKUGL,BKUPROD
- S BKUPROD=^%ZOSF("PROD")
- S ^BKUVARS("PREVENTKILL")="PREVKILL=""yes""" D BKUGBL
- Q
- BKUGBL ; set ^BKUVARS to allow kill of globals listed in GBLS
- N BKUI,BKUX,BKUGLB
- F BKUI=1:1 S BKUX=$T(GLBS+BKUI) Q:$E(BKUX)'=" " S BKUGLB=$P(BKUX,";;",2) D
- .I BKUGLB'["[" S BKUGLB="["""_^%ZOSF("PROD")_"""]"_BKUGLB
- .S BKUGLB="^"_BKUGLB
- .I $D(BKUGLB) S ^BKUVARS("ALLOWKILL",$P(BKUGLB,"^",2))=""
- Q
- GLBS ;
- ;;ACHSPCC
- ;;ACHSBCBS
- ;;ACHSAOPD
- ;;ACHSAOVU
- ;;ACHSZOCT
- ;;ACHSPIG
- ;;ACHSSVR
- ;;ACHSEOBR
- ;;ACHSLOG
- ;;ACHSDATA
- ;;ACHSTXPT
- ;;ACHSTXVN
- ;;ACHSTXOB
- ;;ACHSTXPD
- ;;ACHSTXPG
- ;;ACHSUSE
- ;;BWOLD
- ;;AFSHCANP
- ;;AFSHCANR
- ;;AFSLARCX
- ;;AFSLEMSG
- ;;AFSLJCL
- ;;AFSLMSGX
- ;;AFSLODOC
- ;;AFSLREJT
- ;;AFSLTDOC
- ;;AFSLTPF
- ;;AFSLZEIN
- ;;AFSLZUM1
- ;;AFSLZUM2
- ;;AFSLVNDR
- ;;AFSNEXE
- ;;AFSNRCDS
- ;;AFSPRPTQ
- ;;AQAJEXP
- ;;AQAQX
- ;;AQAQP
- ;;AQAOX
- ;;AQAOXX
- ;;ADGX
- ;;AGTXER
- ;;AGCHDFN
- ;;HEPDL
- ;;FREEZE
- BKUCW2KV ;TASSC/MFD set variables for Cache Win2k backup [ 11/17/2002 9:07 PM ]
- +1 ;;1.59;W2KCABACKUP;;
- VARS ;
- +1 ;***** HOST OS PATH SECTION ********
- +2 ;This is a freeze only version.
- +3 ;NOTE the Cache install directory should be added to the system PATH
- +4 ;***** PATH SECTION ********
- +5 ;Define which paths contain database volumes in an array and your
- +6 ;Journal directory
- +7 SET BKUPATH(0)="D:\Cache\TRG"
- +8 SET BKUPATH(1)="D:\JRN"
- +9 SET BKUPATH(2)="D:\cachesys"
- +10 SET BKUPATH(3)="D:\Cache\CAL"
- +11 SET BKUPATH(4)="D:\Cache\TST"
- +12 ;Define where you are copying to-array subscripts must match BKUPATH
- +13 ;AND the "to" folders must already exist!
- +14 SET CPTODIR(0)="D:\cachebackup\TRG"
- +15 SET CPTODIR(1)="D:\jrnbackup"
- +16 SET CPTODIR(2)="D:\cachesysbackup"
- +17 SET CPTODIR(3)="D:\cachebackup\CAL"
- +18 SET CPTODIR(4)="D:\cachebackup\TST"
- +19 ;
- +20 SET (BKUPDRV,I)=""
- FOR
- SET I=$ORDER(CPTODIR(I))
- IF I=""
- QUIT
- SET BKUPDRV=BKUPDRV_CPTODIR(I)_" "
- +21 ;Default is to backup what is in CPTODIR but you can backup entire
- +22 ;drives by uncommenting and editing one of the lines below
- +23 ;S BKUPDRV="C:\"
- +24 ;S BKUPDRV="D:\" ;to get entire C, E, F, D, and G drives- except for files inuse
- +25 ;
- +26 ;****** MISCELLANEOUS ******
- +27 ;to ftp the results file
- SET SENDTOID=""
- +28 ;email results file
- SET MAILTOID="HELPDESK@DOMAIN.NAME"
- +29 ;address email is from- must be defined
- SET MAILFROMID="HELPDESK@DOMAIN.NAME"
- +30 ;email results file to a list
- SET MAILTOID="@c:\winnt\wsendmaillist.txt"
- +31 ;S PREVKILL="yes" D NOKILL ;prevent kill of glbs; Don't uncomment, doesn't work with Cache
- +32 ;S NOVAL=1 ;uncomment to skip Validate- NOT RECOMMENDED!
- +33 ;to avoid SSD on error- FOR TESTING ONLY!
- SET NOSSD=1
- +34 ;S BKUHANG=300 ;uncomment to extend buffer flush hang, 60 is dflt
- +35 ;
- +36 ;S BKURTIME=2100 ; 9pm, set to military run time for Shadow server and no Taskman
- +37 ; set to site name for addition to mail message subject
- SET BKUSITE="Phoenix Training System"
- +38 ;
- +39 ;The variable values below are standard and should not be changed
- +40 SET CDIR=$PIECE($ZU(131,1),",",2)
- SET CDIR=$PIECE(CDIR,"\mgr")
- +41 SET HOSTNAME="%COMPUTERNAME%"
- +42 IF '$DATA(BKUSITE)
- SET BKUSITE=HOSTNAME
- +43 SET SENDFILE=CDIR_"\backup_cawin."_HOSTNAME
- +44 SET VALFILE=CDIR_"\backup_cawin.RESULTS"
- +45 ; this is appended to Results file if an error
- SET INTFILE=CDIR_"\backup_cawin.INTEGRIT"
- +46 ;uncomment to get Integr check result appended to Results file every run
- SET INTEGAPP=""
- +47 SET CUMFILE=CDIR_"\backup_cawin.CUM"
- +48 SET TMPCUM=CUMFILE_".tmp"
- +49 ;S TRSHOOT="yes" ;do not use, for test purposes only
- +50 ;
- +51 ;****** TAPE BACKUP SECTION ******
- +52 ;S NOTAPE=1 ;uncomment to skip tape backup and do disk-to-disk only
- +53 ;set your tape drive type, e.g. DLT, 4mm, LTO Ultrium
- SET TAPEDRV="""DLT"""
- DO TLIB
- +54 ;S TAPEDRV="""4mm DDS""" D TLIB ;set your tape drive type, e.g. DLT, 4mm
- +55 ;Define Windows-level tape backup command
- +56 ;change to no to skip tape verify-NOT RECOMMENDED!
- SET TVERIFY="yes"
- +57 ;get system state (registry) also
- SET TBKUPCMD="ntbackup backup systemstate"
- +58 ;S TBKUPCMD="ntbackup backup" ;don't backup system state (registry)
- +59 SET TBKUPJOB="""RPMS Backup on "_$ZD($PIECE($HOROLOG,","),5)_" at "_$HOROLOG_""""
- +60 SET TBKUPOPT="/N "_TBKUPJOB_" /d """_$GET(BKUPDRV)_" plus System State"" /v:yes /r:no /rs:no /hc:on /m normal /l:s /p "_TAPEDRV_" /um"
- +61 IF TVERIFY="no"
- SET TBKUPOPT="/N "_TBKUPJOB_" /d """_$GET(BKUPDRV)_"plus System State"" /v:no /r:no /rs:no /hc:on /m normal /l:s /p "_TAPEDRV_" /um"
- +62 ;
- +63 ;
- +64 ;***** DEL/COPY SECTION ******
- +65 ;Set Delete cmd to use
- +66 SET DELCMD="del /q /s "
- +67 SET DELCMDOP="\*.*"
- +68 ;Set Copy cmd to use-
- +69 ;found xcopy to be slightly faster than copy
- +70 ;and scopy won't copy an open file
- +71 SET NTCPCMD="xcopy"
- +72 ;xcopy options-copy any subdirs and data in them
- SET NTCPOPT="/s /e /f"
- +73 ;
- +74 ;****** CACHE VARS SECTION ******
- +75 ; add %SYS to routine search path
- DO RPATH
- +76 SET SYS=$ZU(110)
- +77 SET USR=$ZU(67,11,$JOB)
- +78 ;
- +79 ;the end
- KILL I
- QUIT
- +80 ;
- +81 ;
- TLIB ;get tape library name
- +1 ;required to run rsm refresh command to activate a changed tape
- +2 NEW X,Y
- SET Y="tapelib.txt"
- +3 SET X=$ZF(-1,"rsm view /tlibrary|qgrep Drive >"_CDIR_"\tapelib.txt")
- +4 OPEN CDIR_"\"_Y:"R"
- +5 USE CDIR_"\"_Y
- READ TAPELIB
- +6 CLOSE CDIR_"\"_Y
- KILL X
- +7 SET TAPELIB=""_TAPELIB_""
- +8 SET TAPEREF="start /wait rsm.exe refresh /lf"""_TAPELIB_""""
- +9 SET X=$$DEL^%ZISH(CDIR,Y)
- +10 QUIT
- +11 ;
- RPATH ; set the Namespace path to include %SYS
- +1 ;set routine search path to include %SYS
- SET BKUNSP=$ZU(20,$ZU(20),"%SYS")
- +2 QUIT
- +3 ;
- NOPATH ; set path back to just IHS or PRD
- +1 SET BKUNSP=$ZU(20,BKUNSP)
- +2 QUIT
- +3 ;
- +4 ;
- +5 ; Subs below not currently used for Cache backups
- +6 ; Currently when a user logs in, a switch is set to disallow top level kills
- +7 ; in LOGIN^%ZSTART, to allow kill for the process so I $ZU(68,28,0)
- +8 ;
- NOKILL ; set ^BKUVARS to prevent global kills
- +1 KILL ^BKUVARS("PREVENTKILL"),^("ALLOWKILL")
- +2 NEW BKUGL,BKUPROD
- +3 SET BKUPROD=^%ZOSF("PROD")
- +4 SET ^BKUVARS("PREVENTKILL")="PREVKILL=""yes"""
- DO BKUGBL
- +5 QUIT
- BKUGBL ; set ^BKUVARS to allow kill of globals listed in GBLS
- +1 NEW BKUI,BKUX,BKUGLB
- +2 FOR BKUI=1:1
- SET BKUX=$TEXT(GLBS+BKUI)
- IF $EXTRACT(BKUX)'=" "
- QUIT
- SET BKUGLB=$PIECE(BKUX,";;",2)
- Begin DoDot:1
- +3 IF BKUGLB'["["
- SET BKUGLB="["""_^%ZOSF("PROD")_"""]"_BKUGLB
- +4 SET BKUGLB="^"_BKUGLB
- +5 IF $DATA(BKUGLB)
- SET ^BKUVARS("ALLOWKILL",$PIECE(BKUGLB,"^",2))=""
- End DoDot:1
- +6 QUIT
- GLBS ;
- +1 ;;ACHSPCC
- +2 ;;ACHSBCBS
- +3 ;;ACHSAOPD
- +4 ;;ACHSAOVU
- +5 ;;ACHSZOCT
- +6 ;;ACHSPIG
- +7 ;;ACHSSVR
- +8 ;;ACHSEOBR
- +9 ;;ACHSLOG
- +10 ;;ACHSDATA
- +11 ;;ACHSTXPT
- +12 ;;ACHSTXVN
- +13 ;;ACHSTXOB
- +14 ;;ACHSTXPD
- +15 ;;ACHSTXPG
- +16 ;;ACHSUSE
- +17 ;;BWOLD
- +18 ;;AFSHCANP
- +19 ;;AFSHCANR
- +20 ;;AFSLARCX
- +21 ;;AFSLEMSG
- +22 ;;AFSLJCL
- +23 ;;AFSLMSGX
- +24 ;;AFSLODOC
- +25 ;;AFSLREJT
- +26 ;;AFSLTDOC
- +27 ;;AFSLTPF
- +28 ;;AFSLZEIN
- +29 ;;AFSLZUM1
- +30 ;;AFSLZUM2
- +31 ;;AFSLVNDR
- +32 ;;AFSNEXE
- +33 ;;AFSNRCDS
- +34 ;;AFSPRPTQ
- +35 ;;AQAJEXP
- +36 ;;AQAQX
- +37 ;;AQAQP
- +38 ;;AQAOX
- +39 ;;AQAOXX
- +40 ;;ADGX
- +41 ;;AGTXER
- +42 ;;AGCHDFN
- +43 ;;HEPDL
- +44 ;;FREEZE
