# connect (Based upon ppp-ex.scr by Daniel Chouinard.) # # Modified by John E. Gotts . let $d="/dev/ttyS1" # let $n="8241130" # let $n="7959100" let $n="92137970" # let $n="92133720" let $l="/tmp/ppp.log" set senddelay 0.10 print "login: " input $u print "Password:" set echo off input $p set echo on print "\n" open com $d set com 38400n81 let n=0 :reset inc n if n>3 print "Failed to reset modem.\n" goto error print "\nResetting modem...\n" waitquiet 5 0.5 if % = -1 print "Couldn't get silence.\n" goto error send "ATZ0^m" waitfor 5 "ok" if % != 0 print "Failed to receive acknowledgment.\n" goto reset let n=0 :dial waitquiet 2 0.5 if % = -1 print "Couldn't get silence.\n" goto error inc n let $a=$mid($time(),11,8) print "\r",$a," Dial attempt #",n send "ATDT "+$n+"^m" waitfor 80 "connect","busy","no dial tone","no carrier" if % = 1 goto dial if % = 2 print "\n\nNo dial tone.\n" goto error if % = -1 send " " sleep 2 goto dial if % != 0 print "\n\nNo carrier or other error.\n" goto error get 5 " ^m" $c let n=0 print "\nConnected: ",$c,"\n" sleep 1 print "Waiting for host:...\n" waitfor 5 "ost:" if % != 0 print "Could not get host: prompt.\n" goto error print "Sending ppp...\n" send "ppp^m" print "Waiting for login:...\n" waitfor 5 "ogin:" if % != 0 print "Could not get login: prompt.\n" goto error print "Logging in...\n" send $u+"^m" print "Waiting for Password:\n" waitfor 10 "word:" if % != 0 print "Could not get password prompt.\n" goto error print "Sending password...\n" send $p+"^m" print "Starting ppp...\n" send "ppp^m" fork let i=% if i != 0 goto nonforked exec "/usr/sbin/pppd -detach "+$dev() :nonforked let $b=$time() let d=time() print "Type ENTER to close connection.\n" print "Connected since ",$b,".\n" print "Connect ",$c," as ",$u,".\n" :tloop let $t=$hms(time()-d) print "\r",$mid($time(),11,8)," -> ",$t," " sleep 1 testkey if % = 0 goto tloop open file $l fprint $b," - ",$time()," -> ",$t,"\n" close file kill 15 i sleep 1 exit 0 :error print "\nGot error #",%,"\n" sleep 2 exit 1