/[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.32 by fireegl, Tue Dec 2 06:54:33 2003 UTC revision 1.33 by fireegl, Tue Dec 2 09:27:14 2003 UTC
# Line 805  proc ::tcldrop::dcc::UNLOADMOD {handle i Line 805  proc ::tcldrop::dcc::UNLOADMOD {handle i
805  bind dcc n dccstat ::tcldrop::dcc::DCCSTAT  bind dcc n dccstat ::tcldrop::dcc::DCCSTAT
806  proc ::tcldrop::dcc::DCCSTAT {handle idx text} {  proc ::tcldrop::dcc::DCCSTAT {handle idx text} {
807          putcmdlog "#$handle# dccstat $text"          putcmdlog "#$handle# dccstat $text"
808          putdcc $idx {IDX SOCKET PORT  HANDLE    HOSTNAME or IP                   TYPE}          putdcc $idx {IDX      SOCKET PORT  HANDLE    REMOTE                           TYPE}
809          putdcc $idx {--- ------ ----- --------- -------------------------------- ----}          putdcc $idx {-------- ------ ----- --------- -------------------------------- ----}
810          foreach {a d} [::tcldrop::idx::Info] {          foreach {a d} [::tcldrop::idx::Info] {
                 array unset idxinfo  
811                  array set idxinfo $d                  array set idxinfo $d
812                  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)]"                  putdcc $idx "[format {%-8.8s %-6.6s %-5.5s %-9.9s %-32.32s %-4.4s} $a $idxinfo(sock) $idxinfo(port) $idxinfo(handle) $idxinfo(remote) $idxinfo(other)]"
813          }          }
814  }  }
815    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26