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 ¬ 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 """"" scavindex_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