With plackup, @ARGV can contains elements so we can't check the size of
@ARGV to tell whether we are in command line mode or not.
Instead we check environment variable GATEWAY_INTERFACE.
Also fix the use of a global variable in a subroutine
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
my $query = new CGI;
-my $commandline = 0;
my $op;
my $filename;
my $dbh = C4::Context->dbh;
my $help;
# Checks if the script is called from commandline
-if ( scalar @ARGV > 0 ) {
+my $commandline = not defined $ENV{GATEWAY_INTERFACE};
+
+if ( $commandline ) {
# Getting parameters
$op = 'export';
'record-type=s' => \$record_type,
'help|?' => \$help
);
- $commandline = 1;
-
if ($help) {
print <<_USAGE_;
if ( opendir(my $dir, $directory) ) {
while (my $file = readdir($dir)) {
next unless ( $file =~ m/\.$extension(\.(gz|bz2|xz))?/ );
- push @files, $file if ( -f "$backupdir/$file" && -r "$backupdir/$file" );
+ push @files, $file if ( -f "$directory/$file" && -r "$directory/$file" );
}
closedir($dir);
}