[Tcldrop/CVS] tcldrop/modules dcc.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/19 17:52:24

Modified files:
        modules        : dcc.tcl 

Log message:
        Partial support for the $connect-timeout setting. (for [link]'s)

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dcc.tcl.diff?tr1=1.23&tr2=1.24&r1=text&r2=text

Patches:
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.23 tcldrop/modules/dcc.tcl:1.24
--- tcldrop/modules/dcc.tcl:1.23        Wed Nov 19 00:19:26 2003
+++ tcldrop/modules/dcc.tcl     Wed Nov 19 17:52:22 2003
@@ -1,6 +1,6 @@
 # dcc.tcl --
 #
-# $Id: dcc.tcl,v 1.23 2003/11/19 05:19:26 fireegl Exp $
+# $Id: dcc.tcl,v 1.24 2003/11/19 22:52:22 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -32,7 +32,7 @@
        # Provide the users module:
        variable version {0.2}
        package provide tcldrop::dcc $version
-       variable rcsid {$Id: dcc.tcl,v 1.23 2003/11/19 05:19:26 fireegl Exp $}
+       variable rcsid {$Id: dcc.tcl,v 1.24 2003/11/19 22:52:22 fireegl Exp $}
        #checkmodule console
        # Export all the commands that should be available to 3rd-party 
scripters:
        namespace export dcclist listen putdcc getchan setchan console echo 
strip idx2hand hand2idx link bots islinked putbot putallbots sock2idx idx2sock
@@ -40,6 +40,8 @@
        ::tcldrop::SetDefault console-autosave 1
        ::tcldrop::SetDefault force-channel 0
        ::tcldrop::SetDefault info-party 0
+       ::tcldrop::SetDefault connect-timeout 27
+       ::tcldrop::SetDefault ident-timeout 13
        variable Levels
        # Define the log levels, and the user-flags that are required to see 
logs sent to that level:
        array set Levels {
@@ -822,7 +824,6 @@
        putdcc $idx "OS: $tcl_platform(os) $tcl_platform(osVersion)"
 }
 
-
 bind time - {* * * * *} ::tcldrop::dcc::AutoLinkBots
 proc ::tcldrop::dcc::AutoLinkBots {minute hour day month year} {
        foreach b [userlist b] {
@@ -876,10 +877,10 @@
        set botaddr [getuser $bot BOTADDR]
        set host [lindex $botaddr 0]
        set port [lindex $botaddr 1]
-       set fail [catch { connect $host $port -timeout 99 -myaddr ${::my-ip} 
-control ::tcldrop::dcc::Read -writable ::tcldrop::dcc::BOTWrite -errors 
::tcldrop::dcc::BOTConnectErrors } idx]
+       set fail [catch { connect $host $port -timeout ${::connect-timeout} 
-myaddr ${::my-ip} -control ::tcldrop::dcc::Read -writable 
::tcldrop::dcc::BOTWrite -errors ::tcldrop::dcc::BOTConnectErrors } idx]
        if {!$fail} {
                ::tcldrop::idx::ChInfo $idx [list handle $bot remote $host 
hostname $host port $port type FORK_BOT other {conn  bot} timestamp [set 
timestamp [unixtime]]]
                #set TimerID [utimer 99 [list ::tcldrop::dcc::BOTConnectTimeout 
$idx]]
        }
        if {!$fail} { return 1 } else { return 0 }
-}
+}
\ No newline at end of file