Kod
/hava - tüm şehirlerin hava durumunu listeler
/hava ŞEHİR - Belirli şehirin detaylı hava durumunu listeler
Kod
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
on $*:sockopen:/^hava/i: {
sockwrite -n $sockname GET $iif($sock($sockname).mark,$+(/api/hava/index.php?city=,$sock($sockname).mark),/api/hava/sehirler.php) HTTP/1.1
sockwrite -n $sockname Host: $sock($sockname).addr
sockwrite -n $sockname $crlf | unset %w
}
on $*:sockread:/^hava/i: {
var %b | sockread %b | tokenize 32 %b
if $sock($sockname).mark {
if <div class="weather-card"> isin %b {
echo -s $replace($htmlfree(%b), ,$chr(32))
}
}
else {
if (<img src isin %b) && ($token(%b,8,34) != >) { echo -s - | echo -s $token(%b,8,34) }
if city-name site-url isin %b { echo -s $htmlfree(%b) }
if <span> isin %b { echo -s $htmlfree(%b) }
}
}
alias hava {
var %y $ticks
sockopen $+(hava,%y) flort.gen.tr 80
if $1 { sockmark $+(hava,%y) $1 }
}