| Alper |
04 Kasım 2020 21:45 |
Türkiye Covid19(Korona) Genel Durum Remotesi
Merhabalar,
Daha önce TCL olarak paylaşılmıştı. Remote olarak kullanabilmeniz için ayarladım...
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 }
}
}
}
}
Kullanım:
.covid veya !covid
Görsel:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
