egghelp/eggheads community

TCL to read php file

2003-07-15T14:03:57-04:00

Thanks for your help - I have it working brilliantly now

Statistics: Posted by Guest — Tue Jul 15, 2003 2:03 pm

TCL to read php file

2003-07-15T08:39:09-04:00

I did look at something but I never saw that.

So should my code now read this:

Code:

bind time - "00 * * * *"   autoupdate proc autoupdate {00 * * * *} { set file [open "|lynx -source http://website.com/file.txt" r] while {![eof $file]} { gets $file html if {$html == {}} {continue} set html [string trimleft $html ""] set html [string trimright $html "
"] putserv "TOPIC $chan :Welcome To The #channel - 4Currently on air:7 $html" #putserv "NOTICE $chan :$html is now on air. } }

I do apologise for my stupidity but this is my first ever use of tcl.

DL

Statistics: Posted by Guest — Tue Jul 15, 2003 8:39 am

TCL to read php file

2003-07-14T21:27:48-04:00

Did you even look? It's pretty self explanatory.

(37) TIME (stackable)
bind time
proc-name

Statistics: Posted by stdragon — Mon Jul 14, 2003 9:27 pm

TCL to read php file

2003-07-14T21:07:04-04:00

to be truthfull I've never done tcl before - and I don't really need to learn it other than to do this one thing. I dont understand all these arguments, so please could someone tell me what arguments to put?

PLEEEEEASE!

Thanks,

DRL

Statistics: Posted by Guest — Mon Jul 14, 2003 9:07 pm

TCL to read php file

2003-07-14T20:16:23-04:00

I don't know where you got your arguments, set while get putserv, but you can't just make these things up hehe.

Look in tcl-commands.doc for the arguments used in a time bind.

Statistics: Posted by stdragon — Mon Jul 14, 2003 8:16 pm

TCL to read php file

2003-07-14T19:46:10-04:00

Code:

bind time - "00 * * * *"   autoupdateproc autoupdate {set while get putserv} {set file [open "|lynx -source http://website.com/file.txt" r] while {![eof $file]} { gets $file html if {$html == {}} {continue} set html [string trimleft $html ""] set html [string trimright $html "
"] putserv "TOPIC $chan :Welcome To The #channel - 4Currently on air:7 $html"#putserv "NOTICE $chan :$html is now on air.  }}

I can get it to read from the file fine - but tell me someone, why doesnt run the proc on the hour properly?

Thanks,

DL

Statistics: Posted by Guest — Mon Jul 14, 2003 7:46 pm

TCL to read php file

2003-07-14T16:03:06-04:00

a) use the 'time' bind or 'timer' command (see tcl-commands.doc)

b) try the http.tcl package (search for it)

Statistics: Posted by stdragon — Mon Jul 14, 2003 4:03 pm

TCL to read php file

2003-07-14T13:54:44-04:00

I am writing a script for an IRC channel for a radio station which will basically look at a php file once an hour which will contain which show is on air.

Thing is... I am new to TCL and not sure how to a) get it to perform this action once an hour or b) actually get it to read a php file from a website.

Any help will be greatly recived.

Thanks,

David

Statistics: Posted by Guest — Mon Jul 14, 2003 1:54 pm