Forum Gündemi:

Konu Başlığı : Covid19 TCL

*
Bu konu; 27.07.2020 tarihinde açılmış olup, 0 defa yorumlanmıştır.
Konu Sahibi : Aytac
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
covid19 tcl

Çevrimiçi
Administrator
********
329
mesajlar
325
konular
2
REP PUANI
Proje Sorumlusu

04.02.2020
(Kayıt Tarihi)
Erkek
(Cinsiyet)
78 Karabük
Şehir
10
Beğenileri
4
Beğendiği
#1
27.07.2020, 21:51 (En son düzenleme: 27.07.2020, 21:54 Aytac.)
set covidKnl "#Kanal"

bind pub mn|oa .cov korona

proc korona {nick uhost hand chan arg} {
if {$chan ne $::covidKnl} { return 0 }
catch { eval exec curl -sS https://covid19.saglik.gov.tr/ } virus
set gunluk {}; set genel {}; set geniki {}; set gunliki {}
if {[regexp -- {<div class="takvim text-center">(.+?)</div>} $virus -> trh]} {
regsub -all -- {&#x130;} $trh \u0130 trh
lappend gunluk \00312$trh\003
}
if {[regexp -- {<h3 class="my-3 ilk-baslik">(.+?)</h3>.+?<p>(.+?)</p>} $virus -> guncel drm]} {
lappend gunluk \00314$guncel\003

}
if {[regexp -- {<div class="baslik-tablo">(.+?)</div>.+?<span class="buyuk-bilgi-l-yazi">(.+?)</ul>} $virus -> baslik tablo]} {
regsub -all -- {(</span>)} $tablo "|" tablo
set tbl [split $tablo |]
set tsay [lindex $tbl 0]; set tscr [lindex $tbl 1]; set vks [lindex $tbl 2]
set vkscr [lindex $tbl 3]; set vft [lindex $tbl 4]; set vtscr [lindex $tbl 5]
set bihsc [lindex $tbl 6]   ; set bihsscr [lindex $tbl 7]
lappend gunluk \00303$baslik\003 :
lappend gunliki  \002$tsay\002: \00304$tscr\003 \002$vks\002: \00304$vkscr\003
lappend gunliki \002$vft\002: \00304$vtscr\003 \002$bihsc\002: \00304$bihsscr\003
putserv "privmsg $chan :[join [stripin $gunluk]]"
putserv "privmsg $chan :[join [stripin $gunliki]]"
}
if {[regexp -- {<ul class=.+?>(.+?)</ul>} $virus -> gnl]} {
regsub -all -- {(</span>)} $gnl "|" gnl
regsub -all -- {(-->)} $gnl {} gnl
set spl [split $gnl |]
set ttsa [lindex $spl 0]; set tesscr [lindex $spl 2]; set tplvh [lindex $spl 3]
set tplsk [lindex $spl 4]; set tmvs [lindex $spl 5]; set tvsay [lindex $spl 6]
set tyobak [lindex $spl 7]; set tybsc [lindex $spl 8]; set enths [lindex $spl 9]
set tehsy [lindex $spl 10]; set iyihs [lindex $spl 11]; set tihsy [lindex $spl 12]
lappend genel \002$ttsa\002: \00304$tesscr\003 \002$tplvh\002: \00304$tplsk\003 \002$tmvs\002: \00304$tvsay\003
lappend geniki \002$tyobak\002: \00304$tybsc\003 \002$enths\002: \00304$tehsy\003 \002$iyihs\002: \00304$tihsy\003
putserv "privmsg $chan :[join [stripin $genel]]"
putserv "privmsg $chan :[join [stripin $geniki]]"
}
return 0
}

proc stripin str {
regsub -all -- "<.+?>" $str {} str
regsub -all -- {\s+} $str " " str
return [string trim $str]
}

Kod sahibi: Heartbroken

Kullanımı;

set covidKnl "#Kanal" bilgileri verecek kanal adını yazın.
.cov komutuyla botu kullanabilirsiniz.

[Resim: cov.png]
[Resim: tr.gif]


Konuyu Okuyanlar ?
1 Kullanıcı Bu Konuyu Okudu:
Aytac (29.07.2020, 12:46)

Foruma Git:


Görüntüleyenler: 1 Ziyaretçi