/[tcldrop]/tcldrop/modules/idx.tcl
ViewVC logotype

Diff of /tcldrop/modules/idx.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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          }          }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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