Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package require http
- bind pub - !vreme pub_vreme
- proc pub_vreme {nick host hand channel grad} {
- set gradovi [list "Zemun" "Beograd" "Novi-Sad" "Nis" "Pristina" "Kopaonik" "Vranje" "Crni-Vrh" "Dimitrovgrad" "Loznica" "Kikinda" "Kraljevo" "Leskovac" "Negotin" "Palic" "Ruma" "Sjenica" "Smederevo" "Sremska-Mitrovica" "Valjevo" "Zrenjanin" "Zlatibor" "Krusevac" "Vrsac" "Knjazevac" "Pancevo" "Cacak" "Uzice" "Kragujevac" "Subotica"]
- if {$grad != "" && [string match *$grad* $gradovi ] == 1} {
- set brojgrada [lsearch $gradovi $grad]
- set url "http://www.blic.rs/vremenska-prognoza/$grad/$brojgrada"
- set token [ ::http::geturl $url ]
- set page [ ::http::data $token ]
- set vreme [ regexp -inline -all {<div id="current-info">.*?<div id="forecast-info">} $page ]
- regsub -all {°} $vreme "" vreme
- regsub -all -- {\}} $vreme {} vreme
- regsub -all -- {\{} $vreme {} vreme
- regsub -all "\[\t\n\]" $vreme { } vreme
- set vreme [ split [ string trim [ regsub {Trenutno merenje} [ regsub -all {<.*?>} $vreme "" ] {} ] "\n" ] "\n" ]
- set vreme [ regsub -all {Pritisak} $vreme "- \002Pritisak\002" ]
- set vreme [ regsub -all {Vetar} $vreme "- \002Vetar\002" ]
- set vreme [ regsub -all {Vla.nost vazduha} $vreme "- \002Vlaznost vazduha\002" ]
- set vreme [ regsub -all {Vidljivost} $vreme "- \002Vidljivost\002" ]
- set vreme [ regsub -all {UV index} $vreme "\002UV index\002" ]
- regsub -all -- {\{ } $vreme {} vreme
- regsub -all -- { \}} $vreme {} vreme
- regsub -all -- { } $vreme {} vreme
- regsub -all -- { } $vreme {} vreme
- regsub -all -- { } $vreme {} vreme
- regsub -all -- { } $vreme {} vreme
- putnotc $nick "[encoding convertto utf-8 $vreme]"
- } elseif {$grad == "" || [string match *$grad* $gradovi ] != 1} {
- putnotc $nick "\002Niste odabrali grad!\002 Koristite komandu \002!vreme <grad>\002"
- putnotc $nick "\002Dostupni gradovi:\002 Beograd, Pristina, Crni-Vrh, Kikinda, Negotin, Sjenica, Valjevo, Krusevac, Pancevo, Kragujevac, Novi-Sad, Kopaonik, Dimitrovgrad,
- Kraljevo, Palic, Smederevo, Zrenjanin, Vrsac, Cacak, Subotica, Nis, Vranje, Loznica, Leskova, Ruma, Sremska-Mitrovica, Zlatibor, Knjazevac, Uzice"
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement