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