/[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.22 by fireegl, Wed Nov 26 00:05:05 2003 UTC revision 1.23 by fireegl, Wed Nov 26 00:54:03 2003 UTC
# Line 453  proc ::tcldrop::calltime {} { Line 453  proc ::tcldrop::calltime {} {
453          }          }
454  }  }
455    
 # Every $hourly-updates we call the "save" event:  
 proc ::tcldrop::HourlyUpdates {minute hour day month year} { callevent save }  
 bind evnt - loaded {event} { bind time - "${::hourly-updates} * * * *" ::tcldrop::HourlyUpdates }  
   
456  #  maskhost <nick!user@host>  #  maskhost <nick!user@host>
457  #    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.*",
458  #      "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 534  proc ::tcldrop::traffic {{type {*}} {dir Line 530  proc ::tcldrop::traffic {{type {*}} {dir
530  #namespace import -force {::tcldrop::*}  #namespace import -force {::tcldrop::*}
531  namespace import {::tcldrop::*}  namespace import {::tcldrop::*}
532    
533    # Every $hourly-updates we call the "save" event:
534    proc ::tcldrop::HourlyUpdates {minute hour day month year} { callevent save }
535    
536  # The loadmodule and unloadmodule commands MUST be defined here.  # The loadmodule and unloadmodule commands MUST be defined here.
537  # Because package require loads the packages from the global namespace (I think).  # Because package require loads the packages from the global namespace (I think).
538  # And because [namespace import] imports into the current namespace.  # And because [namespace import] imports into the current namespace.
# Line 677  proc restart {{type {restart}}} { Line 676  proc restart {{type {restart}}} {
676          ::tcldrop::SetDefault botnet-nick $::nick          ::tcldrop::SetDefault botnet-nick $::nick
677          callevent $type          callevent $type
678          callevent loaded          callevent loaded
679            bind time - "${::hourly-updates} * * * *" ::tcldrop::HourlyUpdates
680            return $type
681  }  }
682    
683  bind evnt - init ::tcldrop::MakePIDFile  bind evnt - init ::tcldrop::MakePIDFile

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

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