#!/usr/bin/perl -w use strict; -d "autogen" or mkdir "autogen", 0755; open IDXALL, ">indxal.htm" or die $!; print IDXALL < Loser Plateau area : Cave description index

Kataster Gruppe 1623:
Loser Augst-Eck - INDEX

END <>; # eat header line while (<>) { chomp; y/\t/ /; s/\"\"/\"/g; my @fields = split(/,/, $_); #print "$_\n"; #print @fields; $_ = "\"\t"; my $statement; foreach $statement (@fields) { #print "$_ z\n"; #print "$statement\n"; if ($_ =~ /\t$/) { if ($statement =~ /^"/) { if ($statement =~ /"$/) { $_ = "$_$statement\t"; } else { $_ = "$_$statement,"; } } else { $_ = "$_\"$statement\"\t"; } } else { if ($statement =~ /"$/) { $_ = "$_$statement\t"; } else { $_ = "$_$statement,"; } } } #print "$_\n\n"; s/"\t"/\t/g; s/\\"/"/g; #print "$_\n\n"; my ($dummy, $kat_num, $kat_status, $ents, $other_number, $mult_ents, $file, $name, $unofficial_name, $comment, $area, $no_info, $explorers, $u_description, $references, $u_centre_line, $u_drawn_survey, $survex_file, $length, $depth, $extent, $header, $notes, $ent_name, $tag_punkt, $other_punkt, $desc_other_punkt, $exact_punkt, $fix_type, $northing, $easting, $altitude, $bearings, $map, $location, $approach, $ent_desc, $ent_photo, $marking) = split /\t/, $_; my $number = $kat_num; if ($number eq "") { $number = $other_number; $other_number = ""; } my $e = $ents; $e =~ s/ +/ /g; #print IDXALL "

$number $e

"; print IDXALL "

END if ($other_number ne "") { if ($unofficial_name ne "") { print FILE ""; } else { print FILE ""; } } else { if ($unofficial_name ne "") { print FILE ""; } } print FILE <

END if ($length ne "") { print FILE "Length: $length "; } if ($depth ne "") { print FILE "Depth: $depth "; } if ($extent ne "") { print FILE "Extent: $extent "; } print FILE "\n

\n"; # Entrance specific bit if($mult_ents eq "yes"){ print FILE "

