TV Program.tcl

bind pub - !program pub_program

package require http
package require tls
http::register https 443 [list ::tls::socket -tls1 1]

proc pub_program {nick host hand channel kanal} {
set kanali "arenasport1, arenasport2, arenasport3, arenasport4,
art,anem,vojvodina1,vojvodina2,enter,jesenjin,kanald,metropolis,most,palmaplus,panonija,pink,pink2,pinkkids,family,prva,rts1,rts2,rts-sat,digital,s,cinemania,sos,spektrum,sportklub,sportklubplus,skprime,stankom,studiob1,ultra,hepitv,1000,
animal, atlas, axn, bbc_prime, bn, cartoonnetwork, cinemax, cinestar, discovery, doq, eurosport, eurosport2, viaexp, foxcrime, foxlife, foxmovies, adria, natgeo, nova, obn,
crnagora, tcm, tlc, scifi, universal, hbo, hbocomedy, viahis, hrt1, hrt2"
if {$kanal != "" && [string match *$kanal* $kanali ] == 1} {
  set url "https://www.krstarica.com/lat/tv/index.php?kanal=$kanal&delimican=1"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set program [ regexp -all -inline {<TH NOWRAP ALIGN=RIGHT VALIGN=TOP WIDTH=40>.*?</TABLE><P class=mala><BR>} $page ]
  regsub -all {&nbsp;} $program " " program
  regsub -all -- {\}} $program {} program
regsub -all -- {\{} $program {} program

  set bolest [ split [ string trim [ regsub {program posle} [ regsub -all {<.*?>} $program "" ] {program posle } ] "\n" ] "\n" ]

  foreach msg $bolest {
        putnotc $nick "[encoding convertto utf-8 $msg]"
        after 1000 set end 1
        vwait end
}
} elseif {$kanal == "b92"} {
  set url "https://www.krstarica.com/lat/tv/index.php?kanal=anem&delimican=1"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set program [ regexp -all -inline {<TH NOWRAP ALIGN=RIGHT VALIGN=TOP WIDTH=40>.*?</TABLE><P class=mala><BR>} $page ]
  regsub -all {&nbsp;} $program " " program
  regsub -all -- {\}} $program {} program
regsub -all -- {\{} $program {} program

  set bolest [ split [ string trim [ regsub {program posle} [ regsub -all {<.*?>} $program "" ] {program posle } ] "\n" ] "\n" ]

  foreach msg $bolest {
        putnotc $nick "[encoding convertto utf-8 $msg]"
        after 1000 set end 1
        vwait end
}
} else {
putnotc $nick "Koristite komandu \002!program <kanal>\002"
putnotc $nick "\002Spisak DOMACIH kanala\002: arenasport1, arenasport2, arenasport3, arenasport4,  art, anem (b92), vojvodina1, vojvodina2, enter, jesenjin, kanald,
metropolis, most, palmaplus, panonija, pink, pink2, pinkkids, family, prva"
putnotc $nick "\002Spisak DOMACIH kanala\002: rts1, rts2, rts-sat, digital, s, cinemania, sos, spektrum, sportklub, sportklubplus, skprime, stankom, studiob1, ultra, hepitv"
putnotc $nick "\002Spisak STRANIH kanala\002: 1000, animal, atlas, axn, bbc_prime, bn, cartoonnetwork, cinemax, cinestar, discovery, doq, eurosport, eurosport2, viaexp,
foxcrime, foxlife, foxmovies"
putnotc $nick "\002Spisak STRANIH kanala\002: adria, natgeo, nova, obn, crnagora, tcm, tlc, scifi, universal, hbo, hbocomedy, viahis, hrt1, hrt2"
}

}