diff options
Diffstat (limited to 'client/scireclient.pl')
| -rwxr-xr-x | client/scireclient.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/client/scireclient.pl b/client/scireclient.pl index 2b961e2..6b4ec1a 100755 --- a/client/scireclient.pl +++ b/client/scireclient.pl @@ -100,17 +100,17 @@ sub send_command { print SERVER_STDIN "${tosend}\n"; #FIXME WE NEED A TIMEOUT HERE OF SOME SORT!! #if the server doesn't give you a newline this just hangs! - my $response = get_response(); - return $response; -} - -sub get_response { - # XXX: Add some logic for multi-line responses here my $response = <SERVER_STDOUT>; - print "Got: ${response}" if($conf{debug}); +# my $response = get_response(); return $response; } +#sub get_response { +# my $response = <SERVER_STDOUT>; +# print "Got: ${response}" if($conf{debug}); +# return $response; +#} + sub parse_response { my $resp = shift; return "Not sure how this is gonna work yet"; |