blob: 5007958093ffd0f79e5491909a8b051c42272d42 (
plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!../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
|
