Egghttp problem

FcLan · Post by **FcLan** » Fri Jun 16, 2006 5:04 am

Welcome after break

I have some problem with my http script.. I would like that bot don`t reply this same news, text from any site, and i want to read more than only 1 st news, also if it is possible i would like to add timer to this script like in mirc for ex /timer 0 300 /anyalias, but when i trying with this script bot reply the same text.. and read only frist news

Code: Select all

package require http
bind pub - !news www:news
proc www:news {nick host handle chan text} {
        set token [::http::geturl http://anysite.com -timeout 10000]
        set status [::http::status $token]
        ::http::cleanup $token;

                 set data [http::data [http::geturl http://anysite.com]]
                 regexp {<html>(.*?)<html>} $data data something
     set news "$something"
      set news.old "$news"

        set count 3
                   if {$count=="5"} {return}
        
             if {$news != "news.old"} {

                   puthelp "PRIVMSG $chan :$news"

         incr count
 }

De Kus · Post by **De Kus** » Fri Jun 16, 2006 9:02 am

you are not using egghttp anything... you use http with eggdrop, not egghttp

.

You can 'loop' procs by using timer or utimer at their end to call themselves (read tcl-commands.doc or search this board for references).

FcLan · Post by **FcLan** » Fri Jun 16, 2006 9:20 am

ok, I`ll look, but why bot reply the same text, what`s wrong?

De Kus · Post by **De Kus** » Fri Jun 16, 2006 10:38 am

It should only change, when the page actually changes. I can see only these strange things:

Code: Select all

        set count 3
                   if {$count=="5"} {return}

Will be always false... you could also write 'if 0 {return}'

Code: Select all

     set news "$something"

redudant... just use news from beginning or continue with something. btw you dont need these "" around variables as long you don't operate with strings that might cause to false list interpretations (or simply for code readablility/clearity)

Code: Select all

      set news.old "$news" 
...
             if {$news != "news.old"} {

Look like you wanted to write '$news != $news.old' instead

(putting around "" at this one, will even cause the unexpected behavior that it compares '$news' with '$news' + '.old'

)

Code: Select all

         incr count
 }

since count is no global var (and should be avoided to be used by that common name), it will only make the proc return the value '4' and value gets lost..

maybe some of these hints help you.

FcLan · Post by **FcLan** » Mon Jun 19, 2006 7:50 am

sorry, it does not help me