!
! InterSLIP gateway script for Morthwest Nexus
!
! 01-Nov-93: Increased all matchread statements to 500
!
@originate
note "Waiting for prompt"
matchclr
matchstr 1 1 "login:"
matchread 500
note "Gateway not responding!"
exit -1
!
@label 1
note "Sending user name"
write "^5\13"
matchclr
matchstr 1 2 "Password:"
matchread 500
note "Gateway not responding!"
exit -1
!
@label 2
note "Sending password"
write "^6\13"
matchclr
matchexp 1 4 "[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]* "
matchstr 2 3 "Login"
matchread 500
jump 99
!
@label 3
note "Login incorrect"
jump 99
!
@label 99
pause 1
pause 60
exit -1
!
@label 4
note "Setting IP address"
setIP "^0"
exit 0
!
! currently unused:
!
@answer
@hangup
exit 0