Hava Raporu Bülten

on $*:text:/^[.!]havarapor/i:#:{
  if %havchnck { .msg # > Bir onceki nickin hava raporu sorgulamasi devam ediyor, biraz sonra deneyin.. | return }
  set -eu10 %havchnck #
  havalar
}

alias havalar sockclose hdurum | sockopen hdurum qbilisim.net 80 | sockmark hdurum https://www.mgm.gov.tr/FTPDATA/analiz/sonSOA.xml
on *:sockopen:hdurum:{
  var %komut = sockwrite -n $sockname
  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut  User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
  %komut $crlf
}

on *:sockread:hdurum:{
  var %j_ | sockread -f %j_
  if *<GenelDurum>* iswm %j_ {
    if $regex(%j_,/<GenelDurum>(.+)</GenelDurum>/i) {
      var %m = $regml(1) , %z = 1
      while $gettok(%m,%z,46) {
        msg %havchnck  $turkcefont($v1)
        inc %z
      }
    }
  }
  if *<HavaSicakligi>* iswm %j_ {
    if $regex(%j_,/<HavaSicakligi>(.+)</HavaSicakligi>/i) {
      msg %havchnck $turkcefont($regml(1))    
    }
  }
  if *<RuzgarDurum>* iswm %j_ {
    if $regex(%j_,/<RuzgarDurum>(.+)</RuzgarDurum>/i) {
      msg %havchnck $turkcefont($regml(1))
    }
  }
  if *<DenizDurum>* iswm %j_ {
    if $regex(%j_,/<DenizDurum>(.+)</DenizDurum>/i) {
      msg %havchnck $turkcefont($regml(1))
    }
  }
}
alias -l turkcefont {
  return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$&circ;R,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,')
}