! ! 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