802 |
} |
} |
803 |
} |
} |
804 |
|
|
805 |
|
bind dcc n modules ::tcldrop::dcc::MODULES |
806 |
|
proc ::tcldrop::dcc::MODULES {handle idx text} { |
807 |
|
putcmdlog "#$handle# modules $text" |
808 |
|
putdcc $idx {Modules loaded:} |
809 |
|
foreach m [modules] { putdcc $idx " Module: [lindex $m 0] (v[lindex $m 1])" } |
810 |
|
putdcc $idx {End of modules list.} |
811 |
|
} |
812 |
|
|
813 |
|
bind dcc n status ::tcldrop::dcc::STATUS |
814 |
|
bind dcc n statu ::tcldrop::dcc::STATUS |
815 |
|
bind dcc n stat ::tcldrop::dcc::STATUS |
816 |
|
proc ::tcldrop::dcc::STATUS {handle idx text} { |
817 |
|
putcmdlog "#$handle# status $text" |
818 |
|
global botnet-nick ver owner config tcl_platform |
819 |
|
putdcc $idx "I am ${botnet-nick}, running Tcldrop v$ver." |
820 |
|
putdcc $idx "Admin: $owner" |
821 |
|
putdcc $idx "Config file: $config" |
822 |
|
putdcc $idx "OS: $tcl_platform(os) $tcl_platform(osVersion)" |
823 |
|
} |
824 |
|
|
825 |
|
|
826 |
bind time - {* * * * *} ::tcldrop::dcc::AutoLinkBots |
bind time - {* * * * *} ::tcldrop::dcc::AutoLinkBots |
827 |
proc ::tcldrop::dcc::AutoLinkBots {minute hour day month year} { |
proc ::tcldrop::dcc::AutoLinkBots {minute hour day month year} { |
828 |
foreach b [userlist b] { |
foreach b [userlist b] { |