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