#set done 0
#output
[#loop |while| (done = 0) |do|
#output Provide a work location ($vol) for a temp copy. This is for a
#output partition 0 of the temp file. There should be no subvol & file
#set work_vol1 [#input in this location similar to source file name: ]
[#if ( ([#charfind work_vol1 1 $] = 1) AND ([#charfind work_vol1 1 .] <= 0) )
|then| #set done 1
|else| #output !!!! Bad input !!!!
]
]
#set done 0
#output
[#loop |while| (done = 0) |do|
#output Provide a work location ($vol) for a temp copy. This is for a
#output sec partition of the temp file. There should be no subvol & file
#set work_vol2 [#input in this location similar to source file name: ]
[#if ( ([#charfind work_vol2 1 $] = 1) AND ([#charfind work_vol2 1 .] <= 0) )
|then| #set done 1
|else| #output !!!! Bad input !!!!
]
]
#output
#set done 0
[#loop |while| (done = 0) |do|
#set partfile [#input Give the source (archive) file name as subvol.file: ]
[#if ( ([#charfind partfile 1 $] <= 0) AND ([#charfind partfile 1 .] > 0))
|then| #set done 1
|else| #output !!!! Bad input !!!!
]
]
#output
#set done1 0
[#loop |while| (done1 = 0) |do|
#output How do you want give the source vol names?
#set inp [#input Manually / Through File? (M/F): ]
[#case [inp]
| m M |
#set count 0
[#loop |while| (count < [parts]) |do|
#set myarr:vol_part([count]) [#input Provide source vol name for part
[count]: ]
#set count [#compute (count + 1) ]
]
#set done1 1
| f F |
#set fname [#input Give the filename (each vol should be in diff line):
]
[#if ([#fileinfo/existence/ [fname] ]) |then| #set done1 1
|else| #output File does not exist ] == if ends
[#if (done1) |then|
filetovar [fname] fvar
#set done 0
[#loop |while| (done < [parts]) |do|
#set myarr:vol_part([done]) [#lineget fvar 1 for 1]
#linedel fvar 1 for 1
#set done [#compute (done + 1)]
] ==loop
] == if
#set done 0
| otherwise | == repeat the question
] == case
] == loop
#output
#set done 0
[#loop |while| (done = 0) |do|
#set tgt_file [#input Location of part 0 of target file (pre-created
$vol.svol.file): ]
RESTORE Guidelines and Examples 165