#
# 5799-WZQ (C) COPYRIGHT = NONE
# LICENSED MATERIALS - PROPERTY OF IBM
#
# $Header:uucplogin.com. 12.0$ 
# $ACIS:uucplogin.com. 12.0$ 
# $Source: /ibm/acis/usr/src/usr.bin/uucp/vms/RCS/uucplogin.com.,v $ 

$! UUCP Login File
$ set nocontrol
$ if "''F$Mode()'" .NES. "INTERACTIVE" THEN $ GOTO BATCH
$ nettest:='f$logical("SYS$NET")
$ if nettest .nes. "" then goto batch		! Network task
$ deass sys$input
$ uucico := $e$disk:[eunice.usr.lib.uucp]uucico uucico
$! drain:= $e$disk:[eunice.usr.lib.uucp]drain drain
$ uucico
$! drain
$ assi nl: sys$output
$ assi nl: sys$error
$ logout/brief
$ stop/id=0
$ !
$ BATCH:
$ exit
