Fix startup errors, missing getopt() args

This commit is contained in:
Ervin Hegedus 2025-07-27 19:54:58 +02:00
parent a4ea4e6c00
commit 158084c7ec
No known key found for this signature in database
GPG Key ID: 5FA5BC3F5EC41F61

View File

@ -11,7 +11,7 @@
use strict; use strict;
use Time::HiRes qw(gettimeofday sleep); use Time::HiRes qw(gettimeofday sleep);
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG); use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG);
use File::Spec qw(rel2abs); use File::Spec::Functions qw(rel2abs);
use File::Basename qw(basename dirname); use File::Basename qw(basename dirname);
use FileHandle; use FileHandle;
use IPC::Open2 qw(open2); use IPC::Open2 qw(open2);
@ -54,7 +54,7 @@ $SIG{TERM} = $SIG{INT} = \&handle_interrupt;
my $platform = "apache"; my $platform = "apache";
my %opt; my %opt;
getopts('A:E:D:C:T:H:a:p:dvh', \%opt); getopts('A:E:D:C:T:H:S:a:p:dvh', \%opt);
if ($opt{d}) { if ($opt{d}) {
$Data::Dumper::Indent = 1; $Data::Dumper::Indent = 1;
@ -125,7 +125,7 @@ unless (defined $opt{S}) {
LOGS_DIR => $FILES_DIR, LOGS_DIR => $FILES_DIR,
SCRIPT_DIR => $SCRIPT_DIR, SCRIPT_DIR => $SCRIPT_DIR,
REGRESSION_DIR => $REG_DIR, REGRESSION_DIR => $REG_DIR,
DIST_ROOT => File::Spec->rel2abs(dirname("$SCRIPT_DIR/../../..")), DIST_ROOT => File::Spec->rel2abs(dirname("$SCRIPT_DIR/../..")),
AUDIT_LOG => $opt{A}, AUDIT_LOG => $opt{A},
DEBUG_LOG => $opt{D}, DEBUG_LOG => $opt{D},
ERROR_LOG => $opt{E}, ERROR_LOG => $opt{E},