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