Code:

#########################################################        Eggdrop Logger 2.0 - www.mircstats.com        ##        Logging in mIRC 6.17 format. 27/04/2006       ##                                                      ##   Make sure you have created the dir 'logger(dir)'   ##                                                      ##         Created by Lanze <simon@freeworld.dk>        ##         Improved by zowtar <zowtar@gmail.com>        ##         Improved by Trixar_za <trixarian@gmail.com>  ##                                                      #########################################################setudef flag slog# Only logs in channels with .chanset #chan +slog now### Configuration#;;; Where the logs will be saved.set logger(dir) "logs/"#;;; Strip codes?#;;; 0 = save codes\colors#;;; 1 = no save codes\colorsset logger(strip) "1"#;;; Save by Day, Week, Month or Disable?set logger(time) "WEEK"# # # # # # # # # # # # # # # #   DO NOT CHANGE ANYTHING BELOW HERE   # # # # # # # # # # # # # # # #### Eventsbind join - "#* *!*@*" logger:joinbind part - "#* *!*@*" logger:partbind sign - "#* *!*@*" logger:quitbind pubm - "#* *" logger:textbind nick - "#* *" logger:nickbind kick - "#* *" logger:kickbind mode - "#* *" logger:modebind topc - "#* *" logger:topicbind raw - "333" logger:topic-authorbind ctcp - "ACTION" logger:action### Primary Commandsproc logger:join {nick uhost handle chan} {  if {![channel get $chan slog]} {    return 0  }  global logger botnick  set chan [string tolower $chan]  if {$nick == $botnick} {    set log "[open "$logger(dir)$chan.log" a]"    puts $log "\r"    puts $log "Session Start: [strftime "%a %b %d %T %Y"]\r"    puts $log "Session Ident: $chan\r"    puts $log "\[[strftime "%H:%M"]\] * Now talking in $chan\r"    close $log  } else {    logger:save [string tolower $chan] "* $nick ($uhost) has joined $chan"  }}proc logger:part {nick uhost handle chan msg} {  if {![channel get $chan slog]} {    return 0  }  if {$msg == ""} {    logger:save [string tolower $chan] "* $nick ($uhost) has left $chan"  } else {    logger:save [string tolower $chan] "* $nick ($uhost) has left $chan ($msg)"  }}proc logger:quit {nick uhost handle chan reason} {  if {![channel get $chan slog]} {    return 0  }  logger:save [string tolower $chan] "* $nick ($uhost) Quit ($reason)"}proc logger:text {nick uhost handle chan text} {  if {![channel get $chan slog]} {    return 0  }  logger:save [string tolower $chan] "<$nick> $text"}proc logger:nick {nick uhost handle chan newnick} {  if {![channel get $chan slog]} {    return 0  }  logger:save [string tolower $chan] "* $nick is now known as $newnick"}proc logger:kick {nick uhost handle chan target reason} {  if {![channel get $chan slog]} {    return 0  }  logger:save [string tolower $chan] "* $target was kicked by $nick ($reason)"}proc logger:mode {nick uhost handle chan mode victim} {  if {![channel get $chan slog]} {    return 0  }  logger:save [string tolower $chan] "* $nick sets mode: $mode $victim"}proc logger:topic {nick uhost handle chan topic} {  if {![channel get $chan slog]} {    return 0  }  if {$nick == "*"} {    logger:save [string tolower $chan] "* Topic is '$topic'"  } else {    logger:save [string tolower $chan] "* $nick changes topic to '$topic'"  }}proc logger:topic-author {from keyword text} {  logger:save [lindex $text 1] "* Set by [lindex $text 2] on [strftime "%a %b %d %T" [lindex $text 3]]"}proc logger:action {nick uhost handle dest keyword text} {  if {![channel get $dest slog]} {    return 0  }  if {[validchan $dest] == "1"} {    logger:save $dest "* $nick $text"  }}### Secondary Commandsproc logger:save {chan text} {  if {![channel get $chan slog]} {    return 0  }  global logger  set chan [string tolower $chan]  set log "[open "$logger(dir)$chan.log" a]"  puts $log "\[[strftime "%H:%M"]\] [logger:strip $text]\r"  close $log}### Tertiary Commandsproc logger:strip {text} {  global logger numversion  if {$logger(strip) == "1"} {    if {$numversion >= "1061700"} {      set text "[stripcodes bcruag $text]"    } else {      regsub -all -- {\002,\003([0-9][0-9]?(,[0-9][0-9]?)?)?,\017,\026,\037} $text "" text    }  }  return $text}### timeproc logger:time {} {  global logger  foreach bind [binds time] {    if {[string match "time * logger:time-save" $bind] == "1"} {      unbind time - "[lindex $bind 2]" logger:time-save    }  }  switch $logger(time) {    DAY {      bind time - "00 00 [strftime "%d" [expr [unixtime] + 86400]] * *" logger:time-save    }    WEEK {      bind time - "00 00 [strftime "%d" [expr [unixtime] + ((7 - [strftime "%w"]) * 86400)]] * *" logger:time-save    }    MONTH {      bind time - "00 00 01 [strftime "%m" [expr [unixtime] + ((31 - [strftime "%d"]) * 86400)]] *" logger:time-save    }  }}proc logger:time-save {minute hour day month year} {  global logger  foreach channel [channels] {    set channel [string tolower $channel]    if {[channel get $channel slog]} {      if {[file exists "$logger(dir)$channel.log"] == "1"} {        file delete -force "$logger(dir)$channel.log"      }      set log "[open "$logger(dir)$channel.log" w]"      puts $log "\r"      puts $log "Session Start: [strftime "%a %b %d %T %Y"]\r"      puts $log "Session Ident: $channel\r"      puts $log "\[[strftime "%H:%M"]\] * Now talking in $channel\r"      close $log      putquick "TOPIC $channel"    }  }  logger:time}logger:timeputlog "TCL Logger.tcl Loaded!"