Add --help/-h. Fix truncated ctl output for large commands

pull/168/head
Lucian Balaceanu 11 years ago
parent 72cf55b6fb
commit e5665c872a

@ -3,7 +3,9 @@
use IO::Socket::INET; use IO::Socket::INET;
$num_args = $#ARGV + 1; $num_args = $#ARGV + 1;
if ($num_args == 0) { if ( ($num_args == 0) or
(($num_args == 1) && (($ARGV[0] eq "--help") or ($ARGV[0] eq "-h"))) )
{
showusage(); showusage();
exit; exit;
} }
@ -45,9 +47,12 @@ shutdown($socket, 1);
# receive a response of up to 10MB # receive a response of up to 10MB
my $response = ""; my $response = "";
$socket->recv($response, 1024*1024*10);
print $response; do {
$response = "";
$socket->recv($response, 1024*1024*10);
print $response;
} while ( not $response eq "");
$socket->close(); $socket->close();

Loading…
Cancel
Save