mirror of
https://expo.survex.com/repositories/expoweb/.git/
synced 2025-03-26 04:01:54 +00:00
87 lines
2.4 KiB
Perl
Executable File
87 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
use strict;
|
|
|
|
print <<END;
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0//EN">
|
|
<!-- *** This file is auto-generated - edit cavetab.csv instead -->
|
|
<html lang="en">
|
|
<head>
|
|
<title>Loser Plateau area : Cave description index</title>
|
|
</head>
|
|
<body>
|
|
<h1>Kataster Gruppe 1623:<br>Loser Augst-Eck - INDEX</h1>
|
|
|
|
<dl compact>
|
|
END
|
|
|
|
<>; # eat header line
|
|
while (<>) {
|
|
chomp;
|
|
y/\t/ /;
|
|
$_ = "\",$_,\"";
|
|
s/","/\t/g;
|
|
s/\\"/"/g;
|
|
my ($dummy, $number, $other_number, $file, $x3, $x4, $x5) = split /\t/, $_;
|
|
if ($number eq "") {
|
|
$number = $other_number;
|
|
$other_number = "";
|
|
}
|
|
print "<dt><a name=\"$number\">$number</a><dd>";
|
|
if (length $file) {
|
|
print "<a href=\"$file\">";
|
|
my $f = $file;
|
|
$f =~ s/#.*//;
|
|
if (! -f $f) {
|
|
print STDERR "Warning: file `$f' not found\n";
|
|
}
|
|
}
|
|
print $x3;
|
|
if (length $x4) {
|
|
print " ($x4)";
|
|
}
|
|
if (length $other_number) {
|
|
print " ($other_number)";
|
|
}
|
|
if (length $file) {
|
|
print "</a>";
|
|
}
|
|
if (length $x5) {
|
|
print " - $x5";
|
|
}
|
|
print "\n";
|
|
}
|
|
print <<END;
|
|
</dl>
|
|
<hr>
|
|
<!-- LINKS -->
|
|
<img alt=">" src="../icons/lists/0.png">
|
|
Back to <a href="../index.htm">CUCC Home page</a><br>
|
|
<img alt=">" src="../icons/lists/0.png">
|
|
Back to <a href="index.htm">Expedition Intro page</a><br>
|
|
<img alt=">" src="../icons/lists/0.png">
|
|
<b>Main Indices:</b><br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="infodx.htm"><b>Index</b> to Expo</a> information pages<br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="areas.htm">Description of CUCC's area</a> and split to subareas<br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
List of (links to) <a href="pubs.htm">published reports and logbooks</a><br>
|
|
<img alt=">" src="../icons/lists/0.png">
|
|
<b>Pictures:</b><br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="gall0.htm">Text only Index</a><br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="gallery/0.htm">Index pages (with thumbnails)</a><br>
|
|
<img alt=">" src="../icons/lists/0.png">
|
|
Other info:<br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
Table of <a href="folk/index.htm">members of CUCC expeditions</a> 1976-99<br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="others/index.htm">Other groups</a> who have worked in the area.<br>
|
|
<img alt="--->" src="../icons/lists/1.png">
|
|
<a href="1626/index.htm">Adjacent area 1626</a>
|
|
|
|
</body>
|
|
</html>
|
|
END
|