egghelp/eggheads community

tail -f (filename)

2005-04-23T16:25:24-04:00

LOL, I fixed that soon after posting.

I did get it to work somewhat, but it seems to lag more and more over time.
I gave up and wrote my own bot in perl that works fine.

Thanks for the help

Statistics: Posted by Porch — Sat Apr 23, 2005 4:25 pm

tail -f (filename)

2005-04-18T09:30:03-04:00

whatever it may be - as long as you _always_ write channel with 3 "n" in your script it will work

Statistics: Posted by arcane — Mon Apr 18, 2005 9:30 am

tail -f (filename)

2005-04-17T18:13:29-04:00

proc my_watch {nick uhost handle channnel arg}

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

Statistics: Posted by CtrlAltDel — Sun Apr 17, 2005 6:13 pm

tail -f (filename)

2005-04-17T16:59:18-04:00

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

Statistics: Posted by De Kus — Sun Apr 17, 2005 4:59 pm

tail -f (filename)

2005-04-17T16:59:38-04:00

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

Statistics: Posted by Ofloo — Sun Apr 17, 2005 4:58 pm

tail -f (filename)

2005-04-17T15:45:02-04:00

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

Statistics: Posted by Porch — Sun Apr 17, 2005 3:45 pm

tail -f (filename)

2005-04-17T15:12:45-04:00

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.

Statistics: Posted by De Kus — Sun Apr 17, 2005 3:12 pm

tail -f (filename)

2005-04-17T14:36:47-04:00

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

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

Code:

bind pub - watch my_watchproc 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 0fileevent $fc readable {putserv "privmsg $nick :[gets $fc]"}    }return 1}

Statistics: Posted by Porch — Sun Apr 17, 2005 2:36 pm

tail -f (filename)

2005-04-17T06:20:59-04:00

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

Statistics: Posted by De Kus — Sun Apr 17, 2005 6:20 am

tail -f (filename)

2005-04-17T04:05:44-04:00

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.

Statistics: Posted by Porch — Sun Apr 17, 2005 4:05 am

tail -f (filename)

2004-11-03T22:44:53-04:00

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

Statistics: Posted by demond — Wed Nov 03, 2004 10:44 pm

tail -f (filename)

2004-11-02T21:31:28-04:00

nick and fc need to be global

Statistics: Posted by demond — Tue Nov 02, 2004 9:31 pm

tail -f (filename)

2004-11-02T19:46:53-04:00

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

Statistics: Posted by Guest — Tue Nov 02, 2004 7:46 pm

tail -f (filename)

2004-11-02T19:30:20-04:00

doesnt seem to work..8(

[/code]

it works for me

explain what did you do, exactly

Statistics: Posted by demond — Tue Nov 02, 2004 7:30 pm

tail -f (filename)

2004-11-02T18:01:58-04:00

doesnt seem to work..8(

Code:

bind pub - #watch my_watchproc 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}

Statistics: Posted by Guest — Tue Nov 02, 2004 6:01 pm