1 &version 2
 2 &trace &all off
 3 &goto &1
 4 &-  ******************************************************
 5 &-  *                                                    *
 6 &-  *                                                    *
 7 &-  * Copyright (c) 1972 by Massachusetts Institute of   *
 8 &-  * Technology and Honeywell Information Systems, Inc. *
 9 &-  *                                                    *
10 &-  *                                                    *
11 &-  ******************************************************
12 &-
13 &- ADMIN_1.EC - extended operator commands. An extension of admin.ec,
14 &-              written in version 2 exec_com. It is called from admin.ec
15 &-                and invoked with the same arguments.
16 &-
17 &------------------------------------------------------------------------------
18 &-
19 &-        x scav {scavenge_vol args}
20 &-
21 &------------------------------------------------------------------------------
22 &label scav
23 &if &[nequal &n 1] &then scavenge_vol
24 &else scavenge_vol &rf2 -check
25 &if &[not [nequal [severity scavenge_vol] 0]] &then &quit
26 
27 &set scav_chan &[before [string [do "[if [equal [string [as_who -chn &&1]] """"] -then &&1 -else """"]" scav([index_set 1 10]) ]] " "]
28 &if [not [equal &(scav_chan) ""]] &then &goto scav_01
29 &print No login channel available
30 &quit
31 
32 &label scav_01
33 sc_command login Scavenger SysDaemon &(scav_chan) -ag &rf2
34 &quit