FileReader

[Slaktarn]

Just a sampel script that read from a txt file

and output #channel $text

[tomekk]

not tested ;p, try:

Code: Select all

set out_chan "#channel"
set txt_file "myfile.txt"

bind pub -|- !read read_proc

proc 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 ..."

[Slaktarn]

not tested ;p, try:

Code: Select all

set out_chan "#channel"
set txt_file "myfile.txt"

bind pub -|- !read read_proc

proc 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

[nml375]

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: Select all

...
 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: Select all

...
 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".

[tomekk]

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

Code: Select all

# tomekk, http://forum.egghelp.org/viewtopic.php?t=16929

# output channel
set out_chan "#channel" 

# file
set txt_file "myfile.txt" 

# check interval (seconds)
set check_interval 10

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

proc reader_timer { } {
	global check_interval

	auto_read_proc

	if {[string match *reader_timer* [utimers]] != 1} {
		utimer $check_interval reader_timer
	}
}

proc auto_read_proc { } { 
	global out_chan txt_file last_file_mod

	set file_mtime [file mtime $txt_file]

	set file_handle [open $txt_file r]
	set get_data [split [read $file_handle] "\n"]
	close $file_handle

	set 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"

[nml375]

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).

[Slaktarn]

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

[nml375]

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

Code: Select all

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

[Slaktarn]

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

Code: Select all

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

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

[tomekk]

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

[nml375]

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: Select all

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

[Slaktarn]

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: Select all

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

How do you mean where shuld i edit it

[tomekk]

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: Select all

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

it is initialized, before timer proc

Code: Select all

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

[nml375]

Ahh, my apologies. Must have missed that.