TV Program (Krstarica)

By Majstorov on Jan 18, 2017

TV Program sa Krstarice.

Komanda je: !program

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"
}

}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.