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") |
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. |
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 |