/[tcldrop]/tcldrop/modules/core.tcl
ViewVC logotype

Diff of /tcldrop/modules/core.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by fireegl, Tue Dec 2 09:27:14 2003 UTC revision 1.32 by fireegl, Wed Dec 3 03:39:41 2003 UTC
# Line 88  proc ::tcldrop::SetDefault {var {value { Line 88  proc ::tcldrop::SetDefault {var {value {
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    
# Line 203  proc ::tcldrop::LogFile {levels channel Line 204  proc ::tcldrop::LogFile {levels channel
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]} {

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26