Simple socket script

[De Kus]

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.

[Longbow]

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

[greenbear]

Use expr.

[Longbow]

Thanks.

I just found another small problem....

HTML code:

Code: Select all

<!--START-->qwe<br />asd<br />zxc<br /><!--END-->

TCL snippet code:

Code: Select all

regexp {<!--START-->(.*?)<br />} $html - first
regexp {<br />(.*?)<br />} $html - second
regexp {<br />(.*?)<br /><!--END-->} $html - third

putserv "PRIVMSG $chan :$first"
putserv "PRIVMSG $chan :$second"
putserv "PRIVMSG $chan :$third"

My bot says:

qwe
asd
asd<br />zxc

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

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