IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   covid19 saglik.gov.tr (https://www.ircforumlari.net/tcl-scriptler/863474-covid19-saglikgovtr.html)

Heartbroken 01 Nisan 2020 21:47

covid19 saglik.gov.tr
 
Başlıktan Anlaşılacağı Üzre;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Adresindeki Bilgiyi ; set covidKnl
Ayarında Belirttiğiniz #Kanal'a

( Büyük-Küçük Harf Uyumlu Yazılmalı!)

Eggdrop Kullanıcı Flagı Olarak: mn|oa

m = Bot Master, n = Bot Sahibi
o = Kanal Op'u , a = Kanal'da Oto-Op Alan
Kişiler Tarafından Verilecek: .cov
Komutuyla #Kanal'a Atar!


Not: Site Yoğun Olduğu Saatlerde,
( Bilhassa, Bakan'ın
Rakkamları Açıkladığı Saatlerde,
Site Yükü Kaldırmıyor Olmalıki,
Tarayıcı (Browser)'da Dahi Yüklenmiyor,
ZamanAşımına (Timeout) Düşüyor!
O Aralıkta Bot
Komuta Yanıt Vermezse Şaşırmayın!
Bağlantı Zaman Aşımı Olmuş,
Veri Alınamamıştır!
Bu Ne Botun,Ne Script'in,
Nede Kodu Yazan, Benim Kabahatim!!!)



Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Şekil-A: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 01 Nisan 2020 21:58

Cevap: covid19 saglik.gov.tr
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Test ettim çalışıyor
Teşekkür ederiz eline sağık.

GeN 04 Nisan 2020 12:07

Cevap: covid19 saglik.gov.tr
 
eline sağlık güzel paylaşım olmuş..

Sentry 04 Nisan 2020 15:21

Cevap: covid19 saglik.gov.tr
 
Çalıştıramadım Ama Yardımcı Olabilirmisiniz.

Heartbroken 04 Nisan 2020 19:06

Cevap: covid19 saglik.gov.tr
 
Bu Kodu: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
( Çıktı Satırlarını Değiştim!
Dileyen Bunu,Dileyen Üsttekini Kullanır! )


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Notepad++ ,Sublime Vb..
Tcl Desteği Olan Bir Txt Editörüne Kodu
Kopyalayın.


#Kanal'ınızın Adını Ayar Kısmında Girip,
Kaydedin.
CuteFTP ,Filezilla Vb. Bir FTP/sFTP
Aracıyla Shell Hesabınıza Bağlanın,
Botunuzun /Scripts Klasörüne Kaydettiğiniz Scripti;
Sürükle Bırakla Yada Sağ Tıkla,
Karşıya Yükle Seçip Gönderin.


Botun .Conf Dosyasının Üstüne Sağ Tıkla
Menüden Seçip Açın,
Alt Sıralarda :
source scripts/Script-Adı.tcl
Şeklinde Ne İsimle Kaydedilmişse .Conf'a

Harf Uyumlu Yazarak Ekleyin Ve Kaydet
Deyip Sunucuya Gönderin.


Ya Bota Telnet/DCC/ctcp Chat Yöntemlerinden
Biriyle Bağlanıp :
.rehash
Edin Yada Kanalda:
/msg Bot rehash <Şifreniz>
İle Değişiklikleri Botun Görmesini Sağlayın.
.cov Komutuna Cevap Vermesi Gerekir ,
Vermiyorsa Sorun Olabilecek Şeyler;


Bot Sizi Tanımıyordur!
Ya Botun .User Dosyasını Açıp Kontrol Edebilirsiniz.
Yahut Bota Bağlanıp:
.whois <Bot Kullanıcı Adınız>
Yada :
.match <Kullanıcı Adı>
Gibi Bir Komutla Bottaki Girdinizi,
Botun Sizi Nasıl Gördüğü Ve Ne Gibi Kullanıcı
Haklarına/Flaglarına Sahip Olduğunuz Görülür.
Eğerki Scriptin İstediği:
mn|ao Flaglarından En Az Birine Sahip Değilseniz,
Komutu İşletemezsiniz.
Botta Kayıtlı Olan IRC Görünümü Şimdi
Farklıysa:
.+host <Kullanıcı Adı> Nick!İdent@Host
(Wildcard Kullanılabilir Yani:
*!*İdent-Kısmı@*Hostun-Bir-Kısmı
Şeklinde Değişmeyen Bölümleriyle Kaydedebilirsiniz)
Böylece Bot Sizi Yeniden IRC Üstünde Tanımaya Başlar.

.chattr <Kullanıcı Adı> +Flag-Flag

Gibi Komutlada İstediğiniz Flagı Alabilr,
Çıkarabilirsiniz!


Bknz : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Diğer İlk Etapta Aklıma Gelen İhtimal

Sizin Sunucuda "curl" Kurulu Değildir!
Shell'inize SSH İle Bağlıyken:
curl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
( Yada Herhangi Bir Url! )

Vb. Şekilde İşletmeye Çalışıp Kontrol Edebilirsiniz!

Not: Botun ***.User Dosyasını Açıp ,
Elle Manuel Değişmeye Çalışmamalısınız!
Bu Genelde Kötü Bir Fikirdir!
Dosyanın Formatının Bozulup,Bot Tarafından
Okunamamasına,İşlenememesine Sebep Olabilir!

Tavsiye Edilen Yöntem Bota Bağlanıp Komutla
Kullanıcı Dosyasındaki Kullanıcı Ayarlarını
Editlenmesini Sağlamanızdır!

Heartbroken 04 Nisan 2020 23:18

Cevap: covid19 saglik.gov.tr
 
Bu Arada;
Bugün Verilerine Yeni Bir Veri Daha Eklenmiş!
"Bugünkü İyileşen Sayısı" Başlığında.
Bu Yoktu Dün!


Buda Eklendi:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Şekil-A1:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Flag'lar Sorun Oluyorsa,
Bind .. Satırındaki : mn|oa Değişebilirsiniz!
Sadece : - Yada -|- Olarak Ancak;
Bunun Anlamı Komutu Herkesin Kullanabileceği!

Ben Önüne Gelenin Kullanması Sakıncalı Olabilir!
Düşüncesiyle Kısıtladım Komuta Erişimi.
Ancak Yukarıda Anlattığım Şekilde Kendinizi Bota Tanıtabilirseniz,
Daha İyi Olacaktır!

Çünkü Eğer Sorun Bundan Kaynaklıysa;
Bot Sizi "Sahip" (Owner) Olarak Tanımıyor Demektir.
Buda Botun Özelliklerine Tam Olarak Hakim Olamamanız
Yada Kullanamamanız Anlamına Geliyor.
Pek "İdeal" Bir Durum Sayılmaz!

Heartbroken 22 Mayıs 2020 14:02

Cevap: covid19 saglik.gov.tr
 
Forum, Tcl Kod Desteği İyi Değil!
Tcl Yazım Desteği,Hata Kontrolüde Yapan
O TclPaste Sitesini Tercih Ederim.
Evet, Dediğiniz Gibi Belli Bir Süre Sonra
Siliniyor! (Sanırım Bir Ay Sonra)
Bu Sorun Değil,Yenilerim Gerekirse.


Zaten Paylaştığım Hiçbir Kod ,

Paylaştığım İlk Günkü Gibi Kalmıyor!
Sürekli Üstünde Oynanıyor,
Birşeyler Eklenip Çıkarılıyor,Güncelleniyor Vs...


O Sebeple Böylesi Daha İyi Olabilir
Kullanmak İsteyen İçin!...
Güncel,Çalışan Kodu Almış Oluyor!...



Kod : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

IUC 22 Haziran 2020 22:24

Cevap: covid19 saglik.gov.tr
 
kırık link :(

Heartbroken 24 Haziran 2020 16:12

Cevap: covid19 saglik.gov.tr
 
Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Berk 24 Haziran 2020 23:35

Cevap: covid19 saglik.gov.tr
 
Bunu Mirc'e Remote olarak ayarlama şansımız olabilir mi ?

Heartbroken 25 Haziran 2020 00:20

Cevap: covid19 saglik.gov.tr
 
Bunu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bölümünde Konu Açıp Sorarsanız;
Bir Cevap Alma Şansınız Olur!

Bu Bölümde Mirc-Remote Görülmez!
O İşlerle Uğraşanlar,Öncelikle Forum'un
O Bölümüne Bakacağından;
Dönüş Alma Şansı Daha Yüksek Olacaktır!...

Heartbroken 17 Ağustos 2020 16:09

Cevap: covid19 saglik.gov.tr
 
Bir Süre Önce; covid19.saglik.gov.tr
Sayfasındaki Kaynak Kodlarında Ve
Kimi Bilgilerde Değişikliğe Gidildi.


Artık Sitede Yer Alan Verilerdeki

ğ ü ş ç Gibi Türkçe Karakterleri
HTML Entities (Varlıkları) İle Değişerek
Kullanmaya Başladılar.
Bknz: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Bu Nedenle Yeni Kodun Çıktılarının Düzgün,
Okunabilir Olması İçin; tcllib/htmlparse
Paketi Gereklidir!


tcllib Kuruluysa Sistemde Bu Kodu:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kurulu Değilse Ve Kurma İmkanı Yoksa Şunu:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kullanabilirsiniz...


Örnek Çıktı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 17 Ağustos 2020 16:23

Cevap: covid19 saglik.gov.tr
 
Eline sağlık.

Heartbroken 03 Eylül 2020 12:17

Cevap: covid19 saglik.gov.tr
 
Başlangıçta; Tek Bir Basit
Sayfadan İbaretti Sağlık Bakanlığının
Korona Verilerini Paylaştığı Adres.


Birkaç Hafta Evveli,
Ufak Ufak Eklemeler,Geliştirmeler
Yapılmaya Başlandı.
Bağlantılar Eklendi,Dil Seçeneği Vesaire
Eklenmişti.


Sonra Veri Çektiğimiz Kodlarda Değişme
Olmuştu.

Şimdiyse Dünden İtibaren Başlı Başına
Detaylı İçerikli Bir Site Haline Getirildi.
JavaScript İle Yeniden Yapılmış Site!
Tüm Veriler Artık JS Kodlarıyla Gizlenmiş,
Gömülmüş Halde Ve Veri Çekilemiyor!


Yani Kısaca Eski Kod/Script Tamamen Öldü!
Sıfırdan Yeni Kod Yazıldı.
Ancak Bunun İçin;
Tcl-TLS 1.7 Sürümlerden Birine,
En Azından Tcl 8.5 Veya Üstü Sürüme,
tcllib/JSON Paketine İhtiyacınız Olacak!


Sitede, JavaScript İçinde Gömülü Bir API
Bağlantısı Üzerinden JSON Formatındaki
Verileri Çekmek/Ayıklamak İçin Kullanıldılar!


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Örnek Çıktısı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 04 Eylül 2020 08:40

Cevap: covid19 saglik.gov.tr
 
TCL Link kırık.

Heartbroken 07 Eylül 2020 00:45

Cevap: covid19 saglik.gov.tr
 
Tcl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Linki Açılıyor Ve

Tarih-Saatle Postaladığım Şekilde
Yerinde Duruyor!
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sitede : ERROR Yazan Satırların Sebebi:
Sitenin Tcl8.5 Ve Sonraki Sürümlere Ait
"Dict" [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Komutunu Anlamaması,
WARNING İse tcllib/JSON Paketi Komutlarını
Tanıyamamasından Kaynaklanıyor!
Kodun Değil,Sitenin Kusuru!!!

Heartbroken 05 Ekim 2020 00:27

Cevap: covid19 saglik.gov.tr
 
Siteye Eklenen Yeni Bilgilerde
Koda Eklendi!


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Örnek:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ZaLiM1979 02 Kasım 2020 01:14

Cevap: covid19 saglik.gov.tr
 
Kodu indirmek icin #TCL tikladim ama sitede yok diyor.

paylasabilecek arkadaslar varmi acaba?

Heartbroken 02 Kasım 2020 14:36

Cevap: covid19 saglik.gov.tr
 
Bi Yukarıdaki Postta
Kodun Çalışan Son Hali Var!
Oradaki Link Çalışıyor...
>>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Fredyyy 03 Kasım 2020 13:10

Cevap: covid19 saglik.gov.tr
 
Merhabalar, bu kodu remoteye uygun hale getirebilir misiniz?

Heartbroken 03 Kasım 2020 16:08

Cevap: covid19 saglik.gov.tr
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

>>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Halihazırda Bunun Açılmış Konusu Var!
>>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Heartbroken 26 Kasım 2020 22:59

Cevap: covid19 saglik.gov.tr
 
Günlük Hasta Sayısı Dışında,
Günlük Vaka Sayısıda
Bugünden İtibaren Sağlık Bakanlığı Sitesinde
İlan Edilmeye Başlandı.


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Örnek:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 03 Ocak 2021 23:22

Cevap: covid19 saglik.gov.tr
 
Link kırık.

Heartbroken 04 Ocak 2021 01:58

Cevap: covid19 saglik.gov.tr
 
Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Örnek Çıktı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Heartbroken 22 Ocak 2021 20:13

Cevap: covid19 saglik.gov.tr
 
Sağlık Bakanlığı'nın Sitesindeki
Farklı Bir Linkten;
"Toplam Aşılanan Kişi Sayısı"
Script'in Çıktılarına Eklendi!


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Örnek:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

IUC 18 Şubat 2021 15:12

Cevap: covid19 saglik.gov.tr
 
The file- or paste-id you specified is not on this server

Heartbroken 20 Şubat 2021 08:48

Cevap: covid19 saglik.gov.tr
 
22 Ocak'ta Eklemişim..
Saat 18:02'de.
(Almanya Saati Olmalı! Site Alman!)
Bir Üstteki Postta,
Verdiğim Paste Linki.
Kod Hala Orada!

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Heartbroken 22 Şubat 2021 00:00

Cevap: covid19 saglik.gov.tr
 
Bende Paste Sitesinden Aldığınızı
Düşünmüştüm O Hatayı!

Meğer Script Ölmüş,
Json Veri Aldığı API İptal Edilmiş!
Bir Haftadır Kullanmamıştım Komutu
O Arada Pert Olmuş...
Sıkıntı Yok!!!

Kodun Yeni Hali:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Aşı Verilerinde Eklemeler Yapılmış Siteye.
Onlarda Eklendi Ayrı Satır Olarak!

Örnek:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Heartbroken 19 Mart 2021 18:19

Cevap: covid19 saglik.gov.tr
 
Koda Yapılan Eklemelerle,
Haftalık Her Şehir İçin
Açıklanan 100.000 Kişide Görülen
Vaka Sayılarıda Eklendi!


set iller {.....}
Ayarında Dilediğiniz İlleri Aralarında
Bir Boşluk Bırakarak Girebilirsiniz.
.risk Komutuyla Bu Ayarda Girilmiş
İllerin Risk Durumu Listelenir.


.risk <Şehir-Adı>
Komutuyla Sorgulanan İl İçin
Risk Durumu Alınır!


Ayrıca .cov Komutuyla Listelenen;
Günlük,Haftalık,Genel Ve
Aşılama Durumu Yanında Ayrı
Satırda Ayarda Listeli İllerin
Risk Durumlarıda Görülebilir!


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Örnek:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 19 Mart 2021 18:29

Cevap: covid19 saglik.gov.tr
 
Emeğine sağlık kardeşim.

Heartbroken 21 Mart 2021 22:03

Cevap: covid19 saglik.gov.tr
 
Son Koda Yapılan Ekle,
Komut Kullanmaya Gerek Kalmadan
Yeni Günün Verileri Açıklandığında,
Kodun Aktif Edildiği Kanala
Bilgilerin (.cov Komutuyla Alınanların!)
Otomatik Olarak Postalanması Sağlandı!
(Diyelimki; Günlük Durum Saat 20:00
Olduğunda Siteye Düşüyorsa,
Kanalınızda O Vakitte Görülecek!)


Kod: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

IUC 14 Kasım 2021 18:51

Cevap: covid19 saglik.gov.tr
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yeniden paylaşabilirmisin rica etsem

Che 14 Kasım 2021 18:53

Cevap: covid19 saglik.gov.tr
 
Alıntı:

ufukcingay Nickli Üyeden Alıntı (Mesaj 1042555394)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yeniden paylaşabilirmisin rica etsem

Kod:

set url {https://covid19.saglik.gov.tr/?_Dil=2}
set vaccine {https://covid19asi.saglik.gov.tr/}
set iller {istanbul ankara İzmir manisa Van Diyarbakır antalya muğla kocaeli edirne trabzon Ağrı}
set C19dosya C19.db

setudef flag korona

package require http
package require tls 1.7
package require json
package present Tcl 8.5

::http::register https 443[list tls::socket -autoservername 1]

if {![file readable $C19dosya] || ![file exists $C19dosya]} {
    catch { close [open $C19dosya w] }
}       

bind pub - .cov covid_pubs
bind pub - .risk pandemi_risk
bind time - "*0 *" Corona_Time

proc pandemi_risk {nick uhost hand chan arg} {
        set pan [http::geturl https://covid19.saglik.gov.tr/]
        set kaynak [http::data $pan]
        ::http::cleanup $pan
        set hedefil [lindex [split $arg] 0]
        set out {}
        set i 0
        foreach {_ bir} [regexp -all -inline -- {<tr>(.+?)</tr>} $kaynak] {n iki} [regexp -all -inline -- {<g data-durum=\"<b style=.+?>(.+?)</b>} $kaynak] {
                regexp -- {<td>(.+?)</td>.+?<td>(.+?)</td>} $bir - sehir yuzde
                if {[llength $hedefil]} {
                        if {[string match -nocase *$hedefil* $sehir]} {
                                lappend out [renkle $sehir [string trim $iki]]\00314$yuzde\003
                        }
                } else {
                        if {[string match -nocase *$sehir* $::iller]} {
                                lappend out [renkle $sehir [string trim $iki]]\00314$yuzde\003-
                        }
                }
                regsub -all -- "<.+?>" $out {} out
                regsub -all -- {\s+} $out " " out
                set out [string trim $out]
                incr i
        }
        puthelp "privmsg $chan :[join $out]"
}

proc renkle {il durum} {
    switch -nocase -- $durum {
                Orta { set risk "\002$il\002 \00308$durum\003" }
              Düşük { set risk "\002$il\002 \00312$durum\003" }
              Yüksek { set risk "\002$il\002 \00307$durum\003" }
    "Çok Yüksek" { set risk "\002$il\002 \00304$durum\003" }
            default { set risk "\002$il\002 $durum" }
        }
        return $risk
}

proc Corona_Time args {
        foreach _ [channels] {
            if {[channel get $_ korona]} {
                    set TestGun [dict get $::cov gunluk_test]
                        set CovTest [C19_read $::C19dosya]
                        if {$TestGun ne [string trim $CovTest]} {
                            Auto_Cov19 $_
                C19_write $::C19dosya $TestGun
                        }
                }
        }
        return 0
}

proc C19_read Covf {
        if {[file readable $Covf] && [file exists $Covf]} {
                set dy [open $Covf r]
                set tr [gets $dy]
                close $dy
        }
        return $tr
}

proc C19_write {Cfile Ctrh} {
        set fp [open $Cfile w]
        puts $fp $Ctrh
        close $fp
}

proc Auto_Cov19 ch {
    set ashi [Got_C19 $::vaccine]       
        set ::cov [json::json2dict [Got_C19 $::url]]
        regexp -- {yapilanasisayisi = (.+?);.+?= (.+?);.+?= (.+?);.+?= (.+?);.+?= '(.+?)';} $ashi "" asayi kisay 1doz 2doz sonup
        dict with ::cov {
                puthelp "privmsg $ch :\00312$tarih\003 \00314Türkiye'deki Güncel Durum\003 \00303TÜRKİYE GÜNLÜK KORONAVİRÜS TABLOSU\003 :"
                puthelp "privmsg $ch :\00302\002BUGÜN\002\003 \002TEST SAYISI\002 : \00304$gunluk_test\003 \002VAKA SAYISI\002 : \00304$gunluk_vaka\003 \002HASTA SAYISI\002 :\
                \00304$gunluk_hasta\003 \002VEFAT SAYISI\002 : \00304$gunluk_vefat\003 \002İYİLEŞEN SAYISI\002 : \00304$gunluk_iyilesen\003"
                puthelp "privmsg $ch :\00302\002BU HAFTA\002\003 \002HASTALARDA ZATÜRRE ORANI\002 : \00304%$hastalarda_zaturre_oran\003 \002YATAK DOLULUK ORANI\002 : \00304%$yatak_doluluk_orani\003\
                \002ERİŞKİN YOĞUN BAKIM DOLULUK ORANI\002 : \00304%$eriskin_yogun_bakim_doluluk_orani\003 \002VENTİLATÖR DOLULUK ORANI\002 :\
                \00304%$ventilator_doluluk_orani\003 \002ORTALAMA TEMASLI TESPİT SÜRESİ\002 : \00304$ortalama_temasli_tespit_suresi Saat\003 \002FİLYASYON ORANI\002 : \00304%$filyasyon_orani\003"
                puthelp "privmsg $ch :\00302\002TOPLAM\002\003 \002TEST SAYISI\002 : \00304$toplam_test\003 \002VAKA SAYISI\002 : \00304$toplam_hasta\003\
                \002VEFAT SAYISI\002 : \00304$toplam_vefat\003 \002AĞIR HASTA SAYISI\002 : \00304$agir_hasta_sayisi\003 \002İYİLEŞEN HASTA SAYISI\002 : \00304$toplam_iyilesen\003"
                puthelp "privmsg $ch :\002YAPILAN AŞI SAYISI\002 : \00304[getr8 $asayi]\003 \002AŞI YAPILAN KİŞİ SAYISI\002 : \00304[getr8 $kisay]\003\
                \0021.DOZ AŞI YAPILAN KİŞİ SAYISI\002 : \00304[getr8 $1doz]\003 \0022.DOZ AŞI YAPILAN KİŞİ SAYISI\002 : \00304[getr8 $2doz]\003 \002GÜNCELLEME SAATİ\002 : \00304[getr8 $sonup]\003"
                puthelp "privmsg $ch :[pandemi_risk "" "" "" $ch ""]"
        }
}

proc covid_pubs {nick uhost hand chan text} {
        if {![channel get $chan korona]} { return 0 }
        Auto_Cov19 $chan
        return 0
}

proc getr8 num { regsub -all -- {\d(?=(\d{3})+($|\.))} $num {\0.} }

proc Got_C19 Linkin {
        set token [http::geturl $Linkin]
        set data [http::data $token]
        ::http::cleanup $token
        regsub -all -- {.*?<script src="/assets/js/lang/en.js"></script>} $data "" data
        regsub -all -- {.*?var sondurumjson = \[} $data "" data
        regsub -all -- {\];//\]\]>.*?} $data "" data
        regsub -all -- {<.+?>} $data "" data
        return [string trim $data]
}


IUC 14 Kasım 2021 19:07

Cevap: covid19 saglik.gov.tr
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkür ederim saolasın

Heartbroken 14 Kasım 2021 22:54

Cevap: covid19 saglik.gov.tr
 
Kod Hakkında:
Site Hemen Her Ay Değiştiriliyor,
Açıklanan Veriler Eksiliyor Yada
Değişiyor!

Günlük,Toplam Ve Detay Verileri
Bu Scriptin Yukarıdaki En Son Halinde
Sitede Vardı.

Şimdi Sınırlı Günlük Veri Ve
Bir .PNG Image/Resim Dosyasına
Gömülü Haftalık Verisi Var Sitede.
Son Değişiklikte Bolca Detaylı Aşı
Bilgisi Sayfanın Her Yerine Serpiştirildi.


Eğer .PNG Resim Valid/Geçerli Bir
Formatta Olsaydı;tcllib Paketlerinden
Biri İle Haftalık Ve Detay Bilgileri
İçerisinden Çekebilirdim!

Ancak Denediğimde Invalid/Geçersiz
Hatalı/Bozuk Bir Formatta Olduğu,
Bu Nedenlede Bu İşler İçin Yapılmış
tcllib Paketiyle Dahi Üzerinde
Herhangi Bir İş Yapmak Mümkün Olmadı!...


JavaScript'le Site Kaynak Kodlarına
Gömdükleri Yerlerde Alınacak Birşey Yok!
Tek Alınacak Veri Kaynak Kodları İçerisinde

JSON Formatındaki Günlük Açıklanan Birkaç
Bilgiden İbaret.
Haftalık,Genel Yada Detaylı Bilgiler
Yine JSON Olarak Varsada ;


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



Temmuz'da Takılıp Kalmış Ve Güncellenmiyor,
Her Nereden Geliyorsa Bu Veri....


Tüm Bu Sebeplerle ;
Bu Siteden Kullanılabilecek Veriler:


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



Bunlardan İbaret Artık!
Bununda Garantisi Yok!
Çünkü Bu Kod İlk Yazıldığından
Belli Sürekli Siteyle Oynayıp,
Kodu Patlatıyorlar!


Ayrıca Verdikleri Verilerin Güvenirliği
Soru İşareti, Şöyleki:
Detaylı Veriler Vermeye Başladıkları
Dönemde Tüm Dünya Ülkelerinin
Verilerini Yayınlayan:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Sitesiyle Veriler Nispeten Uyumluydu..
Ama Şimdi Sağlık Bakanlığı Sitesindeki
Veriler Kısıtlandığından Bu Yana
Artık Bilgiler Birbirini Tutmuyor!?


Toplam Vefat Birinde:73,531
Diğerinde:71.724
Yorum Sizin!...


Yine/Yeniden Yazılmış Resimdeki
Veriyi Alan Kod:


Kod:

package require http
package require tls 1.6.4
package require json

setudef flag korona

set url {https://covid19.saglik.gov.tr/}

bind pub mnf|oa .cov Korona_pub

::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]

proc Korona_pub {nick uhost hand chan arg} {
    if {![channel get $chan korona]} { return 0 }
    set token [http::geturl $::url -timeout 12000]
    set data [http::data $token]
    ::http::cleanup $token
    set asi {}
    if {[regexp -- {doz1asisayisi = '(.+?)'.+?doz2asisayisi = '(.+?)'.+?doz3asisayisi = '(.+?)'.+?doz4asisayisi = '(.+?)'} $data -> d1 d2 d3 d4]} {
          lappend asi \002Doz-1\002: \00304$d1\003 \002Doz-2\002: \00304$d2\003 \002Doz-3\002: \00304$d3\003 \002Doz-4\002: \00304$d4\003
    }
    if {[regexp -- {toplamasidozusayisi = '(.+?)'.+?gunluksidozusayisi = '(.+?)'.+?dozturkiyeortalamasi = '(.+?)'.+?doz2turkiyeortalamasi = '(.+?)'} $data -> tpla glka dzto d2t]} {
          lappend asi \002Toplam Doz\002: \00304$tpla\003 \002Günlük Doz\002: \00304$glka\003 \002Doz-1 Yüzde\002 \00304%$dzto\003 \002Doz-2 Yüzde\002: \00304%$d2t\003
    }
    if {[regexp -- {doz3turkiyeortalamasi = '(.+?)'.+?doz4turkiyeortalamasi = '(.+?)'.+?asidozuguncellemesaati = '(.+?)'} $data -> d3to d4to adgs]} {
          lappend asi  \002Doz-3 Yüzde\002 \00304%$d3to\003 \002Doz-4 Yüzde\002 \00304%$d4to\003 \002Güncelleme\002 \00304$adgs\003
    }
          regsub -all -- {.*(//<!\[CDATA\[)} $data {} data
          regsub -all -- {(\;//\]\]>).*} $data {} data
    if {[regexp -- {var sondurumjson = (.+?);var haftalikdurumjson = ([^\$]*)$} $data -> bir iki]} {
          set gun [lindex [json::json2dict $bir] 0]
          #set hafta [lindex [json::json2dict $iki] 0]
          set trh [dict get $gun tarih]
          set gtst [dict get $gun gunluk_test]
          set gvk [dict get $gun gunluk_vaka]
          set gvft [dict get $gun gunluk_vefat]
          set giyi [dict get $gun gunluk_iyilesen]
          puthelp "privmsg $chan :\00312Bugün\003 \00303$trh\003: \002Test\002: \00304$gtst\003 \002Vaka\002:\
          \00304$gvk\003 \002Vefat\002: \00304$gvft\003 \002İyileşen\002: \00304$giyi\003"
          #set hth [dict get $hafta tarih]
          #set tstsay [dict get $hafta test_sayisi]
          #set hvak [dict get $hafta vaka_sayisi]
          #set hhas [dict get $hafta hasta_sayisi]
          #set hvs [dict get $hafta vefat_sayisi]
          #set his [dict get $hafta iyilesen_sayisi]
        # puthelp "privmsg $chan :\00312Hafta\003 \00303$hth\003: \002Test\002: \00304$tstsay\003 \002Vaka\002:\
        #\00304$hvak\003 \002Hasta\002: \00304$hhas\003 \002Vefat\002: \00304$hvs\003 \002İyileşen\002: \00304$his\003"
          #set tvs [dict get $hafta toplam_vaka_sayisi]
          #set tvft [dict get $hafta toplam_vefat_sayisi]
          #set oahs [dict get $hafta ortalama_agir_hasta_sayisi]
          #set hzo [dict get $hafta hastalarda_zaturre_oran]
          #set ydo [dict get $hafta yatak_doluluk_orani]
          #set eybdo [dict get $hafta eriskin_yogun_bakim_doluluk_orani]
          #set vdo [dict get $hafta ventilator_doluluk_orani]
          #puthelp "privmsg $chan :\00312Toplam\003 \002Vaka\002: \00304$tvs\003 \002Vefat\002: \00304$tvft\003\
          #\002Ortalama Ağır Hasta\002: \00304$oahs\003 \002Zatürre Oranı\002: \00304$hzo\003 \002Yatak Doluluk Oranı\002:\
          #\00304$ydo\003\ \002Erişkin Yoğun Bakım Doluluk Oranı\002: \00304$eybdo\003 \002Ventilator Doluluk Oranı\002: \00304$vdo\003"         
    }
    puthelp "privmsg $chan :[join $asi]"
    return 0
}

Haftalık,Toplam Ve Diğer Detay
Bilgileri Ayıklayan,Veren Satırları
Etkisizleştirdim!
Çünkü Doğru Bilgileri İçermiyorlar!...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:35.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk