egghelp/eggheads community

Simple socket script

2005-02-05T16:08:07-04:00

Thanks.

I just found another small problem....

HTML code:

Code:

qwe
asd
zxc

TCL snippet code:

Code:

regexp {(.*?)
} $html - firstregexp {
(.*?)
} $html - secondregexp {
(.*?)
} $html - thirdputserv "PRIVMSG $chan :$first"putserv "PRIVMSG $chan :$second"putserv "PRIVMSG $chan :$third"

My bot says:

qwe
asd
asd
zxc

As you can see the third line is saying "asd
" when it shouldn't be.

And "qwe / asd / zxc" change each time by the way.

Statistics: Posted by Longbow — Sat Feb 05, 2005 4:08 pm

Simple socket script

2005-02-05T11:47:10-04:00

Use expr.

Statistics: Posted by greenbear — Sat Feb 05, 2005 11:47 am

Simple socket script

2005-02-05T11:37:41-04:00

Ah, I was able to get it to work with another script, but whilst i'm here...

How do I calculate something in tcl?

I need $mem + $anon

Statistics: Posted by Longbow — Sat Feb 05, 2005 11:37 am

Simple socket script

2005-02-04T18:18:11-04:00

hmm, the google script im using uses the commands in the order:
package require http
...
set token [http::config -useragent $agent]
set token [http::geturl $query]
set html [http::data $token]

except the egghttp -> http they seem very alike, maybe it helps.

Statistics: Posted by De Kus — Fri Feb 04, 2005 6:18 pm

Simple socket script

2005-02-04T17:46:01-04:00

body =

lol

Statistics: Posted by Longbow — Fri Feb 04, 2005 5:46 pm

Simple socket script

2005-02-04T17:12:01-04:00

your code isn't parsing the webpage correctly

this will get messy, but at least it'll tell you if there is anything in $body to read:

putlog "body = $body"

that will show you everything in the $body variable at that point

from there it's a matter of tuning the regexps
such as:

putlog "body = $body"
regexp {(.*?) Total} $body match ptotal

Statistics: Posted by DragnLord — Fri Feb 04, 2005 5:12 pm

Simple socket script

2005-02-04T14:29:00-04:00

Well, one thing that jumps out at me is that in your callback, $nick is undefined.

Also, who knows if your regexp is actually working. There are many ways the html could be formatted to show the text you've given. If you gave the actual url it might help.

Mm... true. Since it was originally a DCC command, i'll look into that.

As far as the web page, I did some server side coding to make it easyier for me.

It shows the amount of people online only in text. No extra html tags or anything are in the source code.

Edit: Ok I used putlog instead of privhelp, but still doesn't work. I used..

Code:

putlog "test"

And it worked, so something works, but when using

Code:

  putlog "$ptotal Total, $pguests Guests, $pmemb Members, $panon Anonymous users online"

Nothing happens.

Statistics: Posted by Longbow — Fri Feb 04, 2005 2:29 pm

Simple socket script

2005-02-04T14:27:43-04:00

Since your_callbackproc is called from pub:on, wouldn't $nick have been defined by pub:on?

The best way to "debug" a tcl script such as this is the use of putlog statements to show if the variables actually contain information.

example:

regexp {(.*?) Total} $body match ptotal
putlog "total members = $ptotal"

The script will then show the variable $ptotal in telnet/dcc chat.

Without having the actual url to check the source coding, it's nearly impossible to give further aid in parsing the information.

Statistics: Posted by DragnLord — Fri Feb 04, 2005 2:27 pm

Simple socket script

2005-02-04T13:48:22-04:00

Well, one thing that jumps out at me is that in your callback, $nick is undefined.

Also, who knows if your regexp is actually working. There are many ways the html could be formatted to show the text you've given. If you gave the actual url it might help.

Statistics: Posted by stdragon — Fri Feb 04, 2005 1:48 pm

Simple socket script

2005-02-04T13:29:04-04:00

Thanks, but your_callbackproc still isn't doing anything

Statistics: Posted by Longbow — Fri Feb 04, 2005 1:29 pm

Simple socket script

2005-02-04T12:11:37-04:00

this might work better for you:

proc your_callbackproc {sock} {
global url
set headers [egghttp:headers $sock]
set body [egghttp:data $sock]

regsub -all "\n" $body "" body
regsub -all -nocase {
} $body "
\n" body

regexp {(.*?) Total} $body match ptotal
regexp {(.*?) guests} $body match pguests
regexp {(.*?) members} $body match pmemb
regexp {(.*?) anonymous} $body match panon

puthelp "NOTICE $nick :$ptotal Total, $pguests Guests, $pmemb Members, $panon Anonymous users online"

}

I've never had much luck using more then one (.*?) per regexp.[/quote]

Statistics: Posted by DragnLord — Fri Feb 04, 2005 12:11 pm

Simple socket script

2005-02-04T10:10:30-04:00

Ok so....

Code:

# egghttp_example.tcl# Configset url "http://www.mysite.com/page.php?get=online"# End of configif {![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 url    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]      regsub -all "\n" $body "" body    regsub -all -nocase {
} $body "
\n" body    regexp {(.*?) Total, (.*?) guests, (.*?) members, (.*?) anonymous members} $body - online    putserv "NOTICE $nick :$online"  }bind pub - !online pub:onproc pub:on {nick uhost hand chan text} {    global url     set sock [egghttp:geturl $url your_callbackproc]    return 1  }    putlog "egghttp_example.tcl has been successfully loaded."}

the .php page contains the following....

Code:

70 Total, 11 guests, 59 members, 0 anonymous members

I'm not getting any error message now, however, when doing the command (!online) I got don't anything either.

Statistics: Posted by Longbow — Fri Feb 04, 2005 10:10 am

Simple socket script

2005-02-04T09:24:34-04:00

Part 1 from the tutorial: Loading and Checking for egghttp.tcl

If it can't find that command, maybe you left that part out!

Statistics: Posted by stdragon — Fri Feb 04, 2005 9:24 am

Simple socket script

2005-02-04T09:23:18-04:00

look true this forum there is a sample on how you can use a async socket and a regular socket so.. search

Statistics: Posted by Ofloo — Fri Feb 04, 2005 9:23 am

Simple socket script

2005-02-04T06:31:30-04:00

if all else fails, you can check out StrikeLight's egghttp.tcl script and tutorial that can be found on www.tclscript.com

you can get the script from here

tutorial

Thats what I said I used, but always get errors.

Tcl error [pub:on]: invalid command name "egghttp:geturl"

Code:

set sock [egghttp:geturl $url your_callbackproc]

Statistics: Posted by Longbow — Fri Feb 04, 2005 6:31 am