Something

## BINDS ##

bind notc -|- * notc:log

## CONFIGS ##

set canal "#flamengo"
set arquivo logs/$botnick/@$canal.log.[strftime "%d-%m-%y"]
putlog $arquivo

## PROCS ##

proc notc:log {n u h a d} {
        set msg [lrange $a 0 end]
        logon [strftime "%H:%M"] $n $msg
}

proc logon {t n m} {
        global botnick arquivo
        set tmp [open $arquivo a+]
        puts $tmp "\[$t\] <$n> $m"
        close $tmp
}

putlog "\[h\] onoticelog.tcl carregada com sucesso"