1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/local/bin/expect --
# a dumb little 'expect' program to check the heard list on ppfma.ampr.org
set timeout 15
puts [timestamp -format %c] ;# time tag the output
spawn telnet 44.32.4.2
expect "login: " { send "wd0fhg\r" }
expect "NET/ROM*" { send "j\r" } ;# for now we will just look at all
expect { ;# no easy way to tell that the list is
;# complete so we'll just time out
"NET/WRONG*" {} ;# looking for we can't find.
}
expect "*" { send "\r\r" };# flush the expect buffer
expect "*" { send "c ax4 w0lkd-1\r" } :# try to connect on .01
expect "Connected" {send "\rb\r" } ;# just try the connection
expect "*" { send "\rb\r" };# flush the expect buffer and signoff
expect "closed*" ;# wait for the connection to close
exec sleep 3
expect eof
|
