1 #!/usr/local/bin/expect --
2 # a dumb little 'expect' program to check the heard list on ppfma.ampr.org
6 puts [timestamp -format %c] ;# time tag the output
9 expect "login: " { send "wd0fhg\r" }
11 expect "NET/ROM*" { send "j\r" } ;# for now we will just look at all
13 expect { ;# no easy way to tell that the list is
14 ;# complete so we'll just time out
15 "NET/WRONG*" {} ;# looking for we can't find.
18 expect "*" { send "\r\r" };# flush the expect buffer
20 expect "*" { send "c ax4 w0lkd-1\r" } :# try to connect on .01
22 expect "Connected" {send "\rb\r" } ;# just try the connection
24 expect "*" { send "\rb\r" };# flush the expect buffer and signoff
26 expect "closed*" ;# wait for the connection to close