URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [expect/] [example/] [weather] - Rev 1778
Go to most recent revision | Compare with Previous | Blame | View Log
#!../expect -f
# weather - Expect script to get the weather (courtesy University of Michigan)
# Don Libes
# Version 1.9
# local weather is retrieved if no argument
# argument is the National Weather Service designation for an area
# I.e., WBC = Washington DC (oh yeah, that's obvious)
exp_version -exit 5.0
if $argc>0 {set code $argv} else {set code "WBC"}
proc timedout {} {
send_user "Weather server timed out. Try again later when weather server is not so busy.\n"
exit 1
}
# delete special weather statement question
proc delete_special {s} {
set x [string first " ******" $s]
return [join [lrange [split $s ""] 0 $x] ""]
}
set timeout 60
log_user 0
set env(TERM) vt100 ;# actual value doesn't matter, just has to be set
spawn telnet downwind.sprl.umich.edu 3000
match_max 100000
for {} 1 {} {
expect timeout {
send_user "failed to contact weather server\n"
exit
} "Press Return to continue*" {
# this prompt used sometimes, eg, upon opening connection
send "\r"
} "Press Return for menu*" {
# this prompt used sometimes, eg, upon opening connection
send "\r"
} "M to display main menu*" {
# sometimes ask this if there is a weather watch in effect
send "M\r"
} "Change scrolling to screen*Selection:" {
break
} eof {
send_user "failed to telnet to weather server\n"
exit
}
}
send "C\r"
expect timeout timedout "Selection:"
send "4\r"
expect timeout timedout "Selection:"
send "1\r"
expect timeout timedout "Selection:"
send "1\r"
expect timeout timedout "city code:"
send "$code\r"
expect $code ;# discard this
for {} 1 {} {
expect timeout {
timedout
} "Press Return to continue*:*" {
send_user "\n[delete_special $expect_out(buffer)]\n"
send "\r"
} "Press Return to display statement, M for menu:*" {
send_user "\n[delete_special $expect_out(buffer)]\n"
send "\r"
} -re "(.*)CITY FORECAST MENU.*Selection:" {
send_user "\n$expect_out(1,string)\n"
break
}
}
send "X\r"
expect
Go to most recent revision | Compare with Previous | Blame | View Log