| Server IP : 199.250.214.225 / Your IP : 3.15.1.49 Web Server : Apache System : Linux vps64074.inmotionhosting.com 3.10.0-1160.105.1.vz7.214.3 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : nicngo5 ( 1001) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /bin/ |
Upload File : |
#!/bin/sh
# -*- tcl -*-
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}
package require Expect
# 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@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
if {[file executable /usr/bin/telnet] == 0} {
send_user "It seems that telnet is not installed. Please install telnet in order to use this script.\n"
exit 1
}
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