From 5aed127ccbcd2f97c40b8bf088738886e99b13b9 Mon Sep 17 00:00:00 2001 From: sb476 <devnull@localhost> Date: Tue, 20 Apr 2004 02:11:21 +0200 Subject: [PATCH] [svn r5754] Remove extra debug --- noinfo/make-indxal4.pl | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/noinfo/make-indxal4.pl b/noinfo/make-indxal4.pl index dd7906555..d49099e71 100755 --- a/noinfo/make-indxal4.pl +++ b/noinfo/make-indxal4.pl @@ -12,22 +12,17 @@ use Getopt::Long; my $no_verbose_progress = 0; my $usage = 0; GetOptions('quiet' => \$no_verbose_progress, # be quiet - 'help|?' => \$usage # help! + 'help' => \$usage # help! ); # Print usage if ($usage) { - print << "EOF"; -USAGE: $progname [-options] <CSV file> - -q, --quiet Be quiet about progress - -h, --help Show this message -EOF - exit(0); + usage(); } unless ($ARGV[0]) { - print "Specify a CSV file name (e.g. CAVETAB2.CSV)\n"; - die $!; + print "Specify a CSV file name as the program's argument(e.g. CAVETAB2.CSV)\n"; + usage(); } open (CSV, "< $ARGV[0]"); @@ -184,7 +179,6 @@ sub do_this_line { # If the cave does not have a filename allocated, but does have multiple entrances, keep going through the CSV file until we are at the last entrance, before we return unless ($file) { # this IS necessary if ($mult_ents eq "yes") { - print "hello $kat_num $other_number\n"; my $e_mult_ents; do { my $e = <CSV>; @@ -590,3 +584,13 @@ sub multi_ents { print FILE "\n\n</menu>"; } + +# Usage +sub usage { + print << "EOF"; +USAGE: $progname [-options] <CSV file> + -q, --quiet Be quiet about progress + -h, --help Show this message +EOF + exit(0); +}