88 |
::tcldrop::SetDefault nick {Tcldrop} |
::tcldrop::SetDefault nick {Tcldrop} |
89 |
::tcldrop::SetDefault lang-path {language} |
::tcldrop::SetDefault lang-path {language} |
90 |
::tcldrop::SetDefault hourly-updates {00} |
::tcldrop::SetDefault hourly-updates {00} |
91 |
|
::tcldrop::SetDefault log-time {1} |
92 |
|
|
93 |
proc unixtime {} { clock seconds } |
proc unixtime {} { clock seconds } |
94 |
|
|
204 |
# Use * for all channels, or - to specify that it's global-only. |
# Use * for all channels, or - to specify that it's global-only. |
205 |
proc putloglev {levels channel text} { |
proc putloglev {levels channel text} { |
206 |
# Call all of the LOG binds here: |
# Call all of the LOG binds here: |
207 |
|
if {${::log-time}} { set text "[clock format [clock seconds] -format {[%H:%M]}] $text" } |
208 |
foreach b [binds log] { |
foreach b [binds log] { |
209 |
foreach {type flags mask count proc} $b {} |
foreach {type flags mask count proc} $b {} |
210 |
if {[::tcldrop::CheckFlags $flags $levels] && [string match -nocase $mask $channel]} { |
if {[::tcldrop::CheckFlags $flags $levels] && [string match -nocase $mask $channel]} { |