expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-12-10 07:38:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r5754] Remove extra debug

Browse Source
This commit is contained in:
sb476
2004-04-20 02:11:21 +02:00
parent e206620fe5
commit 5aed127ccb
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
noinfo/make-indxal4.pl
View File

@@ -12,22 +12,17 @@ use Getopt::Long;
my $no_verbose_progress = 0; my $no_verbose_progress = 0;
my $usage = 0; my $usage = 0;
GetOptions('quiet' => \$no_verbose_progress, # be quiet GetOptions('quiet' => \$no_verbose_progress, # be quiet
'help|?' => \$usage # help! 'help' => \$usage # help!
); );
# Print usage # Print usage
if ($usage) { if ($usage) {
print << "EOF"; usage();
USAGE: $progname [-options] <CSV file>
-q, --quiet Be quiet about progress
-h, --help Show this message
EOF
exit(0);
} }
unless ($ARGV[0]) { unless ($ARGV[0]) {
print "Specify a CSV file name (e.g. CAVETAB2.CSV)\n"; print "Specify a CSV file name as the program's argument(e.g. CAVETAB2.CSV)\n";
die $!; usage();
} }
open (CSV, "< $ARGV[0]"); 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 # 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 unless ($file) { # this IS necessary
if ($mult_ents eq "yes") { if ($mult_ents eq "yes") {
print "hello $kat_num $other_number\n";
my $e_mult_ents; my $e_mult_ents;
do { do {
my $e = <CSV>; my $e = <CSV>;
@@ -590,3 +584,13 @@ sub multi_ents {
print FILE "\n\n</menu>"; 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);
}