Kod

on $*:text:/^[.!]covid$/Si:#: { .covid }
alias kdzlt return $replace($1-,":",$+(:,$chr(32),$chr(3),04),tarih,Tarih,gunluk_test,Günlük Test,gunluk_vaka,Günlük Vaka,gunluk_vefat,Günlük Vefat,gunluk_iyilesen,Günlük İyileşen,toplam_test,Toplam Test,toplam_vefat,Toplam Vefat,toplam_vaka,Toplam Vaka,toplam_iyilesen,Toplan İyileşen,hastalarda_zaturre_oran,Hastalarda Zatürre Oranı,agir_hasta_sayisi,Ağır Hasta Sayısı,yatak_doluluk_orani,Yatak Doluluk Oranı,eriskin_yogun_bakim_doluluk_orani,Erişkin Yoğun Bakım Doluluk Oranı,ventilator_doluluk_orani,Ventilator Doluluk Oranı,ortalama_temasli_tespit_suresi,Ortalama Temaslı Tespit Süresi,filyasyon_orani,Filyasyon Oranı)
alias tdzlt return $replace($1-,01,Ocak,02,Şubat,03,Mart,04,Nisan,05,Mayıs,06,Haziran,07,Temmuz,08,Ağustos,09,Eylül,10,Ekim,11,Kasım,12,Aralık)
alias covid {
  if $sock(covid) { sockclose $ifmatch }
  sockopen -e covid covid19.saglik.gov.tr 443
  sockmark covid $chan
}
on *:sockopen:covid: {
  if $sockerr {
    echo -a 12Bağlantı hatası $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET /TR-66935/genel-koronavirus-tablosu.html HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: covid19.saglik.gov.tr
  sockwrite -nt $sockname
}

on *:sockread:covid: {
  var %f | sockread -f %f
  if (*var geneldurumjson*[{"tarih"* iswm %f) { 
    if $regex(%f,/"(\w+":"[\d+\.]+)/Sgi) { var %r = 1
      msg $sock($sockname).mark 06 $+ $token($token($regml(1),3,34),1,46) $tdzlt($token($regml(1),2,46)) $token($regml(1),3,46) 02TÜRKİYE Genel Koronavirüs Tablosu
      while %r <= $regml(0) {
        msg $sock($sockname).mark $kdzlt($regml(%r))
        inc %r
        if ($token($regml($calc(%r +1)),1,34) == tarih) { break }
      }
    }
  }
}