Get a txt file from net and read it

2005-04-30T03:40:25-04:00

you should get following TCL error:
wrong number of arguments, should "set varName ?value?"
invoked within "set todaysdate strftime %Y%m%d"
at least there are missing the [] braces around the strftime expression.

if you fix this, you will get this one:
no such variable $todaysmatch
invoked within "set start [string first "$todaysmatch" $line]"
did you mean $todaysdate ?!
same goes for "set end [string first "$todaysmatch*STATUS" $line]"

btw. "string first string1 string2 ?startIndex?" it will only search for strings, not for patterns (wildcards). not sure about that, but I wouldn't count on it!
ah yes, your proc will send an empty line to the server for each line without a match. you will not see it, because the server will most likely discard it, but it will flush unneccessary queues (of course only, if you disabled the same element check for server queue).

for the string extraction I reommned more somthing like this:

Code:

set re "$todaysdate(.*)STATUS"if { [regexp $re $line {} served] } {   serve...}

depending how many times "STATUS" is within that line, you might have to use (.{10,15}) to limit the match between the date STATUS to a specified range of characters.
read http://forum.egghelp.org/viewtopic.php?t=4319 and http://www.tcl.tk/man/tcl8.4/TclCmd/re_syntax.htm for more infos.

Statistics: Posted by De Kus — Sat Apr 30, 2005 3:40 am

Get a txt file from net and read it

2005-04-29T20:54:12-04:00

Hello, first of all I would like to say cheers to the people of this forum as I wouldnt be where I am now without reading the many threads I uncovered in searches.

I have been trying to simply read a text file hosted online, parse it and select data from it and return it in a message to the user who activated the trigger. The code is so far this, and it doesnt get passed the "on to the next proc" log message; and it doesnt give an error either. The text file is also not a .txt but a .ical file, but it can be opened as a txt file. I also took most of the code from this thread: http://forum.egghelp.org/viewtopic.php? ... t=txt+file so cheers to gb for that.

Here is the code

Code:

# Set the chans you want to enable it in to +news# .chanset #channel +news# set this to the URL of the news fileset newsfile "http://www.enemydown.co.uk/files/calendar.php?clan=18931"# want the answer to come out in notice (0) or privmsg (1)?set tellwho 0if ![info exists egghttp(version)] {  putlog "egghttp.tcl was NOT successfully loaded."  return}bind pub - !news getlistproc getlist {nick uhost hand chan text} {# if ![channel get $chan news] returnglobal newsfile set sock [egghttp:geturl $newsfile [list processlist $nick]]  putlog "on to the next proc"}proc processlist {nick sock} {global tellwho set todaysdate strftime %Y%m%d set data [egghttp:headers $sock] foreach line [split $data \n] {    set start [string first "$todaysmatch" $line]    set start [expr {$start - 45}]     set end [string first "$todaysmatch*STATUS" $line]    set end [expr {$end - 1}]    set served [string range $line $start $end]    putlog "$line"    putlog "$served"   if $tellwho {    putserv "NOTICE $nick :$line"   } {    putserv "PRIVMSG $nick :$line"   }  }  if [string match -no Content-Type:* $line] { putlog "Its reached the end bit"}}

Can anyone point out where this code is going wrong? Or even better fix it for me? I started reading tutorials for TCL and eggdrop scripting about a week ago, so I am very beginner. Also I have loaded the egghttp.tcl script as I think the code above requires it.

Thanks in advance for any help

Statistics: Posted by xiphrex — Fri Apr 29, 2005 8:54 pm

egghelp/eggheads community

Get a txt file from net and read it

Get a txt file from net and read it