From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from cantata.rednote.net ([66.92.170.86]) by speech.braille.uwo.ca with esmtp (Exim 3.36 #1 (Debian)) id 1An7xB-0007vT-00 for ; Sat, 31 Jan 2004 22:07:21 -0500 Received: from cantata.rednote.net (localhost.localdomain [127.0.0.1]) by cantata.rednote.net (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1137GaH017397 (version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=OK) for ; Sat, 31 Jan 2004 22:07:17 -0500 Received: (from janina@localhost) by cantata.rednote.net (8.12.3/8.12.3/Debian-6.6) id i1137FJn017386 for speakup@braille.uwo.ca; Sat, 31 Jan 2004 22:07:15 -0500 Date: Sat, 31 Jan 2004 22:07:15 -0500 From: Janina Sajka To: "Speakup is a screen review system for Linux." Message-ID: <20040201030715.GV945@rednote.net> References: <002401c3e78c$7dc97be0$7700a8c0@desktop> <20040201003949.GU945@rednote.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="HTLCc13+3hfAZ6SL" Content-Disposition: inline In-Reply-To: User-Agent: Mutt/1.3.28i Subject: Re: O T weather underground X-BeenThere: speakup@braille.uwo.ca X-Mailman-Version: 2.1.3 Precedence: list Reply-To: "Speakup is a screen review system for Linux." List-Id: Speakup is a screen review system for Linux. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 01 Feb 2004 03:07:21 -0000 --HTLCc13+3hfAZ6SL Content-Type: text/plain; charset=us-ascii Content-Disposition: inline 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 > > 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@braille.uwo.ca > http://speech.braille.uwo.ca/mailman/listinfo/speakup -- Janina Sajka Email: janina@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 --HTLCc13+3hfAZ6SL Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename=weather #!/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 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 --HTLCc13+3hfAZ6SL--