egghelp/eggheads community

Website grap text script

2003-05-26T14:56:19-04:00

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

Statistics: Posted by user — Mon May 26, 2003 2:56 pm

Website grap text script

2003-05-26T11:27:30-04:00

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

Statistics: Posted by Guest — Mon May 26, 2003 11:27 am

Website grap text script

2003-05-26T10:58:38-04:00

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:

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 ""]          set html [string trimright $html "
"]     }      putserv "TOPIC $chan :$html"     }

Statistics: Posted by Papillon — Mon May 26, 2003 10:58 am

Website grap text script

2003-05-26T10:00:54-04:00

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:

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 ""]"      set html "[string trimright $html "
"]"      putserv "TOPIC $chan :$html"   }

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

Statistics: Posted by Guest — Mon May 26, 2003 10:00 am