[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.13,1.14
Ambrose Li
acli at users.sourceforge.net
Fri Feb 13 02:20:05 CET 2004
Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30334
Modified Files:
text-extract2.pl
Log Message:
Display something useful if the user doesn't specify -f
Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** text-extract2.pl 13 Feb 2004 01:14:18 -0000 1.13
--- text-extract2.pl 13 Feb 2004 01:20:03 -0000 1.14
***************
*** 266,269 ****
--- 266,279 ----
}
+ ###############################################################################
+
+ sub usage_error (;$) {
+ print STDERR "$_[0]\n" if @_;
+ print STDERR "Try `$0 --help' for more information.\n";
+ exit(-1);
+ }
+
+ ###############################################################################
+
GetOptions(
'f|file=s' => \$input,
***************
*** 271,275 ****
'pedantic-warnings' => sub { $pedantic_p = 1 },
'help' => sub { usage(0) },
! ) || exit(-1);
open(INPUT, "<$input") || die "$0: $input: $!\n";
--- 281,286 ----
'pedantic-warnings' => sub { $pedantic_p = 1 },
'help' => sub { usage(0) },
! ) || usage_error;
! usage_error('Missing mandatory option -f') unless defined $input;
open(INPUT, "<$input") || die "$0: $input: $!\n";
More information about the Koha-cvs
mailing list