resty: added the -V option.

This commit is contained in:
Yichun Zhang (agentzh) 2014-08-20 15:27:35 -07:00
parent f7e34420c0
commit 96fc664875
1 changed files with 13 additions and 8 deletions

View File

@ -15,13 +15,23 @@ use File::Temp qw( tempdir );
use POSIX qw( WNOHANG ); use POSIX qw( WNOHANG );
my %opts; my %opts;
getopts("he:c:", \%opts) getopts("he:c:V", \%opts)
or usage(1); or usage(1);
if ($opts{h}) { if ($opts{h}) {
usage(0); usage(0);
} }
my $nginx_path = File::Spec->catfile($FindBin::Bin, "..", "nginx", "sbin", "nginx");
#warn $nginx_path;
if (!-f $nginx_path) {
$nginx_path = "nginx"; # find in PATH
}
if ($opts{V}) {
exec "$nginx_path -V";
}
my $luafile; my $luafile;
if (!defined $opts{e}) { if (!defined $opts{e}) {
$luafile = shift $luafile = shift
@ -34,12 +44,6 @@ if (@ARGV) {
my $conns = $opts{c} || 64; my $conns = $opts{c} || 64;
my $nginx_path = File::Spec->catfile($FindBin::Bin, "..", "nginx", "sbin", "nginx");
#warn $nginx_path;
if (!-f $nginx_path) {
$nginx_path = "nginx"; # find in PATH
}
my $prefix_dir = tempdir(CLEANUP => 1); my $prefix_dir = tempdir(CLEANUP => 1);
#warn "prefix dir: $prefix_dir\n"; #warn "prefix dir: $prefix_dir\n";
@ -196,12 +200,13 @@ if ($pid == 0) { # child process
sub usage { sub usage {
my $rc = shift; my $rc = shift;
my $msg = <<_EOC_; my $msg = <<_EOC_;
$0 [-h] [-c num] [-e prog] [lua-file] $0 [-h] [-c num] [-e prog] [-V] [lua-file]
Options: Options:
-c num set maximal connection count (default: 64). -c num set maximal connection count (default: 64).
-e prog run the inlined Lua code in "prog". -e prog run the inlined Lua code in "prog".
-h print this help. -h print this help.
-V print the underlying nginx version and configurations.
_EOC_ _EOC_
if ($rc == 0) { if ($rc == 0) {
print $msg; print $msg;