on *:text:!caweather*:#: {
  if ($len($2) == 6) { 
    set %caw2 $left($2,3) | set %caw3 $right($2,3) | set %cawchan $chan
    sockopen caweather www.accuweather.com 80
  }
  if ($len($2) == 3 && $len($3) == 3) { 
    set %caw2 $2 | set %caw3 $3 | set %cawchan $chan
    sockopen caweather www.accuweather.com 80
  }
}
on *:sockopen:caweather: { 
  sockwrite -n $sockname GET /canada-weather-forecast.asp?partner=accuweather&traveler=0&postalcode= $+ $+(%caw2,$chr(43),%caw3) HTTP/1.1 
  sockwrite -n $sockname Host: www.accuweather.com
  sockwrite -n $sockname Connection: close 
  sockwrite -n $sockname $crlf
}
on *:sockread:caweather: {
  if ($sockerr > 0) return 
  sockread %cawtemp 
  if ($sockbr == 0) return
  if (class="cityTitle"> isin %cawtemp) { set %cawloc $nohtml(%cawtemp) }
  if (_current_temps"> isin %cawtemp) { set %cawcurrent $replace($nohtml(%cawtemp),$(°),$chr(176)) }
  if (_current_rfval"> isin %cawtemp) { set %cawreal $replace($nohtml(%cawtemp),$(°),$chr(176)) }
  if (_curr_icon" isin %cawtemp) { set %cawcond1 $remove($gettok(%cawtemp,-1,61),$chr(34),$(/>)) } 
  if (_current_wxtext"> isin %cawtemp) { set %cawcond2 $nohtml(%cawtemp) }
  if (Humidity: isin %cawtemp) { set %cawhumidity $remove($nohtml(%cawtemp),Humidity:,$chr(9)) }
  if (Dew Point: isin %cawtemp) { set %cawdewpoint $remove($replace($nohtml(%cawtemp),$(°),$chr(176)),Dew Point:,$chr(9)) }
  if (Pressure: isin %cawtemp) { set %cawpressure $remove($nohtml(%cawtemp),Pressure:,$chr(9)) }
  if (Visibility: isin %cawtemp) { inc %t 1 | set %cawvisibility $+ %t $nohtml(%cawtemp) }
  if (quicklook_curr_head" isin %cawtemp) { set %cawcurtime $nohtml(%cawtemp) }
}
on *:sockclose:caweather: {
  if (!%cawloc) { msg %cawchan Please choose another postcode as that ones does not exists. }
  if (%cawloc) { 
    msg %cawchan Location: $remove(%cawloc ,$chr(9))
    msg %cawchan Current Condition: %cawcond1 and $remove(%cawcond2,$chr(9))
    msg %cawchan Currently: $remove(%cawcurrent,$chr(9)) Feels Like: $remove(%cawreal,$chr(9))
    msg %cawchan Humidity: %cawhumidity Dew Point: $remove(%cawdewpoint,$chr(32))
    msg %cawchan Pressure: %cawpressure Visibility: $remove(%cawvisibility1,Visibility:,$chr(32),$chr(9))
    msg %cawchan $remove(%cawcurtime,$chr(9)) in $remove(%cawloc,$chr(9))
    msg %cawchan http://www.accuweather.com/canada-weather-forecast.asp?partner=accuweather&traveler=0&postalcode= $+ $+(%caw2,$chr(43),%caw3)
  }
  unset %caw* %t*
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
 

Commenting Options