"; my $e_mult_ents; do{ my $e = <>; chomp; $e =~ y/\t/ /; $e =~ s/\"\"/\"/g; my @fields = split(/,/, $e); #print "$e\n"; #print @fields; $e = "\"\t"; my $statement; foreach $statement (@fields) { #print "$_ z\n"; #print "$statement\n"; if ($e =~ /\t$/) { if ($statement =~ /^"/) { if ($statement =~ /"$/) { $e = "$e$statement\t"; } else { $e = "$e$statement,"; } } else { $e = "$e\"$statement\"\t"; } } else { if ($statement =~ /"$/) { $e = "$e$statement\t"; } else { $e = "$e$statement,"; } } } #print "$e\n\n"; $e =~ s/"\t"/\t/g; $e =~ s/\\"/"/g; #print "$_\n\n"; my ($edummy, $ekat_num, $ekat_status, $eents, $eother_number, $emult_ents, $efile, $ename, $eunofficial_name, $ecomment, $earea, $eno_info, $eexplorers, $eu_description, $ereferences, $eu_centre_line, $eu_drawn_survey, $esurvex_file, $elength, $edepth, $eextent, $eheader, $enotes, $eent_name, $etag_punkt, $eother_punkt, $edesc_other_punkt, $eexact_punkt, $efix_type, $enorthing, $eeasting, $ealtitude, $ebearings, $emap, $elocation, $eapproach, $eent_desc, $eent_photo, $emarking) = split /\t/, $e; my $enumber = $ekat_num; if ($enumber eq "") { $enumber = $eother_number; $eother_number = ""; } print FILE "\n

$enumber$eents "; if ($eent_name ne "") { print FILE " $eent_name"; } if ($ealtitude ne "") { print FILE " Altitude: $ealtitude "; } if ($enorthing ne "") { print FILE " Northing: $enorthing "; } if ($eeasting ne "") { print FILE " Easting: $eeasting "; } if ($efix_type ne "") { print FILE " Fix type: $efix_type "; } if ($etag_punkt ne "") { print FILE "Fix position: tag"; } else{ if ($eother_punkt ne "") { if ($edesc_other_punkt ne "") { print FILE "Fix position: $edesc_other_punkt"; } else{ print FILE "Fix position: Do not know"; } } else{ if ($eexact_punkt ne "") { print FILE "Fix position: on drip line/highest closed contour"; } } } $e_mult_ents = $emult_ents; } while($e_mult_ents ne "last entrance"); print FILE "

"; } else{ if ($ent_name ne "") { print FILE "Entrance Name: $ent_name

"; } if ($altitude ne "") { print FILE "Altitude: $altitude "; } if ($northing ne "") { print FILE "Northing: $northing "; } if ($easting ne "") { print FILE "Easting: $easting "; } if ($fix_type ne "") { print FILE "Fix type: $fix_type "; } if ($tag_punkt ne "") { print FILE "Fix position: tag"; } else{ if ($other_punkt ne "") { if ($desc_other_punkt ne "") { print FILE "Fix position: $desc_other_punkt"; } else{ print FILE "Fix position: Do not know"; } } else{ if ($exact_punkt ne "") { print FILE "Fix position: exact point"; } } } } # Cave general bit #print FILE "\n

\n"; if ($location ne "") { print FILE "\n

Location: $location"; } if ($bearings ne "") { print FILE "\n

Bearings: $bearings"; } if ($approach ne "") { print FILE "\n

Approach: $approach"; } if ($map ne "") { print FILE "\n

Map: $map"; } if ($ent_desc ne "") { print FILE "\n

Entrance Description: $ent_desc"; } if ($ent_photo ne "") { print FILE "\n

Entrance Photo: $ent_photo"; } if ($marking ne "") { print FILE "\n

Marking: $marking"; } if ($references ne "") { print FILE "\n

References: $references"; } if ($u_description ne "") { print FILE "\n

Underground Description: $u_description"; } if ($notes ne "") { print FILE "\n

Notes: $notes"; } if ($explorers ne "") { print FILE "\n

Explorers: $explorers"; } if ($u_centre_line ne "") { print FILE "\n

Centre Line: $u_centre_line"; } if ($u_drawn_survey ne "") { print FILE "\n

Survey: $u_drawn_survey"; } if ($survex_file ne "") { print FILE "\n

Survex file: $survex_file"; } print FILE < Full Index
Other Areas
Back to Expedition Intro page END close FILE; # } if ($file ne "") { print IDXALL ""; my $f = $file; $f =~ s/#.*//; if (! -f $f) { print STDERR "Warning: file `$f' not found\n"; } else { open FILE, $f; my $n; while () { if (m!]*)?>([^>]*?)(?: |\s)+(?:$number)!i) { $n = $1; last; } if (m!]*)?>([^>]*?(?:höhle|schacht|shaft))!i) { $n = $1; last; } if (m!

!i) { $n = $1; last; } } close FILE; if (!defined $n) { print STDERR "no name found in $f for $number\n"; } else { my $n2 = $n; my $name2 = $name; $n2 =~ s/ $.*$$//; $name2 =~ s/ $.*$$//; $n2 =~ s/ CUCC\b//; $name2 =~ s/ CUCC\b//; if ($name2 =~ m!^\Q$n2\E(?:[ /]\Q$number\E)?$!i) { #print STDERR "OK $number $n\n"; } else { print STDERR "BAD $number : `$n' != `$name' in $f\n"; } } } } if ($name eq "") { $name = "?"; } print IDXALL $name; if (length $unofficial_name) { print IDXALL " ($unofficial_name)"; } if (length $other_number) { print IDXALL " ($other_number)"; } if (length $file) { print IDXALL ""; } if (length $comment) { print IDXALL " - $comment"; } #print IDXALL "\n"; print IDXALL "\n"; } print IDXALL <-->

$number $ents	$name	$kat_status
$number $e	"; # if ($file eq "" && $number !~ m!/!) { $number =~ s/\//-/g; $number =~ s/\?/q/; $file = "autogen/$number.htm"; #print "$file\n"; open FILE, ">$file" or die $!; print FILE < END if ($kat_num ne "") { print FILE "1623:$kat_num\n"; } else { print FILE "$number\n"; } print FILE <<END; END print FILE "$header\n"; print FILE <
	= $other_number ($unofficial_name)
	= $other_number
	($unofficial_name)
])?>([^>]?)!i) { $n = $1; last; } if (m!	([^>]*?)