Parent Directory | Revision Log | Patch
revision 1.8 by fireegl, Fri Nov 14 15:58:47 2003 UTC | revision 1.9 by fireegl, Sat Nov 22 04:34:57 2003 UTC | |
---|---|---|
# | Line 131 proc ::tcldrop::idx::putidx {idx text} { | Line 131 proc ::tcldrop::idx::putidx {idx text} { |
131 | array set idxinfo $d | array set idxinfo $d |
132 | if {[catch { puts $idxinfo(sock) $text }]} { return 0 } else { | if {[catch { puts $idxinfo(sock) $text }]} { return 0 } else { |
133 | flush $idxinfo(sock) | flush $idxinfo(sock) |
134 | traffic $idxinfo(traffictype) out [string length $text] | |
135 | return 1 | return 1 |
136 | } | } |
137 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |