/[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.21 by fireegl, Sat Nov 22 05:01:56 2003 UTC revision 1.22 by fireegl, Wed Nov 26 00:05:05 2003 UTC
# Line 87  proc ::tcldrop::SetDefault {var {value { Line 87  proc ::tcldrop::SetDefault {var {value {
87  ::tcldrop::SetDefault owner {}  ::tcldrop::SetDefault owner {}
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}
91    
92  proc unixtime {} { clock seconds }  proc unixtime {} { clock seconds }
93    
# Line 452  proc ::tcldrop::calltime {} { Line 453  proc ::tcldrop::calltime {} {
453          }          }
454  }  }
455    
456    # Every $hourly-updates we call the "save" event:
457    proc ::tcldrop::HourlyUpdates {minute hour day month year} { callevent save }
458    bind evnt - loaded {event} { bind time - "${::hourly-updates} * * * *" ::tcldrop::HourlyUpdates }
459    
460  #  maskhost <nick!user@host>  #  maskhost <nick!user@host>
461  #    Returns: masked hostmask for the string given ("n!u@1.2.3.4" -> "*!u@1.2.3.*",  #    Returns: masked hostmask for the string given ("n!u@1.2.3.4" -> "*!u@1.2.3.*",
462  #      "n!u@lame.com" -> "*!u@lame.com", "n!u@a.b.edu" -> "*!u@*.b.edu")  #      "n!u@lame.com" -> "*!u@lame.com", "n!u@a.b.edu" -> "*!u@*.b.edu")
# Line 702  if {[catch { restart {start} }]} { Line 707  if {[catch { restart {start} }]} {
707          # We wanna display how many channels and users there are (like Eggdrop):          # We wanna display how many channels and users there are (like Eggdrop):
708          if {[catch { ::tcldrop::Stdout o - "=== ${::botnet-nick}: [countchannels] channels, [countusers] users." }]} { ::tcldrop::Stdout o - "=== ${::botnet-nick}: [countusers] users." }          if {[catch { ::tcldrop::Stdout o - "=== ${::botnet-nick}: [countchannels] channels, [countusers] users." }]} { ::tcldrop::Stdout o - "=== ${::botnet-nick}: [countusers] users." }
709  }  }
710    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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