32 |
# Provide the dcc module: |
# Provide the dcc module: |
33 |
variable version {0.1} |
variable version {0.1} |
34 |
package provide tcldrop::dcc $version |
package provide tcldrop::dcc $version |
35 |
|
# This makes sure we're loading from a tcldrop environment: |
36 |
|
if {![info exists ::numversion]} { return } |
37 |
variable rcsid {$Id$} |
variable rcsid {$Id$} |
38 |
#checkmodule console |
checkmodule idx |
39 |
# Export all the commands that should be available to 3rd-party scripters: |
# Export all the commands that should be available to 3rd-party scripters: |
40 |
namespace export dcclist putdcc idx2hand hand2idx sock2idx idx2sock killdcc calldcc |
namespace export dcclist putdcc idx2hand hand2idx sock2idx idx2sock killdcc calldcc |
41 |
::tcldrop::SetDefault connect-timeout 27 |
::tcldrop::SetDefault connect-timeout 27 |