[Tcldrop/CVS] tcldrop/modules dcc.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/18 20:45:45

Modified files:
        modules        : dcc.tcl 

Log message:
        Added support for the $ident-timeout setting.

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

Patches:
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.20 tcldrop/modules/dcc.tcl:1.21
--- tcldrop/modules/dcc.tcl:1.20        Mon Nov 17 22:43:27 2003
+++ tcldrop/modules/dcc.tcl     Tue Nov 18 20:45:44 2003
@@ -1,6 +1,6 @@
 # dcc.tcl --
 #
-# $Id: dcc.tcl,v 1.20 2003/11/18 03:43:27 fireegl Exp $
+# $Id: dcc.tcl,v 1.21 2003/11/19 01:45:44 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.20 2003/11/18 03:43:27 fireegl Exp $}
+       variable rcsid {$Id: dcc.tcl,v 1.21 2003/11/19 01:45:44 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
@@ -237,7 +237,7 @@
        # FixMe: The type may not sposta be called TELNET_ID yet, need to find 
out:
        set hostname [lindex [fconfigure $sock -peername] 1]
        ::tcldrop::idx::ChInfo $idx [list idx $idx sock $sock handle * ident 
{-telnet} hostname $hostname ip $ip remote address@hidden port $port type 
TELNET_ID other {t-in  waited 1s} timestamp [unixtime]]
-       ::ident::ident -sock $sock -command [list ::tcldrop::dcc::Ident $idx]
+       ::ident::ident -sock $sock -timeout [expr { ${::ident-timeout} * 1000 
}] -command [list ::tcldrop::dcc::Ident $idx]
 }
 
 proc ::tcldrop::dcc::Write {idx} {
@@ -545,7 +545,6 @@
                # FixMe: The type may not sposta be TELNET_ID yet, need to find 
out:
                ::tcldrop::idx::Register $idx [list idx $idx sock stdout handle 
* ident User hostname Console remote address@hidden port 0 type TELNET_ID other 
"t-in  waited 1s" timestamp [unixtime]]
                # FixMe: Create a bind for when people successfully login and 
set the console settings elsewhere:
-               #console $idx
                # Turn off logging to Stdout, because it's a dcc session now, 
not a screen:
                unbind log - * ::tcldrop::Stdout
        }