Code:
setudef flag tvset errorInfo Code:
set data [string map {"\n" ""} $data] set data [string map {"</tr>" "</tr>\n"} $data] set data [string map {"</div>" "</div>\n"} $data] set data [string map {"</td>" "</td>~"} $data] set data [string map {"f-normal\">" "f-normal\">~"} $data] set errorInfoCode:
!tonightStatistics: Posted by romeo5k — Sat Feb 10, 2007 10:20 pm
Code:
.set errorInfoStatistics: Posted by Alchera — Sat Feb 10, 2007 2:21 am
Statistics: Posted by romeo5k — Sat Feb 10, 2007 12:08 am
Statistics: Posted by Lumsk — Tue Dec 12, 2006 9:49 pm
Code:
[09:42] <<trooper>> !trooper! !tonight Statistics: Posted by trooper — Mon Oct 10, 2005 3:43 am
Code:
Tcl error [imdb_proc]: can't read "location": no such variable
Statistics: Posted by Alchera — Wed Aug 17, 2005 7:02 pm
Code:
Tcl error [imdb_proc]: can't read "location": no such variableStatistics: Posted by theauth0r — Wed Aug 17, 2005 6:54 pm
Statistics: Posted by koom — Sun Aug 07, 2005 4:28 am
Statistics: Posted by greenbear — Fri Aug 05, 2005 10:24 am
Code:
set data [string map {"\n" ""} $data] set data [string map {"</tr>" "</tr>\n"} $data] set data [string map {"</div>" "</div>\n"} $data] set data [string map {"</td>" "</td>~"} $data] set data [string map {"f-normal\">" "f-normal\">~"} $data]Code:
set data [string map [list \n "" "</tr>" "</tr>\n" "</div>" "</div>\n" "</td>" "</td>~" "f-normal\">" "f-normal\">~"] $data]Code:
if ![regexp -nocase {[0-9]:[0-9][0-9][am|pm]} $out] {Code:
if ![string match -nocase {[0-9]:[0-9][0-9][ap]m} $out]Statistics: Posted by avilon — Fri Aug 05, 2005 7:30 am
Statistics: Posted by greenbear — Thu Aug 04, 2005 10:21 pm
Code:
############################################# tv.com.tcl v0.2 by greenbear at gmail.com## Parses tonights tv shows from tv.com## Enable with .chanset #channel +tv## offset to EST# 6 hours makes sense for CET (Europe)set tvoffset 6bind pub - !tonight pub:tv.comif ![info exists egghttp(version)] { putlog "egghttp.tcl was NOT successfully loaded."}setudef flag tvproc pub:tv.com {nick uhost hand chan text} { if ![channel get $chan tv] return set d [strftime %m%d%y] set d [date:offset [clock seconds] %m%d%y] set sock [egghttp:geturl http://www.tv.com/ [list parse:tv.com $chan] -headers "Cookie: tv_promo_$d=1"]}proc parse:tv.com {chan sock} { set data [egghttp:data $sock] egghttp:cleanup $sock set data [string map {"\n" ""} $data] set data [string map {"</tr>" "</tr>\n"} $data] set data [string map {"</div>" "</div>\n"} $data] set data [string map {"</td>" "</td>~"} $data] set data [string map {"f-normal\">" "f-normal\">~"} $data] set parse 0 foreach line [split $data \n] { if [string match -noc "*<h3>What's On Tonight</h3>*" $line] {set parse 1} if {$parse&&[string match -noc *</table>* $line]} {return} if {$parse} { regsub -all {<(.|\n)*?>} $line {} clean set out [join $clean] if {$out!=""&&$out!="~"&&![string match -noc "*What's On Tonight*" $out]} { set ts [concat [lindex [split $out ~] 0]] set ch [concat [lindex [split $out ~] 3]] set sh [concat [lindex [split $out ~] 1]] set ep [concat [lindex [split $out ~] 2]] if ![regexp -nocase {[0-9]:[0-9][0-9][am|pm]} $out] { putserv "PRIVMSG $chan :$sh \002\[\002\00304$ep\017\002\]\002 ($ch)" } { putserv "PRIVMSG $chan :$sh \002\[\002\00304$ep\017\002\]\002 ($ch at $ts)" } } } }}proc date:offset {epox arg} { set t [expr $epox-((60*60)*$::tvoffset)] set w [clock format $t -format $arg] return $w}putlog "* tv.com.tcl loaded."Statistics: Posted by greenbear — Thu Jul 07, 2005 7:01 pm