Code:

set logdir "logs/"bind dcc -|- makelog dcc:makelogproc dcc:makelog {hand idx arg} {global logdir set logmsg [lrange $arg 0 end] set filename $logdir$hand\_[strftime %m-%d-%y].log if {![file exists $filename]} {   set fp [open $filename w]   puts $fp "[strftime \[%H:%M\]] [join $logmsg]"   putdcc $idx "Writing '[join $logmsg]' to $filename" } else {   set fp [open $filename a]   puts $fp "[strftime \[%H:%M\]] [join $logmsg]"   putdcc $idx "Adding '[join $logmsg]' to $filename" } close $fp }