|
|
1.1 root 1: $! UUCP Login File
2: $ set nocontrol
3: $ if "''F$Mode()'" .NES. "INTERACTIVE" THEN $ GOTO BATCH
4: $ nettest:='f$logical("SYS$NET")
5: $ if nettest .nes. "" then goto batch ! Network task
6: $ deass sys$input
7: $ uucico := $e$disk:[eunice.usr.lib.uucp]uucico uucico
8: $! drain:= $e$disk:[eunice.usr.lib.uucp]drain drain
9: $ uucico
10: $! drain
11: $ assi nl: sys$output
12: $ assi nl: sys$error
13: $ logout/brief
14: $ stop/id=0
15: $ !
16: $ BATCH:
17: $ exit
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.