O T weather underground

[janina@xxxxxxxxxxx (Janina Sajka)]

Weather is just a script. I've attached it. No idea whether or not it
will just run in your environment, of course.

Cheryl Homiak writes:
> From: Cheryl Homiak <chomiak at charter.net>
> 
> Hmm, no weather command on debian unstable.
> And don't try the weather package on debian; it's some kind of interactive
> story. However, try miscfiles package if you want three-letter airport
> codes and other interesting stuff.
> If anybody does find the equivalent in debian for weather, I'd be
> interested.
> apt-cache search brought up some candidates but they looked graphical.
> anyway, the wunderground site is nice.
> 
> 
> 
> 
> -- 
> Cheryl
> 
> 
> _______________________________________________
> Speakup mailing list
> Speakup at braille.uwo.ca
> http://speech.braille.uwo.ca/mailman/listinfo/speakup

-- 
	
Janina Sajka
Email: janina at rednote.net		
Phone: +1 (202) 408-8175

Director, Technology Research and Development
American Foundation for the Blind (AFB)
http://www.afb.org

Chair, Accessibility Work Group
Free Standards Group
http://a11y.org
-------------- next part --------------
#!/bin/sh
# \
exec expect -f "$0" ${1+"$@"}

# weather - Expect script to get the weather (courtesy University of Michigan)
# Don Libes
# Version 1.10

# 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)

# Notes from Larry Virden <lvirden at yahoo.com> about the new host,
# rainmaker.wunderground.com: "[the] new site requires the
# machine doing the request be located in reverse dns lookup
# or it refuses to provide data."  This appears to be a blind error
# condition on the part of rainmaker.

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
}

set timeout 60

set env(TERM) vt100	;# actual value doesn't matter, just has to be set

spawn telnet rainmaker.wunderground.com 3000
while {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

while {1} {
	expect timeout {
		timedout
	} "Press Return to continue*:*" {
		send "\r"
	} "Press Return to display statement, M for menu:*" {
		send "\r"
	} -re "(.*)CITY FORECAST MENU.*Selection:" {
		break
	}
}

send "X\r"
expect