weather small
Posted by w.e
Monday, December 05, 2005
Description: really small
alias weather {
sockclose weather- $+ $replace($1-,$chr(32),+)
sockopen weather- $+ $replace($1-,$chr(32),+) www.weather.com 80
}
on *:SOCKOPEN:weather*:{
sockwrite -n $sockname GET /weather/local/ $+ $gettok($sockname,2-,45) $+ ?lswe= $+ $gettok($sockname,2-,45) $+ &lwsa=WeatherLocalUndeclared&from=whatwhere HTTP/1.1
sockwrite -n $sockname Host: www.weather.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:weather*: {
var %temp
sockread %temp
if (<title isin %temp) {
set %we.town $gettok($gettok(%temp,4-,114),1,45)
}
if (</B></TD> isin %temp) {
set %we.condi $gettok($gettok(%temp,5,62),1,60)
}
if (Feels Like isin %temp) {
set %we.deg $gettok($gettok(%temp,4,62),1,60)
set %we.feels $replace($gettok($gettok(%temp,8,62),1,60),°F,ºF)
sockwrite -n bot* privmsg %we.chan : $+ It is currently $replace(%we.deg,°F,ºF) (Feels like %we.feels $+ ) with $iif($right(%we.condi,1) != y,%we.condi $+ y,%we.condi) conditions in %we.town $+ .
unset %we.*
}
}