diff --git a/make-indxal.pl b/make-indxal.pl deleted file mode 100755 index da8150b20..000000000 --- a/make-indxal.pl +++ /dev/null @@ -1,181 +0,0 @@ -#!/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/","/\t/g; - s/\\"/"/g; - my ($dummy, $kat_num, $kat_status, $ents, $other_number, $file, $name, $x4, $x5) = 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 "
!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 $x4) { - print IDXALL " ($x4)"; - } - if (length $other_number) { - print IDXALL " ($other_number)"; - } - if (length $file) { - print IDXALL ""; - } - if (length $x5) { - print IDXALL " - $x5"; - } - #print IDXALL "\n"; - print IDXALL "\n"; -} -print IDXALL <--> -
$number $e"; - if ($file eq "" && $number !~ m!/!) { - $file = "autogen/$number.htm"; - 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; - - - -
- - - -
$number$name$kat_status
- -Blah blah blah... - -
- -> - -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; - } - if (m!([^>]*?)
-
- -> -Back to CUCC Home page
-> -Back to Expedition Intro page
-> -Main Indices:
----> -Index to Expo information pages
----> -Description of CUCC's area and split to subareas
----> -List of (links to) published reports and logbooks
-> -Pictures:
----> -Text only Index
----> -Index pages (with thumbnails)
-> -Other info:
----> -Table of members of CUCC expeditions 1976-99
----> -Other groups who have worked in the area.
----> -Adjacent area 1626 - - - -END -close IDXALL;