Statistics: Posted by Alchera — Sun Dec 04, 2005 7:29 pm

Statistics: Posted by demond — Sun Dec 04, 2005 1:36 pm

Code:

package require httpbind msg - !test test_checkproc test_check {nick host hand chan text} {set url "http://www.sensiblesoccer.de/index.php?lng=en"set counter 0set limit "4"catch { set connection [http::geturl $url -timeout 3000] } errorif {[string match -nocase "*::http::*" $error]} {set source [http::data $connection];http::cleanup $connectionset source [string map -nocase {"</item>" "|"} $source]foreach line [split $source |] {if {[regexp {^.*?<td class="medium"><b class="marker">(.*?)</tr>.*?$} $line tmp lines ]} {regexp {^.*?<td class="medium"><b class="marker">(.*?)</font></td>.*?$} $lines tmp titelregexp {^.*<td class="right_rank_header" style="color:silver" bgcolor="#000022">(.*?)*?} $lines tmp linkputserv "PRIVMSG $nick :$titel"putserv "PRIVMSG $nick :works!:D"incr counter}if {$counter == $limit} {unset counter;return 0}}}}putlog "news loaded!"

<td class="medium"><b class="marker">New Interview with Jon Hare</font></td></tr><tr height="16"><td class="right_rank_header" style="color:silver" bgcolor="#000022">.. by autor on 02.12.2005</td></tr>

Statistics: Posted by FcLan — Sun Dec 04, 2005 10:28 am