expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2026-02-26 06:05:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r6872] Changed area definitions to something slightly more helpful

Browse Source
This commit is contained in:
dave
2005-05-31 15:10:49 +02:00
parent f63eea80d0
commit 41893491e4
4 changed files with 171 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

185
noinfo/CAVETAB2.CSV
View File

File diff suppressed because one or more lines are too long

BIN
noinfo/CAVETAB2.sxc
View File

Binary file not shown.

11
noinfo/make-indxal4.pl
View File

@@ -6,11 +6,12 @@ use File::Path;
use Getopt::Long;
# header column never has any info...
# certainly not now I've deleted it (DL)
((my $progname = $0) =~ s/^.*\///ig); # basename $0
my $warnings; # set this if we have non fatal problems
my $cvsdirectories = ':'; # this gets filled with directories that should have
# cvsignores generated in a later pass
# cvsignores generated in a later pass
# Parse options
my $no_verbose_progress = 0;
@@ -29,7 +30,9 @@ unless ($ARGV[0]) {
usage();
}
# One day this may be proofed against this problem, but another command line parameter (location of expoweb) is inevitable, and unappealing
# One day this may be proofed against this problem,
# but another command line parameter (location of expoweb)
# is inevitable, and unappealing
($_ = cwd()) =~ s/^.*\///ig;
if ($_ ne "noinfo") {
print STDERR "This program expects to be run from a CWD of noinfo!\n\n";
@@ -728,10 +731,10 @@ sub expandarea {
return ("Schwarzmooskogel ridge", "smkridge");
}
if ($_[1] == 0 && $_[0] eq "2a") {
return ("Caves known or expected to link into the Stellerweg - Eishöhle and Kaninchenhöhle systems", "smkridge");
return ("Southern section near 40 and 161", "smkridge");
}
if ($_[1] == 0 && $_[0] eq "2b") {
return ("Caves in the area of the Stellerweg - Eishöhle and Kaninchenhöhle systems, but not linked up", "smkridge");
return ("Northern section near 204", "smkridge");
}
if ($_[0] eq 3) {
return ("Bräuning Alm", "br-alm");