/*
   $VER: Autologin-rzstud1.term 1.1 (17.2.94)
   by Tobias Ferber & Harald Kunze

----------------------------------------------------------------------------
                      Welcome to the VAX/VMS-Cluster
                         - OpenVMS Version 5.5-2 -  
----------------------------------------------------------------------------
                          IIIIII  RRRRR     AAAA
                            II    RR  RR   AA  AA
                            II    RRRRR    AAAAAA
                            II    RR  RR   AA  AA
                          IIIIII  RR   RR  AA  AA

           Informatik Rechner-Abteilung - Universitaet Karlsruhe  
----------------------------------------------------------------------------
*/

TIMEOUT 5

say 'waiting for Net/One command prompt'
WAIT '>>'
IF rc ~= 0 THEN DO
  SEND '\r'
  WAIT '>>'
  END

IF rc ~= 0 THEN EXIT

TIMEOUT 20

say 'setting binary mode on'
DELAY 1
SEND 'set binary on\r'

WAIT '>>'
IF rc ~= 0 THEN EXIT

say 'trying to connect to irav1'
DELAY 1
SEND 'connect irav1\r'

say 'waiting for login prompt'
WAIT 'Username:'
IF rc ~= 0 THEN EXIT

say 'sending username'
DELAY 1
SEND '\u\r'

say 'waiting for password prompt'
WAIT 'Password:'
IF rc ~= 0 THEN EXIT

say 'sending password'
DELAY 1
SEND '\p\r'

EXIT