1ecf5ee106
To avoid Getopt::Long treating upper case and lower case options, this patch restores removed ":config no_ignore_case". Steps to reproduce: 1. Start koha-z3950-responder deamon for any instance. 2. Check z3950.log log file, there should be "[fatal] Failed to listen on ...-koha-z3950" in it. 3. Alternatively you can "curl localhost:2100/biblios?version=1.1 -v" to ensure that it doesn't work "Failed to connect to localhost port 2100: Connection refused". 4. Apply the patch. 5. Stop and start daemon again. 6. Check the logs again, there should be no new error there. 7. Same way do the curl to ensure that this time it listens on that port. Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
64 lines
1.5 KiB
Perl
Executable file
64 lines
1.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Copyright 2020 Koha Development Team
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Koha::Script;
|
|
use Getopt::Long qw( GetOptions :config no_ignore_case );
|
|
use C4::Context;
|
|
use C4::Installer;
|
|
|
|
sub print_usage {
|
|
( my $basename = $0 ) =~ s|.*/||;
|
|
print <<USAGE;
|
|
|
|
$basename
|
|
Load file in YAML format into database.
|
|
|
|
Usage:
|
|
$0 [--file=FILE]
|
|
$0 -h
|
|
-h, --help Show this help
|
|
-f, --file=FILE File to load.
|
|
--load Load the file into the database
|
|
|
|
USAGE
|
|
}
|
|
|
|
# Getting parameters
|
|
my ( @files, $load, $help );
|
|
|
|
GetOptions(
|
|
'help|h' => \$help,
|
|
'load' => \$load,
|
|
'file|f=s@' => \@files,
|
|
) or print_usage, exit 1;
|
|
|
|
if ($help or not @files or not $load) {
|
|
print_usage;
|
|
exit;
|
|
}
|
|
|
|
my $installer = C4::Installer->new;
|
|
if ( $load ) {
|
|
for my $f ( @files ) {
|
|
my $error = $installer->load_sql($f);
|
|
say $error if $error;
|
|
}
|
|
}
|