egghelp/eggheads community

working

2006-04-06T23:52:56-04:00

is this working or still working for anyone else?

Statistics: Posted by qw3rty — Thu Apr 06, 2006 11:52 pm

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-10-07T15:26:46-04:00

other than personal preferences and habits (everyone has theirs), there couldn't possibly exist a single reason for choosing egghttp over Tcl's built-in http package - the latter is much superior to the former

egghttp might have been much more useful several years ago, but since then both eggdrop and Tcl have made huge improvements

from egghttp's header:

# I noticed the need when using the http package for tcl,
# and it would not, for some reason or other, properly
# use asynchronous connections or not do anything at all when
# trying to use async connections.
# ^- As it turns out, eggdrop1.1.5 (and I believe 1.3.x) does
# not have Tcl_DoOneEvent in the source, so the http package fails
# for async connections, thus the need for this script.
#
# Realizing eggdrop already had the ability to make async connections,
# I created this considerably smaller tcl (in comparison to the http
# package).

none of these points is valid today; I use async [http::geturl] on multiple rss feeds (HTTP connections) simultaneously, without the slightest problem or bogging down the bot, let alone crashing it

Statistics: Posted by demond — Fri Oct 07, 2005 3:26 pm

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-10-07T14:57:58-04:00

many users had issues with http package crashing the bot. I never got known which systems were affected, but it might have been a windrop pre TCL 8.4.9 issue (windrop admin changed something in the way he compiled TCL for cygwin). So it might nolonger be neccesary to use egghttp, but it would be a hassle to rewrite it back to http .

Statistics: Posted by De Kus — Fri Oct 07, 2005 2:57 pm

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-10-07T13:44:25-04:00

so you get to ask stupid questions

Statistics: Posted by greenbear — Fri Oct 07, 2005 1:44 pm

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-10-07T04:25:41-04:00

Why don't you use the http package?

Statistics: Posted by phab — Fri Oct 07, 2005 4:25 am

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-09-28T03:34:15-04:00

try using the most recent egghttp vesion.

Statistics: Posted by De Kus — Wed Sep 28, 2005 3:34 am

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-09-27T16:12:02-04:00

[09:19] Tcl error [pub:tfctoday]: Unknown option -crlf, can be: -timeout, -query, -headers, -protocol, -useragent

how do i fix that ?

Statistics: Posted by TaRgEt — Tue Sep 27, 2005 4:12 pm

tvprog.tcl - even more tv stuff (!today and !tomorrow)

2005-07-08T17:19:12-04:00

Code:

############################################# tvprog.tcl v0.1 by greenbear at gmail.com## Parse the tv-program for today and# tomorrow from thefutoncritic.com.## Enable with .chanset #channel +tv#bind pub - !today pub:tfctodaybind pub - !tomorrow pub:tfctomorrowif ![info exists egghttp(version)] {  putlog "egghttp.tcl was NOT successfully loaded."}setudef flag tvproc pub:tfctoday {nick uhost hand chan text} {if ![channel get $chan tv] return  set sock [egghttp:geturl http://www.thefutoncritic.com/cgi/calendar.cgi?view=whatsnew [list parse:tfc $chan 0] -crlf 1]}proc pub:tfctomorrow {nick uhost hand chan text} {  if ![channel get $chan tv] return  set sock [egghttp:geturl http://www.thefutoncritic.com/cgi/calendar.cgi?view=whatsnew [list parse:tfc $chan 1] -crlf 1]}proc parse:tfc {chan type sock} { set data [egghttp:data $sock] egghttp:cleanup $sock set data [string map {"\n" ""} $data] set data [string map {"" "\n" "" "\n"} $data] set data [string map {"
" " - "} $data] set data [string map {"
" "
\n" "
" "
\n"} $data] if {$type} {  scan [clock format [clock scan tomorrow] -format "%m/%d/%Y"] %d/%d/%d m d y } {  scan [strftime "%m/%d/%Y"] %d/%d/%d m d y } set when "$m/$d/$y" set parse 0 foreach line [split $data \n] {  if {!$parse&&[string match -noc "*$when*" $line]} {set parse 1}  if {$parse&&[string match -noc "*middle*content*ends*" $line]} {return}  if {$parse} {   regsub -all {<(.|\n)*?>} $line {} clean   set out [join $clean]   if {$out==""} {return}    putserv "PRIVMSG $chan :$out"  } }}putlog "* tvprog.tcl loaded."

Statistics: Posted by greenbear — Fri Jul 08, 2005 5:19 pm