/[gnats]/gnats/contrib/tkgnats/tkquerypr.tcl
ViewVC logotype

Diff of /gnats/contrib/tkgnats/tkquerypr.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by mcr, Tue Jan 7 07:07:09 2003 UTC revision 1.8 by mcr, Tue Apr 1 02:48:28 2003 UTC
# Line 1585  proc query_cmd_socket {} { Line 1585  proc query_cmd_socket {} {
1585    
1586      foreach cmd $clist {      foreach cmd $clist {
1587          dputs "query sending $cmd"          dputs "query sending $cmd"
1588          puts $s $cmd          gnatsd_send $s $cmd
1589          set rep [get_socket_reply $s]          set rep [get_socket_reply $s]
1590          if {![string match 210* [lindex $rep 0]]} {          if {![string match 210* [lindex $rep 0]]} {
1591              Msg "GNATSD error on cmd: $cmd\n" "[join $rep \n]"              Msg "GNATSD error on cmd: $cmd\n" "[join $rep \n]"
# Line 1596  proc query_cmd_socket {} { Line 1596  proc query_cmd_socket {} {
1596    
1597      set prdata ""      set prdata ""
1598    
1599          puts $s "QUER"         gnatsd_send $s "QUER"
1600                    
1601          set rep [get_socket_reply $s]          set rep [get_socket_reply $s]
1602          if {[string match 440* [lindex $rep 0]]} {          if {[string match 440* [lindex $rep 0]]} {

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

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