/[tcldrop]/tcldrop/modules/dcc.tcl
ViewVC logotype

Diff of /tcldrop/modules/dcc.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by fireegl, Wed Nov 19 04:06:39 2003 UTC revision 1.23 by fireegl, Wed Nov 19 05:19:26 2003 UTC
# Line 802  proc ::tcldrop::dcc::DCCSTAT {handle idx Line 802  proc ::tcldrop::dcc::DCCSTAT {handle idx
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] {

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