Changes to gnats/contrib/tkgnats/tkquerypr.tcl

[Michael Richardson]

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]]} {