TCL to read php file

drl · Post by **drl** » Mon Jul 14, 2003 1:54 pm

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

stdragon · Post by **stdragon** » Mon Jul 14, 2003 4:03 pm

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

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

drl · Post by **drl** » Mon Jul 14, 2003 7:46 pm

Code: Select all

bind time - "00 * * * *"   autoupdate

proc 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 "<h1>"] 
set html [string trimright $html "</h1>"] 

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

stdragon · Post by **stdragon** » Mon Jul 14, 2003 8:16 pm

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.

drl · Post by **drl** » Mon Jul 14, 2003 9:07 pm

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

stdragon · Post by **stdragon** » Mon Jul 14, 2003 9:27 pm

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

(37) TIME (stackable)
bind time <flags> <mask> <proc>
proc-name <minute> <hour> <day> <month> <year>

drl · Post by **drl** » Tue Jul 15, 2003 8:39 am

I did look at something but I never saw that.

So should my code now read this:

Code: Select all

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 "<h1>"] 
set html [string trimright $html "</h1>"] 

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

drl · Post by **drl** » Tue Jul 15, 2003 2:03 pm

Thanks for your help - I have it working brilliantly now