[Tcldrop/CVS] tcldrop/modules dcc.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/25 19:06:56

Modified files:
        modules        : dcc.tcl 

Log message:
        Calls the "save" event in the .save dcc command.

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

Patches:
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.27 tcldrop/modules/dcc.tcl:1.28
--- tcldrop/modules/dcc.tcl:1.27        Fri Nov 21 23:49:09 2003
+++ tcldrop/modules/dcc.tcl     Tue Nov 25 19:06:56 2003
@@ -1,6 +1,6 @@
 # dcc.tcl --
 #
-# $Id: dcc.tcl,v 1.27 2003/11/22 04:49:09 fireegl Exp $
+# $Id: dcc.tcl,v 1.28 2003/11/26 00:06:56 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.27 2003/11/22 04:49:09 fireegl Exp $}
+       variable rcsid {$Id: dcc.tcl,v 1.28 2003/11/26 00:06:56 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
@@ -240,6 +240,7 @@
        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] traffictype misc]
        ::ident::ident -sock $sock -timeout [expr { ${::ident-timeout} * 1000 
}] -command [list ::tcldrop::dcc::Ident $idx]
+       putloglev d * "net: connect! idx $idx (socket $sock)"
 }
 
 proc ::tcldrop::dcc::Write {idx} {
@@ -736,9 +737,9 @@
 
 bind dcc nmto save ::tcldrop::dcc::SAVE
 proc ::tcldrop::dcc::SAVE {handle idx text} {
-       save
+       callevent save
        putcmdlog "#$handle# save $text"
-       putdcc $idx {Saving user file...}
+       putdcc $idx {Saving...}
 }
 
 bind dcc nmtof uptime ::tcldrop::dcc::UPTIME
@@ -808,7 +809,7 @@
        foreach {a d} [::tcldrop::idx::Info] {
                array unset idxinfo
                array set idxinfo $d
-               putdcc $idx "[format {%-3.3s %-6.6s %-5.5s %-9.9s %-32.32s 
%-4.4s} $a $idxinfo(sock) $idxinfo(port) $idxinfo(handle) $idxinfo(hostname) 
$idxinfo(other)]"
+               putdcc $idx "[format {%-3.3s %-6.6s %-5.5s %-9.9s %-32.32s 
%-4.4s} $a $idxinfo(sock) $idxinfo(port) $idxinfo(handle) $idxinfo(remote) 
$idxinfo(other)]"
        }
 }