egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-05-02T18:29:14-04:00 https://forum.eggheads.org/app.php/feed/topic/9507 2005-05-02T13:26:53-04:00 2005-05-02T13:26:53-04:00 https://forum.eggheads.org/viewtopic.php?p=48897#p48897 <![CDATA[soulseek up?fetching a piece of text in html]]>

Statistics: Posted by Thunderdome — Mon May 02, 2005 1:26 pm

]]> 2005-05-01T14:59:00-04:00 2005-05-01T14:59:00-04:00 https://forum.eggheads.org/viewtopic.php?p=48829#p48829 <![CDATA[soulseek up?fetching a piece of text in html]]>

Code: 

# Set the chans you want to enable it in to +news # .chanset #channel +news # set this to the URL of the news file set newsfile "http://someurl.com/file.txt" # want the answer to come out in notice (0) or privmsg (1)? set tellwho 0 setudef flag news if ![info exists egghttp(version)] {   putlog "egghttp.tcl was NOT successfully loaded."   return } bind pub - !news getlist proc getlist {nick uhost hand chan text} {  if ![channel get $chan news] return  set sock [egghttp:geturl $::newsfile [list processlist $nick]] } proc processlist {nick sock} {  set data [egghttp:headers $sock]  egghttp:cleanup $sock  set parse 0  foreach line [split $data \n] {   if $parse&&![string match ####* $line] {    if $::tellwho {     putserv "NOTICE $nick :$line"    } {     putserv "PRIVMSG $nick :$line"    }   }   if [string match -no Content-Type:* $line] {set parse 1}  } }

IS there a way to adapt this...
To read this: http://www.remmelt.com/slskboard/status.php
?

I only want it to put out the:

"probing server... success.

the server is up and running!"

part....

How do I do this?

Statistics: Posted by Thunderdome — Sun May 01, 2005 2:59 pm

]]> 2005-05-02T18:29:14-04:00 2005-04-28T17:07:14-04:00 https://forum.eggheads.org/viewtopic.php?p=48674#p48674 <![CDATA[soulseek up?fetching a piece of text in html]]> I have searched for it but I can't find it...

Statistics: Posted by Thunderdome — Thu Apr 28, 2005 5:07 pm

]]>