tail -f (filename)

wize_one · Post by **wize_one** » Mon Nov 01, 2004 7:51 pm

was wondering if there is a way to put the bot in one room and have it paste the contents of a file that is always updating. any help or pointers in the right direct would be a great help.

thanks for your time.

demond · Post by **demond** » Mon Nov 01, 2004 11:44 pm

Code: Select all

if [file readable $file] {
  set fc [open "|tail -f $file"]
  fconfigure $fc -blocking 0
  fileevent $fc readable {puthelp "privmsg $chan :[gets $fc]"}
}

wize_one · Post by **wize_one** » Tue Nov 02, 2004 6:01 pm

doesnt seem to work..8(

Code: Select all

bind pub - #watch my_watch
proc my_watch {nick uhost handle channel arg} {

if [file readable /var/log/httpd/error_log] {
  set fc [open "|tail -f /var/log/httpd/error_log"]
  fconfigure $fc -blocking 0
  fileevent $fc readable {putserv "privmsg $nick :[gets $fc]"}
}
  return 1
}

demond · Post by **demond** » Tue Nov 02, 2004 7:30 pm

wize_one wrote:doesnt seem to work..8(

[/code]

it works for me

explain what did you do, exactly

wize_one · Post by **wize_one** » Tue Nov 02, 2004 7:46 pm

put that code in one of my tcl scripts, rehashed the bot, did #watch, went to the website and entered a fake url(so it would add to the error log) went back to chat and there was nothing there

demond · Post by **demond** » Tue Nov 02, 2004 9:31 pm

nick and fc need to be global

demond · Post by **demond** » Wed Nov 03, 2004 10:44 pm

hey quit msg'ing me already and make your fileevent script vars (nick and fc) global; if you could manage to write a proc, you surely know what 'global' is

Porch · Post by **Porch** » Sun Apr 17, 2005 4:05 am

Can someone post the full version of this? I really need to tail a file and I don't know enough tcl to make the below script work. I spent 2 hours looking over the docs and trying stuff with no luck.

Thanks a bunch.

De Kus · Post by **De Kus** » Sun Apr 17, 2005 6:20 am

Part of the ultimate story "The Manual":
http://www.tcl.tk/man/tcl8.4/TclCmd/global.htm

Porch · Post by **Porch** » Sun Apr 17, 2005 2:36 pm

I am putting it in the wrong spot? I get this error.

[03:38] Tcl error [my_watch]: variable "nick" already exists

Code: Select all




bind pub - watch my_watch



proc my_watch {nick uhost handle channnel arg} {



    global nick fc



    if [file readable /home/et/1] {

	set fc [open "|tail -f /home/et/1"]

	fconfigure $fc -blocking 0

	fileevent $fc readable {putserv "privmsg $nick :[gets $fc]"}

    }



return 1

}

De Kus · Post by **De Kus** » Sun Apr 17, 2005 3:12 pm

Porch wrote:proc my_watch {nick uhost handle channnel arg} {

you need to rename this "nick" to something else (like cnick) and everywhere THIS nick is meant and not the global nick.
alternatively you can use $::nick referance the global nick and leave nick like it is, remember to remove "nick" from the global line in the 2nd case.

Porch · Post by **Porch** » Sun Apr 17, 2005 3:45 pm

Well, I understand the words, but the golbal NICK and a local nick? I don't have a clue what you are saying to do.

I mucked around with it and hard coded the vars into it. That seems to work. For now.

Thanks

Ofloo · Post by **Ofloo** » Sun Apr 17, 2005 4:58 pm

i would suggest not to use tail -f cause that doesn't work, all the time, ive seen that after running tail-f durring a perriod of time that it just quits tailing

maybe try this

get the size of the file

=> get file size filename

compare to previous size if greater open file seek to the buffer offset and read, .. if smaller then go to the previous file for instance

syslog => syslog.0 syslog.1 ...

do the same set the offset using seek and read then move on to the current , now append the number of read bytes to the current file size

quick:

1024 < old
2049 < new
read file 1025
close file
set newfilesize 2049

loop back to step one

De Kus · Post by **De Kus** » Sun Apr 17, 2005 4:59 pm

you need to understand, that each var is assinged to a specific procedure or namespace. if you create a var in the top level (outside of any proc) it is called a "global" var, or you could say it belongs to the namespace of emtpy string (namespace references use namespacename::var, so if namespacename is an emtpy string it will ::var). If you define a proc with parameters like nick uhost hand chan etc. these var will only be valid within that proc and will not be permanent, means, they will be newly created each time the proc is called.
So if you try to "include" the global var "nick" while you have already a var called "nick" within that proc, you will encounter problems, because you try to have 2 vars with one and the same name which logically is impossible

.

So I suggested 2 diffrent solutions:

1st: rename the temporar var "nick" belonging to the proc
ex.: proc my_watch {cnick uhost handle channnel arg} { global nick; ... }

2nd: don't include the global var "nick" into the proc and refer it direct via its namespace (::nick).
ex.: proc my_watch {nick uhost handle channnel arg} { ...; putserv "$::nick" }

CtrlAltDel · Post by **CtrlAltDel** » Sun Apr 17, 2005 6:13 pm

Porch wrote:proc my_watch {nick uhost handle channnel arg}

Just wondering, is this how it is in the script?