Changes to gnats/contrib/tkgnats/tkquerypr.tcl
Michael Richardson <[email protected]> Mon, 31 Mar 2003 21:49:03 -0500
| Newsgroups | gmane.comp.bug-tracking.gnats.patches |
|---|---|
| Message-ID | <[email protected]> |
Index: gnats/contrib/tkgnats/tkquerypr.tcl
diff -c gnats/contrib/tkgnats/tkquerypr.tcl:1.7 gnats/contrib/tkgnats/tkquerypr.tcl:1.8
*** gnats/contrib/tkgnats/tkquerypr.tcl:1.7 Tue Jan 7 02:07:09 2003
--- gnats/contrib/tkgnats/tkquerypr.tcl Mon Mar 31 21:48:28 2003
***************
*** 1585,1591 ****
foreach cmd $clist {
dputs "query sending $cmd"
! puts $s $cmd
set rep [get_socket_reply $s]
if {![string match 210* [lindex $rep 0]]} {
Msg "GNATSD error on cmd: $cmd\n" "[join $rep \n]"
--- 1585,1591 ----
foreach cmd $clist {
dputs "query sending $cmd"
! gnatsd_send $s $cmd
set rep [get_socket_reply $s]
if {![string match 210* [lindex $rep 0]]} {
Msg "GNATSD error on cmd: $cmd\n" "[join $rep \n]"
***************
*** 1596,1602 ****
set prdata ""
! puts $s "QUER"
set rep [get_socket_reply $s]
if {[string match 440* [lindex $rep 0]]} {
--- 1596,1602 ----
set prdata ""
! gnatsd_send $s "QUER"
set rep [get_socket_reply $s]
if {[string match 440* [lindex $rep 0]]} {