Statistics: Posted by TALES — Fri Feb 06, 2004 11:03 am

Statistics: Posted by guest — Mon Feb 02, 2004 3:47 pm

Statistics: Posted by caesar — Thu Jan 22, 2004 1:13 pm

#Location of a temporary outputfileset tv(output) "/tmp/tv.txt"

#Location of a temporary outputfileset tv(output) "tmp/tv.txt"

Statistics: Posted by Guest — Thu Jan 22, 2004 9:31 am

Statistics: Posted by Guest — Wed Jan 21, 2004 2:07 pm

Statistics: Posted by GodOfSuicide — Wed Jan 21, 2004 1:50 pm

Statistics: Posted by Guest — Wed Jan 21, 2004 11:41 am

# We need http packagepackage req httpbind pub - !tv info:tvproc info:tv {nick host handle chan text} {set url "http://tvprogram.nu/cgi-tvprogram/pp1.cgi?NU-palmpilot.htm"set data [http::data [http::geturl $url]]if {![regexp -nocase {<b>SVT1</b>(.*?)<b>[0-9\. ]+([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv1]} {set tv1 "?"}if {![regexp -nocase {<b>SVT2</b>(.*?)<b>[0-9\. ]+([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv2]} {set tv2 "?"}if {![regexp -nocase {<b>TV3 SVERIGE</b>(.*?)<b>[0-9\. ]+([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv3]} {set tv3 "?"}if {![regexp -nocase {<b>TV4</b>(.*?)<b>[0-9\. ]+(.*?)<b>([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv4]} {set tv4 "?"}if {![regexp -nocase {<b>TV4\+</b>(.*?)<b>[0-9\. ]+(.*?)<b>([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv5]} {set tv5 "?"}if {![regexp -nocase {<b>KANAL5</b>(.*?)<b>[0-9\. ]+(.*?)<b>([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv6]} {set tv6 "?"}if {![regexp -nocase {<b>ZTV</b>(.*?)<b>[0-9\. ]+([0-9a-zA-ZåäöÅÄÖ\-\.\?\:\'\n ]*)</b>} $data data2 ok tv7]} {set tv7 "?"}set svt1 [lindex [split $tv1 \n] 0]set svt2 [lindex [split $tv2 \n] 0]set tv3 [lindex [split $tv3 \n] 0]set tv4 [lindex [split $tv4 \n] 0]set tv42 [lindex [split $tv5 \n] 0]set kanal5 [lindex [split $tv6 \n] 0]set ztv [lindex [split $tv7 \n] 0]puthelp "PRIVMSG $chan :\037SVT1:\037 \002$svt1\002 \037SVT2:\037 \002$svt2\002 \037TV3:\037 \002$tv3\002"puthelp "PRIVMSG $chan :\037TV4:\037 \002$tv4\002 \037TV4+:\037 \002$tv42\002 \037KANAL5:\037 \002$kanal5\002 \037ZTV:\037 \002$ztv\002"}

[14:11:12] [@t3ch^]: !tv[14:11:14] [JamesBond]: SVT1: Sändningsuppehåll SVT2: ? TV3: Alla älskar Raymond [14:11:16] [JamesBond]: TV4: Glamour  TV4+: Sändningsuppehåll  KANAL5: Spin City  ZTV: Hitparad 

Statistics: Posted by t3ch^ — Tue Jan 20, 2004 9:50 am

Statistics: Posted by MeJseL — Tue Nov 25, 2003 5:57 pm

Statistics: Posted by MeJseL — Tue Nov 25, 2003 10:24 am

Code:

