Wetter Deutschland 1.0

[chain]

ein Addon mit dem man im Chan das Deutschlandwetter anzeigen lassen kann... gesucht wird per Postleitzahl

 

>########################################################################  Wetter Deutschland 1.0######  Autor:     Liath###  Server:    irc.mindforge.org###  Chan:      #Germany######  Web:       www.germany-project.de###             www.mircportal.de######  Syntax:    !wetter on *:text:!wetter*:#: {  var %txt = $scriptdirwetter_tmp.txt | write -c %txt  set %wetter.chan $chan | set %wetter.plz $2  if ($sock(wetter)) { sockclose wetter }  sockopen wetter de.weather.com 80}on *:SOCKOPEN:wetter:{  if ($sockerr) { echo -a 14Seite konnte nicht gecheckt werden :( | halt }  sockwrite -n $sockname GET /weather/local/ $+ %wetter.plz $+ ?x=00&y=00 HTTP/1.1  sockwrite -n $sockname Host: de.weather.com  sockwrite -n $sockname $crlf}on *:SOCKREAD:wetter:{  var %txt = $scriptdirwetter_tmp.txt, %wetter  sockread %wetter  while ($sockerr == 0) && ($sockbr > 0) {    if (Datenbank isin %wetter) {      msg %wetter.chan Der angegebene Ort konnte in der Datenbank nicht gefunden werden.      sockclose wetter | write -c %txt | return    }    elseif (Aktuelle Wetterlage isin %wetter) { set %w.an 1 }    elseif (%w.an == 1) {      if (Local Time isin %wetter) || ( iswm %wetter) || (*CLASS="obsText"* iswm %wetter) || (Gefühlte Temp. isin %wetter) || ( isin %wetter) || (0
Minimal isin %wetter) {        var %w = $remove(%wetter,,,,,,
, °C)        write %txt %w      }    }    if ( isin %wetter) {      inc %w.an | write -dl3 %txt | wetterpost | return    }    sockread %wetter  }}alias wetterpost {  var %txt = $scriptdirwetter_tmp.txt  var %uvi = $remove($gettok($read(%txt,13),2,62),)  var %uvs = $gettok($read(%txt,13),3,62)  msg %wetter.chan 3Wetter für14 $read(%txt,1) 15-14 $gettok($replace($gettok($read(%txt,2),7,59),Local Time,$+ Uhr Lokalzeit),1,40)  msg %wetter.chan 7Temperatur:14 $remove($read(%txt,3), ,°C) $+ °C 15-14  7gefühlt:14 $remove($gettok($read(%txt,5),3,59),&deg) $+ °C 15-14 9Lage:14 $read(%txt,4) 15-14 9Wind:14 $read(%txt,6)  msg %wetter.chan 7Sicht:14 $read(%txt,9) 15-14 7Luftfeuchtigkeit:14 $read(%txt,8) 15-14 7Luftdruck:14 $read(%txt,10) 15-14 9UV-Index:14 %uvi  sockclose wetter | .remove %txt | unset %wetter.*}