Grap text and put in topic script help

trinitykln · Post by **trinitykln** » Mon May 26, 2003 7:31 am

Hi

I'm pretty new in script tcl/tcl for eggdrop and I'm trying to make an script which either graps the text written on this page:

http://www.cstv.dk/ccdrift/

Or the tcl script graps the text it self...

Url to grap from: http://www.cybercity.dk/privat/kundeservice/index.phtml

my php ereg code which proberly could be optimized and don't work with tcl ?

Code: Select all

ereg("<p><b>Sidste åbne fejl:</b><hr size=1 noshade color=\"#49735D\">(.*)<p>\n<hr size=1>\n<b>Sidste 5 lukkede fejl:</b><hr size=1>", $search, $report);

Could i port this to:

Code: Select all

regexp {^.*("<p><b>Sidste åbne fejl:</b><hr size=1 noshade color=\"#49735D\">(.*)<p>\n<hr size=1>\n<b>Sidste 5 lukkede fejl:</b><hr size=1>} $search $report

I would like the script to set topic in an chan with the text graped and check it every 5 or 10 min if changed....

what useless(?) code I have:

Code: Select all

proc ccdrift {

putserv "TOPIC $chan :$report"
}

Please someboddy help me or give me some hints......

Post by **user** » Mon May 26, 2003 7:39 am

Use the http package (tcl manuals at http://tcl.tk/man/ ) to grab the file, then supply your regexp with a rule that will match the content on the page.

trinitykln · Post by **trinitykln** » Mon May 26, 2003 7:42 am

the php file is only accessable via http... therefore i thought an pure tcl solution var easier ?

Post by **user** » Mon May 26, 2003 7:46 am

Regexp in tcl doesn't stuff the match(es) into an array like php does. You have to supply a variable name for each part of the rule marked for reporting.

http://forum.egghelp.org/viewtopic.php?t=4319
http://www.tcl.tk/man/tcl8.3/TclCmd/regexp.htm
http://www.tcl.tk/man/tcl8.3/TclCmd/re_syntax.htm