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 |
|
|