# tvprogram.nu.tcl v1.0 by Pixelz# public triggerset tvpnu(trg) "!tv"## code below ##package require httpsetudef flag tvset tvpnu(ver) "v1.0"proc tvpnu_get {url} {  global tvnu  if {[catch {::http::geturl $url -timeout 20000} tok]} {    return 0  } else {    set d [::http::data $tok]    ::http::cleanup $tok    regsub -all -- "\n" $d "" d    regsub -all -nocase -- "<br>" $d "\n" d    regsub -all -nocase -- "<a.*?>.*?</a>" $d "" d    foreach i [split $d "\n"] {      if {[string match *<b>* $i]} {        append x "$i\n"      }    }    regsub -all -- "<.*?>" $x "" x    foreach i [split $x "\n"] {      if {![string match "* - " $i]} {        set i [string replace $i 2 2 :]        append ret "$i\n"      }    }    if {[info exists ret]} { return $ret } else { return 0 }  }}proc tvpnu_urlget {chan} {  set x "http://tvprogram.nu/cgi-tvprogram/pp1.cgi?"  switch [string tolower $chan] {    svt1 { set url "${x}SVT1" }    svt2 { set url "${x}SVT2" }    tv3 { set url "${x}TV3_SVERIGE" }    tv4 { set url "${x}TV4" }    kanal5 { set url "${x}KANAL5" }    femman { set url "${x}KANAL5" }    tv6 { set url "${x}TV6" }    ztv { set url "${x}ZTV" }    tv8 { set url "${x}TV8" }    mtv { set url "${x}MTV" }    canal+  { set url "${x}CANAL+" }    canal+gul { set url "${x}CANAL+GUL" }    gul { set url "${x}CANAL+GUL" }    tv1000 { set url "${x}TV1000" }    tv1000_cinema { set url "${x}TV1000_CINEMA" }    cinema { set url "${x}TV1000_CINEMA" }    bbc_prime { set url "${x}BBC_Prime" }    bbcprime { set url "${x}BBC_Prime" }    bbc_world { set url "${x}BBC_World" }    bbcworld { set url "${x}BBC_World" }    eurosport { set url "${x}Eurosport" }    default { return 0 }  }  return "${url}-palmpilot.htm"}proc tvpnu_current {data} {  set cnt 0  foreach i [lsort [split $data "\n"]] {    if {$i == ""} { continue }    lappend lst "[incr cnt] [clock scan "[string range $i 0 4]:00"] $i"  }  foreach i $lst {    if {[lindex $i 1] > [clock seconds]} {      set place [expr [lindex $i 0] - 1]      break    }  }  if {![info exists place]} { set place $cnt }  if {$place == [expr $cnt - 1]} { set place 1 } elseif {$place == "0"} { set place $cnt }  set x 0  foreach i $lst {    incr x    if {$x == $place} { return [lrange $i 2 end] }  }  return 0}bind pub - $tvpnu(trg) pub_tvpnuproc pub_tvpnu {nick uhost hand chan text} {  set text [split $text]  global tvpnu  set chans "SVT1, SVT2, TV3, Kanal5, TV6, ZTV, TV8, MTV, Canal+, Canal+Gul, TV1000, TV1000_Cinema, BBC_Prime, BBC_World, Eurosport"  if {![string match *+tv* [channel info $chan]]} {    return 0  } elseif {$text == ""} {    putserv "NOTICE $nick :$tvpnu(trg) <channels>"    return 0  } elseif {[string tolower $text] == "help"} {    putserv "NOTICE $nick :Known channels: $chans"    return 0  } elseif {[llength $text] > 1} {    foreach i $text {      if {[tvpnu_urlget $i] == "0"} {        putserv "NOTICE $nick :$i is not a known channel. Known channels: $chans"        return 0      } else {        set data [tvpnu_get [tvpnu_urlget $i]]        if {$data == "0"} {          putserv "NOTICE $nick :Data fetch failed!"          return 0        } else {          set data [tvpnu_current $data]          if {$data == "0"} {            putserv "NOTICE $nick :Parse error!"            return 0          } else {            set len 0            foreach c $text {              set c [string length $c]              if {$c > $len} { set len $c }            }            putserv "PRIVMSG $chan :[format "%-${len}s %1s" "$i" "$data"]"          }        }      }    }    return 1  } elseif {[tvpnu_urlget $text] == "0"} {    putserv "NOTICE $nick :[join $text] is not a known channel. Known channels: $chans"    return 0  } else {    set data [tvpnu_get [tvpnu_urlget $text]]    if {$data == "0"} {      putserv "NOTICE $nick :Data fetch failed!"      return 0    } else {      set data [tvpnu_current $data]      if {$data == "0"} {        putserv "NOTICE $nick :Parse error!"        return 0      } else {        putserv "PRIVMSG $chan :$data"      }    }    return 1  }}putlog "tv.tcl Loaded!"

Statistics: Posted by MeJseL — Tue Nov 25, 2003 3:07 am