egghelp/eggheads community

echo to chan

2006-01-07T10:19:24-04:00

thnx

Statistics: Posted by zee — Sat Jan 07, 2006 10:19 am

echo to chan

2006-01-07T10:03:25-04:00

Did you realise that you didn't global thechan yet?

Statistics: Posted by metroid — Sat Jan 07, 2006 10:03 am

echo to chan

2006-01-07T09:52:18-04:00

Code:

set url "http://www.inflow.freesitedirect.com/randquote.php"set thechan "#inflow"bind pub - !digg diggproc digg {nick uhost hand chan arg} {global url set sock [egghttp:geturl $url your_callbackproc]return 1}  proc your_callbackproc {sock} {global urlset headers [egghttp:headers $sock]set body [egghttp:data $sock]  regsub -all "\n" $body "" bodyregsub -all -nocase {
} $body "
\n" bodyregexp {cc is (.*) end} $body - servedputlog "$served"}putlog "egghttp_example.tcl has been successfully loaded."

ROFLMAO this is so screwed, even putting the variable $thechan in putlog screws up everything.

Still it can't puthelp/serv

Statistics: Posted by zee — Sat Jan 07, 2006 9:52 am

echo to chan

2006-01-06T22:30:09-04:00

I tryed puthelp before, but its still does nothing.

At the same time it puts putlog, wich works...

Statistics: Posted by zee — Fri Jan 06, 2006 10:30 pm

echo to chan

2006-01-06T21:59:16-04:00

Change:

Code:

#   putserv "PRIVMSG $thechan : $served"

to:

Code:

puthelp "PRIVMSG $thechan :$served"

Statistics: Posted by Alchera — Fri Jan 06, 2006 9:59 pm

echo to chan

2006-01-06T21:31:16-04:00

This is from http://www.tclscript.com/egghttp_tut.shtml egghttp tutorial.

I'm getting it working exept that i can't echo the result to #chan.

Code:

set url "http://www.blah..."set thechan "#mychannel"if {![info exists egghttp(version)]} {putlog "egghttp.tcl was NOT successfully loaded."putlog "egghttp_example.tcl has not been loaded as a result."} else {proc your_callbackproc {sock} {global urlset headers [egghttp:headers $sock]set body [egghttp:data $sock]  regsub -all "\n" $body "" bodyregsub -all -nocase {
} $body "
\n" bodyregexp {a (.*) b} $body - served#putserv "PRIVMSG $thechan : $served"putlog "Website '$url' has served $served people so far."}bind pub - "!digg" diggproc digg {nick uhost hand chan arg} {global url set sock [egghttp:geturl $url your_callbackproc]return 1}  putlog "egghttp_example.tcl has been successfully loaded."}

The putserv "PRIVMSG $thechan : $served" doesn't work, but putlog does. what im doing wrong here ?

Statistics: Posted by zee — Fri Jan 06, 2006 9:31 pm