Need "sockets" help

[Red_Rooste5]

i'm having some problems with this script:

Code: Select all

bind pub - @rsnews rsnew:proc
proc rsnew:rsnews {nick uhost hand chan text} {
 set site "http://www.slushpuppy.silverinterlocution.org/parsers/rsnews.php"
  set token [::http::geturl $site]
  set content [::http::data $token]
  ::http::cleanup $content
}
regexp {<br>(.*?)</br>} $content - rsnews
putserv "PRIVMSG $chan :[RSNEWS] $rsnews"
}
}

What's wrong with it?

[metroid]

You tell us.

[rosc2112]

Well, one mistake I see is you want to use ::http::cleanup on the page, not the content, so it should say

::http::cleanup $token

But I don't think cleanup would clobber the $content variable, but maybe it does..

As far as your regexp, I don't think "-" will work as a variablename, so change it to something else, like

regexp {<br>(.*?)</br>} $content match rsnews

"match" is the entire string that matched, and $rsnews is the part that was within () (but you seem to know that already =)

[caesar]

You got 1 (one) opened '{' and 3 (three) closed '}' while you should have just 1 (one) pair of them. Fix that first, and then browse tough the forum and find some of the topics related to this.