egghelp/eggheads community

Need some help

2006-04-27T00:12:50-04:00

you close the file only conditionally, which is a no-no

as result, your script keeps opening the file without closing it, thus exhausting the limit of open file handles you are allowed on that system

Statistics: Posted by demond — Thu Apr 27, 2006 12:12 am

Need some help

2006-04-27T00:02:27-04:00

anyone?

Statistics: Posted by webstar — Thu Apr 27, 2006 12:02 am

Need some help

2006-04-20T00:41:57-04:00

Ok i'll first admit this script was wrote for me, i've edited it a bit but I don't know how to edit it to close the file each time.

FYI
[10:47:30pm] [22:43] Tcl error in script for 'timer1025':
[10:47:30pm] [22:43] couldn't open "tstormdata.txt": too many open files
[11:03:57pm] [23:00] ERROR writing user file.
[12:04:20am] [00:00] --- Thu Apr 20 2006

Is the error I get

Statistics: Posted by webstar — Thu Apr 20, 2006 12:41 am

Need some help

2006-04-19T03:47:28-04:00

First off, you only close the file when it was changed.
You should close it no matter what.

Statistics: Posted by metroid — Wed Apr 19, 2006 3:47 am

Need some help

2006-04-19T01:46:21-04:00

Ok this is my script, it currently watches a file for changes and then if there is a change it pubishes the file to the channel Right now it's giving errors too many files open plus is there a way for it reuses the same timer rather then a new one everytime.
thanks for any help you can provide.

Code:

############################# #  This is the postONE channel ############################# set postONE(chan) "#weatheralerts" ############################# # This is the filename############################# set postONE(filename) "tstormdata.txt" ############################# #  Time between checks in seconds############################# set postONE(time) 30############################# #  Code begin ############################# set postONE(check) 1set postONE(modtime) [file mtime $postONE(filename)]set double-help 1proc postONE_start {} {    global postONE    set postONE(check) 1   postONE_check} proc postONE_check {} {   global postONE    if { $postONE(check) == 0 } { return }   set modtime [file mtime $postONE(filename)]   set thefile [open $postONE(filename)]   if { $modtime != $postONE(modtime) } {      while { [gets $thefile theline] != -1 } {       puthelp "PRIVMSG $postONE(chan) :$theline "     }     set postONE(modtime) $modtime     close $thefile   }   utimer $postONE(time) postONE_start}proc postONE_stop {} {   global postONE   set postONE(check) 0}postONE_start

Statistics: Posted by webstar — Wed Apr 19, 2006 1:46 am