bind pubm - * log:chat

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
}