From c4e5d079bf0b3475ab37d67f6387b662c33e2c9f Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 14 Nov 2017 12:29:52 +0000 Subject: [PATCH] Bug 13937: (follow-up) Pass through yaz switches and don't ignore case Signed-off-by: Stefan Berndtsson Signed-off-by: Martin Renvoize --- misc/z3950_responder.pl | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/misc/z3950_responder.pl b/misc/z3950_responder.pl index e1056c5a7f..2e63177d22 100755 --- a/misc/z3950_responder.pl +++ b/misc/z3950_responder.pl @@ -20,7 +20,7 @@ use Modern::Perl; use Carp; -use Getopt::Long; +use Getopt::Long qw(:config no_ignore_case); use Pod::Usage; use C4::Context; @@ -102,10 +102,17 @@ my @yaz_options; sub add_yaz_option { my ( $opt_name, $opt_value ) = @_; + warn "name: $opt_name and value: $opt_value"; push @yaz_options, "-$opt_name", "$opt_value"; } +sub pass_yaz_option { + my ( $opt_name ) = @_; + + push @yaz_options, "-$opt_name"; +} + GetOptions( '-h|help' => \$help, '--man' => \$man, @@ -126,13 +133,13 @@ GetOptions( 'C=s' => \&add_yaz_option, 'm=s' => \&add_yaz_option, 'w=s' => \&add_yaz_option, - 'z' => \&add_yaz_option, - 'K' => \&add_yaz_option, - 'i' => \&add_yaz_option, - 'D' => \&add_yaz_option, - 'S' => \&add_yaz_option, - 'T' => \&add_yaz_option, - '1' => \&add_yaz_option + 'z' => \&pass_yaz_option, + 'K' => \&pass_yaz_option, + 'i' => \&pass_yaz_option, + 'D' => \&pass_yaz_option, + 'S' => \&pass_yaz_option, + 'T' => \&pass_yaz_option, + '1' => \&pass_yaz_option ) || pod2usage(2); pod2usage(1) if $help; -- 2.39.5