set file data/virus_news.txt
set yandex_key **key**
if {![file exists $file]} {set f [open $file w+]; close $f}

set f [open $file r+]
set date_temp [gets $f]
close $f



::http::config -useragent "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.90 Safari/537.36"
set parsing_tok [::http::geturl http://site.url -timeout 20000]
set response [regsub -all -- {\n|\r|\t|\v} [::http::data $parsing_tok] ""]
::http::cleanup $parsing_tok
if {[regexp -nocase -- {</li></ul><h2>.*?</h2><h4>.*?</h4><ul><li>(.*?)<a .*?=".*?" aria-label=".*?" href=".*?" target="_blank">.*?</a>} $response -> date ]} {
if {!($date_temp == $date)} {
putlog "NEWS update"
set f [open $file w+]
puts $f $date
close $f
set ::http::defaultCharset utf-8
set translite [::http::geturl https://translate.yandex.net/api/v1.5/tr/translate?lang=en-ru&key=$yandex_key&text=[::http::formatQuery $date] -timeout 20000]
set response_translite [::http::data $translite]
::http::cleanup $translite
if {[regexp -nocase -- {<text>(.*?)</text>} $response_translite -> date]} {


putserv "PRIVMSG #durdom : $::gcolor(11)Coronavirus (2019-nCoV) $::gcolor(10)$date $::gcolor(14)(GMT)"
}

} else {putlog "rovno"}
} else {putlog "error parsing news2"}