egghelp/eggheads community

Tracking Script

2006-02-08T20:50:07-04:00

Ok rehashing doesn't work lol but restarting the bot does. So that will do for now. Thanks for all of your help, I appreciate it bunches.

Rehashing does work since loglist will be reset to the contents of the file (which you edited).

Code:

if {[file exists scripts/trackingscript.log]} { set loglist [split [read [set file [open scripts/trackingscript.log]]][close $file] \n]}

Statistics: Posted by Sir_Fz — Wed Feb 08, 2006 8:50 pm

Tracking Script

2006-02-08T19:44:42-04:00

Ok rehashing doesn't work lol but restarting the bot does. So that will do for now. Thanks for all of your help, I appreciate it bunches.

Statistics: Posted by furious — Wed Feb 08, 2006 7:44 pm

Tracking Script

2006-02-08T18:41:20-04:00

After you delete the log, .rehash or .tcl source scripts/thisscript.tcl.

Statistics: Posted by Sir_Fz — Wed Feb 08, 2006 6:41 pm

Tracking Script

2006-02-08T17:13:00-04:00

Ackkkkkkkkkkk now I have another problem, whenever I delete the logs that the script creates they diappear they are gone completely, but the next time the script updates the logs, it replaces everything that was deleted as well!! Any ideas on how to fix that?

Statistics: Posted by furious — Wed Feb 08, 2006 5:13 pm

Tracking Script

2006-02-08T14:16:45-04:00

you can add

Code:

if {[string match -nocase "*trigger*" $arg]} { #myputlog...}

btw, change args to arg, args has a special meaning in tcl.

Statistics: Posted by Sir_Fz — Wed Feb 08, 2006 2:16 pm

Tracking Script

2006-02-08T11:48:36-04:00

I would only want it to track instances of the word "trigger" being said. This is just a first draft of this script, once I get this better and finished touching it up, I'll start working on the next version that will be much easier to read and stuff.

Statistics: Posted by furious — Wed Feb 08, 2006 11:48 am

Tracking Script

2006-02-08T10:50:13-04:00

What word?

Statistics: Posted by Sir_Fz — Wed Feb 08, 2006 10:50 am

Tracking Script

2006-02-08T10:20:08-04:00

Thanks Sir_Fz it works fine. As a tweak to it, is there any way to make the script log just the word that matches the specified word instead of the whole sentence?

Statistics: Posted by furious — Wed Feb 08, 2006 10:20 am

Tracking Script

2006-02-08T09:15:21-04:00

Where did you get that "close $file" from? just add the code I gave you into your script, and change [putlog] to [myputlog].

Statistics: Posted by Sir_Fz — Wed Feb 08, 2006 9:15 am

Tracking Script

2006-02-07T23:28:40-04:00

Ok have made a few changes and followed the advice given. Now this is my script.

Code:

# Set the next line as the file to log to set filter_words "/home/user/eggdrop/logs/stats.log" ### Set Words that you want the Bot to Log on set words { "test" } ## Binding all Public Messages to our Process bind pubm - * filter_words proc ccodes:filter {str} { regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str return $str } ## Starting Process proc filter_words {nick uhost handle channel args} { global words botnick set args [ccodes:filter $args] foreach word [string tolower $words] { if {[string match *$word* [string tolower $args]]} { if {[matchattr $handle $channel]} { myputlog "4\[[strftime "%D %T"]\] $nick said $args on $channel"  } close $file } } } if {[file exists scripts/stats.log]} {  set loglist [split [read [set file [open scripts/stats.log]]][close $file] \n] } bind time - ?0* save:log proc save:log args {  set f [open scripts/stats.log w]  foreach l $::loglist {   if {$l != ""} {    puts $f $l   }  }  close $f } proc myputlog arg {  if {$arg != ""} {   lappend ::loglist $arg  } }bind pubm - * filter_words putlog " 4f13µ12®8î9ö6µ7§ 8 Tracking Script Loaded"

However that script is now giving me this error message:

Tcl error [filter_words]: can't read "file": no such variable

So aside from this new error its also not logging again. I got the date and time added that I wanted to have, now just a few more small bugs to work out and I'm done.

Statistics: Posted by furious — Tue Feb 07, 2006 11:28 pm

Tracking Script

2006-02-07T19:49:13-04:00

Code:

if {[file exists scripts/trackingscript.log]} { set loglist [split [read [set file [open scripts/trackingscript.log]]][close $file] \n]}bind time - ?0* save:logproc save:log args { set f [open scripts/trackingscript.log w] foreach l $::loglist {  if {$l != ""} {   puts $f $l  } } close $f}proc myputlog arg { if {$arg != ""} {  lappend ::loglist $arg }}

so now, instead of [putlog] use [myputlog] and everything will be logged into trackingscript.log in the script/ directory. (The file is updated every 10 minutes)

Statistics: Posted by Sir_Fz — Tue Feb 07, 2006 7:49 pm

Tracking Script

2006-02-07T15:20:02-04:00

Ok its logging now, but how can I specify what file to put it in? Because right now it is going into the bots normal log file which isn't what I want, thats a lot of lines to look through. I want this to go to a specific file and a specific place.

Statistics: Posted by furious — Tue Feb 07, 2006 3:20 pm

Tracking Script

2006-02-06T23:20:17-04:00

Ok since it's still not logging I have even tried to specify a path for it to send the logs to. So now this is what my script looks like.

Code:

# Set the next line as the file to log toset filter_words "/home/user/eggdrop/logs/serverstats.log"### Set Words that you want the Bot to Log onset words { "sample"}## Binding all Public Messages to our Processbind pubm - * filter_wordsproc ccodes:filter {str} {  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}## Starting Processproc filter_words {nick uhost handle channel args} { global words botnick set args [ccodes:filter $args]   set handle [nick2hand $nick]foreach word [string tolower $words] {     if {[string match *$word* [string tolower $args]]}  {       if {[matchattr $handle flags $channel]} {           putlog "-4Tracking Script -ATTENTION-0 $nick ($handle) said $args on $channel"             } else {           putlog "-4Tracking Script -ATTENTION0 $nick on $channel matched by $args"       }    }  }}bind pubm - * filter_wordsputlog "FuRiOuS Tracking Script Loaded"

Statistics: Posted by furious — Mon Feb 06, 2006 11:20 pm

Tracking Script

2006-02-06T21:54:37-04:00

Since you used [putlog], you can see them in the eggdrop's logfile.

Statistics: Posted by Sir_Fz — Mon Feb 06, 2006 9:54 pm

Tracking Script

2006-02-06T21:13:16-04:00

Ok yeah duh that was my bad after removing that one line that takes care of my error message, but it's still not logging the word being said. It does catch the phrase though, because it shows it in the party line, but I want to retrieve this information later on, if somebody could help that would be great, or point me in the direction of a very dummified beginers manual would be great. This is my first attempt at writing something myself, so I have taken bits and pieces of it from other scripts so far, making progress but still a ways to go.

Statistics: Posted by furious — Mon Feb 06, 2006 9:13 pm