megglogger.tcl

[Stone]

hello

Code: Select all

# logging binds
bind pubm - * log:chat
bind join - * log:join
bind part - * log:part
bind sign - * log:sign
bind topc - * log:topc
bind kick - * log:kick
bind nick - * log:nick
bind mode - * log:mode
bind ctcp - "ACTION" log:cact

# logging procs
proc log:chat {nick host hand chan text} {
  global logdir
  set logstr "\[[strftime %H:%M]\] <$nick> $text"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:join {nick host hand chan} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick ($host) has joined $chan"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:part {nick host hand chan} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick ($host) has left $chan ()"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:sign {nick host hand chan text} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick has left $chan ($text)"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:topc {nick host hand chan text} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick changes topic to '$text'"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:kick {nick host hand chan targ text} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $targ was kicked by $nick ($text)"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:nick {nick host hand chan newn} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick is now known as $newn"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:mode {nick host hand chan chag vict} {
  global logdir
  set logstr "\[[strftime %H:%M]\] *** $nick sets mode: $chag $vict"
  set addlog [open $logdir/[string range [string tolower $chan] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

proc log:cact {nick host hand dest keyw args} {
  global logdir
  if {[string range $dest 0 0] != "#"} {
    return 0
  }
  set logstr "\[[strftime %H:%M]\] * $nick $args"
  set addlog [open $logdir/[string range [string tolower $dest] 1 end].log a]
  puts $addlog "$logstr"
  close $addlog
}

# the end.

error ..

Code: Select all

Tcl error [log:part]: wrong # args: should be "log:part nick host hand chan"

any one can help me !!!

[metroid]

Code: Select all

proc log:part {nick host hand chan reason} {

[Stone]

thank you MeTroiD

[Stone]

what about this error ..

Code: Select all

[bs_timedsave]: error getting working directory name: permission denied

[caesar]

That's from a different script. Either unload the one causing this or just check it's settings cos you don't seem to have access to read/write in that specific dir it wants to access.

[Stone]

thank you ..

i get error from bseen1.4.2 [/code]