1 &
2 & dir_salvage.ec
3 & simple treewalk salvager coordinator
4 & B. Greenberg 9/14/77
5 &
6 & Usage: ec dir_salvage dirname -salvctlargs
7 & dirname optional defaults to root.
8 & salvctlargs optional too.
9 &
10 &
11 &command_line off
12 &if equal substr &1. 1 1 > &then &goto gotdir
13 ec &ec_dir>&ec_name > &rf1
14 &quit
15
16 &label gotdir
17 date_deleter -wd 14 salv_output.*.*
18 delete salvager_out -brief
19 do_subtree &1 -td "salvage_dir &1 salvager_out &rf2" -priv
20 &if exists segment salvager_out &then &else &quit
21 do "rename salvager_out &1;dprint -he SALV-OUTPUT &1" salv_output.date.time
22 &quit