egghelp/eggheads community

FileReader

2009-06-04T15:48:14-04:00

Ahh, my apologies. Must have missed that.

Statistics: Posted by nml375 — Thu Jun 04, 2009 3:48 pm

FileReader

2009-06-04T03:17:04-04:00

One thing strikes me, last_file_mod is not initialized upon startup, making the comparison "$last_file_mod != $file_mtime" possibly fail. I'd consider adding something like this to the script:
Code:
if {![info exists ::last_file_mod]} {set ::last_file_mod 0}

it is initialized, before timer proc

Code:

############################################################set last_file_mod 0

Statistics: Posted by tomekk — Thu Jun 04, 2009 3:17 am

FileReader

2009-06-04T02:20:27-04:00

One thing strikes me, last_file_mod is not initialized upon startup, making the comparison "$last_file_mod != $file_mtime" possibly fail. I'd consider adding something like this to the script:
Code:
if {![info exists ::last_file_mod]} {set ::last_file_mod 0}

How do you mean where shuld i edit it

Statistics: Posted by Slaktarn — Thu Jun 04, 2009 2:20 am

FileReader

2009-06-03T20:37:11-04:00

One thing strikes me, last_file_mod is not initialized upon startup, making the comparison "$last_file_mod != $file_mtime" possibly fail. I'd consider adding something like this to the script:

Code:

if {![info exists ::last_file_mod]} {set ::last_file_mod 0}

Statistics: Posted by nml375 — Wed Jun 03, 2009 8:37 pm

FileReader

2009-06-03T17:26:00-04:00

A suggestion, don't join the result from your lindex operation, as you're working on a list of strings (lindex returns the contained item, not a single-entity list).

yeah, lame, my bad

i took again part of the source from the another script, there was [join [lrange .... ]] and i forgot,
anyway thank you

cheers !

@Slaktarn
yeah, fix it like nml375 wrote and should be OK

Statistics: Posted by tomekk — Wed Jun 03, 2009 5:26 pm

FileReader

2009-06-03T13:33:34-04:00

It's because of the incorrect join I mentioned in my previous post.
Code:
set last_line [join [lindex $get_data end]]###should beset last_line [lindex $get_data end]

Still not working but it send on .rehash
Working i guss

Statistics: Posted by Slaktarn — Wed Jun 03, 2009 1:33 pm

FileReader

2009-06-03T13:31:45-04:00

It's because of the incorrect join I mentioned in my previous post.

Code:

set last_line [join [lindex $get_data end]]###should beset last_line [lindex $get_data end]

Statistics: Posted by nml375 — Wed Jun 03, 2009 1:31 pm

FileReader

2009-06-03T13:28:25-04:00

Hehe seems to work good but i got a strange error

[19:25] Tcl error in script for 'timer3':
[19:25] list element in quotes followed by ":" instead of space

I have try to search after it on googel but dident find mutch help

Statistics: Posted by Slaktarn — Wed Jun 03, 2009 1:28 pm

FileReader

2009-06-03T09:46:46-04:00

A suggestion, don't join the result from your lindex operation, as you're working on a list of strings (lindex returns the contained item, not a single-entity list).

Statistics: Posted by nml375 — Wed Jun 03, 2009 9:46 am

FileReader

2009-06-03T09:04:13-04:00

script is checking file mod time every X seconds, try it:

Code:

# tomekk, http://forum.egghelp.org/viewtopic.php?t=16929# output channelset out_chan "#channel" # fileset txt_file "myfile.txt" # check interval (seconds)set check_interval 10############################################################set last_file_mod 0proc reader_timer { } {global check_intervalauto_read_procif {[string match *reader_timer* [utimers]] != 1} {utimer $check_interval reader_timer}}proc auto_read_proc { } { global out_chan txt_file last_file_modset file_mtime [file mtime $txt_file]set file_handle [open $txt_file r]set get_data [split [read $file_handle] "\n"]close $file_handleset last_line [join [lindex $get_data end]]if {$last_line == ""} {set last_line [join [lindex $get_data end-1]]}if {$last_file_mod != $file_mtime} {putquick "PRIVMSG $out_chan :$last_line"set last_file_mod $file_mtime}}if {[string match *reader_timer* [utimers]] != 1} {utimer $check_interval reader_timer}putlog "auto-reader.tcl loaded"

Statistics: Posted by tomekk — Wed Jun 03, 2009 9:04 am

FileReader

2009-06-03T09:55:58-04:00

You could try to use the tail program along with pipes in tcl... Be wary of zombies though..

Code would look roughly like below. Be aware that this code depends on an external binary (tail).

Code:

... set fid [open "| /urs/bin/tail -f /path/to/file" RDONLY] fconfigure $fid -blocking 0 -buffering line fileevent $fid readable [list readLine $fid]...proc readline {socket} { while {[gets $socket line] >= 0} {  puthelp "PRIVMSG #channel :$line" } if {[eof $socket]} {  close $socket }}

Edit:
On second thought, that code could easily be adopted to remove the need for the external binary:

Code:

... set fid [open "/path/to/file" RDONLY] fconfigure $fid -blocking 0 -buffering line seek $fid 0 end fileevent $fid readable [list readLine $fid]...proc readline {socket} { while {[gets $socket line] >= 0} {  puthelp "PRIVMSG #channel :$line" }}

Fixed "seek".

Statistics: Posted by nml375 — Wed Jun 03, 2009 6:42 am

FileReader

2009-06-03T05:46:31-04:00

not tested ;p, try:

Code:

set out_chan "#channel"set txt_file "myfile.txt"bind pub -|- !read read_procproc read_proc { nick uhost hand chan arg } {        global out_chan txt_file        set take_me [open $txt_file r]        set take_all [split [read $take_me] "\n"]        close $take_me        foreach txt_line $take_all {                if {$txt_line != ""} {                        putquick "PRIVMSG $out_chan :$txt_line"                }        }}putlog "read.tcl blah blah ..."

Ths for the quick replay but i wuld like it to read like hmm last line every x second or if it possibel maybe everytime the file is changed automatic

Sorry its my fult i shuld be more clear tin the first post whit what i mean

Statistics: Posted by Slaktarn — Wed Jun 03, 2009 5:46 am

FileReader

2009-06-03T05:31:52-04:00

not tested ;p, try:

Code:

set out_chan "#channel"set txt_file "myfile.txt"bind pub -|- !read read_procproc read_proc { nick uhost hand chan arg } {        global out_chan txt_file        set take_me [open $txt_file r]        set take_all [split [read $take_me] "\n"]        close $take_me        foreach txt_line $take_all {                if {$txt_line != ""} {                        putquick "PRIVMSG $out_chan :$txt_line"                }        }}putlog "read.tcl blah blah ..."

Statistics: Posted by tomekk — Wed Jun 03, 2009 5:31 am

FileReader

2009-06-03T05:01:32-04:00

Just a sampel script that read from a txt file

and output #channel $text

Statistics: Posted by Slaktarn — Wed Jun 03, 2009 5:01 am