Code: Select all
bind pub - !test test:proc
proc test:proc {nick uhost hand chan arg} {
set connection [http::config -useragent "Mozilla 4.0"]
set connection [http::geturl http://rss.binsearch.net/rss.php?max=50&g=alt.binaries.movies.divx -timeout 1000]
set data [http::data $connection]
set file [open debug.html w]
puts $file $data
close $file
regexp -nocase {<title>(.*?)</title>} $data -> title
putmsg $chan "Test.. Title=$title"
}
Debug.html =
http://www.binsearch.info/ Due to excessive data traffic usage, using RSS clients that do not support (gzip) compression is no longer allowed! If you integrated any feeds into your own site and need assistence with implementing gzip support, contact us!<p>Regards,<br>Binsearch team Sat, 01 Oct 2005 07:02:27 GMT 86400 Due to excessive data traffic usage, using RSS clients that do not support (gzip) compression is no longer allowed! If you integrated any feeds into your own site and need assistence with implementing gzip support, contact us!<p>Regards,<br>Binsearch team Sat, 01 Oct 2005 07:02:27 GMThttp://www.binsearch.info/