egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-05-26T07:46:17-04:00 https://forum.eggheads.org/app.php/feed/topic/4481 2003-05-26T07:46:17-04:00 2003-05-26T07:46:17-04:00 https://forum.eggheads.org/viewtopic.php?p=20691#p20691 <![CDATA[Grap text and put in topic script help]]>
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

Statistics: Posted by user — Mon May 26, 2003 7:46 am

]]> 2003-05-26T07:42:08-04:00 2003-05-26T07:42:08-04:00 https://forum.eggheads.org/viewtopic.php?p=20690#p20690 <![CDATA[Grap text and put in topic script help]]> Statistics: Posted by Guest — Mon May 26, 2003 7:42 am

]]> 2003-05-26T07:42:10-04:00 2003-05-26T07:39:16-04:00 https://forum.eggheads.org/viewtopic.php?p=20689#p20689 <![CDATA[Grap text and put in topic script help]]> http://tcl.tk/man/ ) to grab the file, then supply your regexp with a rule that will match the content on the page. :P

Statistics: Posted by user — Mon May 26, 2003 7:39 am

]]> 2003-05-26T07:31:01-04:00 2003-05-26T07:31:01-04:00 https://forum.eggheads.org/viewtopic.php?p=20688#p20688 <![CDATA[Grap text and put in topic script help]]>
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: 

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: 

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: 

proc ccdrift {putserv "TOPIC $chan :$report"}

Please someboddy help me or give me some hints...... :-?

Statistics: Posted by Guest — Mon May 26, 2003 7:31 am

]]>