Website grap text script

[trinitykln]

Okey kinda an followup to my earlier post, I have this code
and the eggdrop starts fine no error, and no error when the pub command
is written... nothing in log what so ever but nothing happens...

Code: Select all

set ccdrift_url "http://www.cstv.dk/ccdrift/index.php"

bind pub - !ccdrift ccdrift_topic 

proc ccdrift_topic {nick host hand chan args} {
     global ccdrift_url
     set file [open "|lynx -source $ccdrift_url" r] 
     set html "[gets $file]"      
     set html "[string trimleft $html "<h1>"]" 
     set html "[string trimright $html "</h1>"]" 
     putserv "TOPIC $chan :$html"
   
} 

Anyone seeing faults or an reason why nothing happens
have tried removing the two string trim

[Papillon]

first of, I would use the http package provided by tcl, dunno if it's better but it's easier to work with ....in my opinion

now to your problem, you are opening the file(url) for reading, which is correct, but then you use gets, this will take one line of the file and puts that in topic, now if you check the source of that file you will notice that first line of the source is empty
so what you need to do is to add a while loop in your code, something like this:

Code: Select all

set ccdrift_url "http://www.cstv.dk/ccdrift/index.php" 

bind pub - !ccdrift ccdrift_topic 

proc ccdrift_topic {nick host hand chan args} { 
     global ccdrift_url 
     set file [open "|lynx -source $ccdrift_url" r]
     while {![eof $file]} {
          gets $file html
          if {$html == {}} {continue}
          set html [string trimleft $html "<h1>"]
          set html [string trimright $html "</h1>"]
     } 
     putserv "TOPIC $chan :$html" 
    
}

[trinitykln]

oh thanks my bad did'nt notice that the first line was empty!

[user]

The string tims probably do stuff you don't expect them to. Check the manual for details
http://tcl.tk/man/tcl8.4/TclCmd/string.htm#M46