#!/usr/bin/perl -w use strict; use File::Path; use Getopt::Long; # no_info col is currently unused ((my $progname = $0) =~ s/^.*(\/|\\)//ig); # basename $0 # Parse options my $no_verbose_progress = 0; my $usage = 0; GetOptions('quiet' => \$no_verbose_progress, # be quiet 'help' => \$usage # help! ); # Print usage if ($usage) { usage(); } unless ($ARGV[0]) { print STDERR "Specify a CSV file name as the program's argument(e.g. CAVETAB2.CSV)\n"; usage(); } open (CSV, "< $ARGV[0]"); # Start writing index file open INDXAL, ">..\/indxal.htm" or die $!; print INDXAL << "END"; Loser Plateau area : Cave description index

Kataster Gruppe 1623:
Loser Augst-Eck - INDEX

END ; # starting to read in csv file, eat header line # Read in pos file to @pos now rather than later so we don't repeat it n times open INPUT2, "< all.pos" or print STDERR "Could not find all.pos in the current directory\n" and die $!; my @pos = ; close INPUT2; # Go down a directory chdir ".."; # While loop which reads in each line of csv file while () { chomp; do_this_line($_, "cave"); } # Finish writing index file print INDXAL << "END";
END close INDXAL; print "Information: Done\n"; # Process a line of the CSV file # First argument is contents of line to process # Second argument is "cave" or "entrance" # 3rd arg is the Kataster number of the cave an entrance belongs to (optional) # 4th arg is the Other number of the cave an entrance belongs to (optional) # Returns nothing sub do_this_line { # Split single line into all the fields my ($kat_num, $kat_status, $ents, $other_number, $mult_ents, $file, $linkfile, $name, $unofficial_name, $comment, $area, $no_info, $explorers, $u_description, $equipment, $qmlist, $katstatus, $references, $u_centre_line, $u_drawn_survey, $survex_file, $length, $depth, $extent, $header, $footer, $notes, $ent_name, $tag_punkt, $other_punkt, $desc_other_punkt, $exact_punkt, $fix_type, $gpspresa, $gpspostsa, $northing, $easting, $altitude, $bearings, $map, $location, $approach, $ent_desc, $ent_photo, $marking) = &parse_csv($_[0]); # If we have been called to process an entrance, we may have been given the cave's Kataster number or Other number if ($_[2] and ! $kat_num) { $kat_num = $_[2]; } if ($_[3] and ! $other_number) { $other_number = $_[3]; } # Generate $linkid which will be kataster no., or other no. if no kataster no. present. Per HTML4 (and XHTML etc.) ID and NAME tokens must begin with alpha characters - hence "id" prepend my $linkid = "id$kat_num"; my $other_number_no_brackets = $other_number; if ($kat_num and $other_number) { $other_number = "($other_number)"; # wrap it in brackets, so it doesn't appear to be official } elsif ($other_number and ! $kat_num) { $linkid = "id$other_number"; } # Under XHTML 1.0, link ids must not have '(', '?', ' ', or '/' $linkid =~ s/\//-/g; $linkid =~ s/\?/q/; $linkid =~ s/\(/:/; $linkid =~ s/\)/:/; $linkid =~ s/ /_/; # Determine the number of directorys deep the caves main page is at in order to link to area descriptions and indxal my $toroot = 'Q'; # hey; it's magic my $counter = ($file =~ tr/\///); while ($counter) { $toroot = join('', $toroot, "/.."); $counter--; } $toroot =~ s/Q\///; # If it's a cave, then insert it in the index file if ($_[1] eq "cave") { my $e = $ents; $e =~ s/ +/ /g; print INDXAL "$kat_num $other_number"; if ($e) { print INDXAL " - $e"; } print INDXAL ""; if ($file) { print INDXAL ""; } elsif ($linkfile) { print INDXAL ""; } if ($name) { print INDXAL $name; } else { print INDXAL "?"; } if ($unofficial_name) { print INDXAL " ($unofficial_name)"; } if ($file or $linkfile) { print INDXAL ""; } if ($comment) { print INDXAL " - $comment"; } print INDXAL "\n"; } # 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 if ($mult_ents eq "yes") { my $e_mult_ents; do { my $e = ; chomp; my (undef, undef, undef, undef, $emult_ents) = &parse_csv($e); $e_mult_ents = $emult_ents; } while ($e_mult_ents ne "last entrance"); } return; } # If command line option is set, then be quiet unless ($no_verbose_progress) { print "Progress: $file\n"; } # Make the directory that the file is in, in case it doesn't exist yet my $fn = $file; $fn =~ s/^.*\///g; my $path = $file; $path =~ s/\/$fn//g; mkpath($path); # Open the file and start writing to it open FILE, "> $file" or die $!; print FILE << "END"; END if ($kat_num) { print FILE "1623:$kat_num"; } else { print FILE "<title>$other_number"; } print FILE << "END"; END if ($header) { print FILE "$header\n\n"; } print FILE "\n"; print FILE ""; if ($kat_status) { print FILE ""; } print FILE "\n
"; if ($kat_num) { print FILE "$kat_num"; } if ($ents) { print FILE " - $ents"; } if ($other_number) { if ($kat_num) { print FILE "
"; } print FILE " $other_number"; } print FILE "		$name"; if ($unofficial_name) { if ($name) { print FILE "
"; } print FILE " ($unofficial_name)"; } print FILE "		$kat_status
"; if ($length or $depth or $extent) { print FILE "\n\n

"; } if ($length) { print FILE "Length: $length "; } if ($depth) { print FILE "Depth: $depth "; } if ($extent) { print FILE "Extent: $extent "; } if ($length or $depth or $extent) { print FILE "

"; } # Entrance specific bit unless ($mult_ents eq "yes") { # If there is only one entrance, print FILE "\n\n

"; unless ($ent_name) { print FILE "Entrance:"; } # Process the location data for the entrance do_ent($tag_punkt,$other_punkt,$exact_punkt,$gpspostsa,$gpspresa,$easting,$northing,$altitude,$ent_name,$fix_type,$desc_other_punkt); print FILE "

" } else { # If there are multiple entrances multi_ents($file, $kat_num, $other_number, $other_number_no_brackets, $toroot); } # Cave general bit if ($location) { print FILE "\n\n

Location: $location

"; } if ($bearings) { print FILE "\n\n

Bearings: $bearings

"; } if ($approach) { print FILE "\n\n

Approach: $approach

"; } if ($map) { print FILE "\n\n

Map: $map

"; } if ($ent_desc) { print FILE "\n\n

Entrance Description: $ent_desc

"; } if ($ent_photo) { print FILE "\n\n

Entrance Photo: $ent_photo

"; } if ($marking and $marking ne "\r" and $marking ne "\r\n" and $marking ne "\n") { # bodgelicious. print FILE "\n\n

Marking: $marking

"; } if ($references) { print FILE "\n\n

References: $references

"; } if ($u_description) { print FILE "\n\n

Underground Description: $u_description

"; } if ($equipment) { print FILE "\n\n

Equipment: $equipment

"; } if ($qmlist) { print FILE "\n\n

QM list: $qmlist

"; } if ($u_drawn_survey) { print FILE "\n\n

Survey: $u_drawn_survey

"; } if ($notes) { print FILE "\n\n

Notes: $notes

"; } if ($explorers) { print FILE "\n\n

Explorers: $explorers

"; } if ($katstatus) { print FILE "\n\n

Kataster Status: $katstatus

"; } if ($u_centre_line) { print FILE "\n\n

Centre Line: $u_centre_line

"; } if ($survex_file) { print FILE "\n\n

Survex file: $survex_file

"; } if ($footer) { print FILE "\n\n

$footer

"; } print FILE "\n\n\n
END close FILE; } # Parse a line of CSV data # Argument is the line of data to be processed # Returns array of the separated variables sub parse_csv { my $line = $_[0]; my @parsedline = (); my $field = ''; while ($line =~ m{ \G(?:^|,) (?: "((?> [^"]*) (?> "" [^"]*)*)" | ([^",]*)) }gx) { if ($2) { $field = $2; } elsif ($1) { $field = $1; $field =~ s/""/"/g; } else { $field = ''; } push(@parsedline, $field); } return(@parsedline); } # Process the location data for the entrance # Returns nothing sub do_ent { my $punkt; my $calc_easting; my $calc_northing; my $calc_altitude; my $desc; my $tag_punkt = $_[0]; my $other_punkt = $_[1]; my $exact_punkt = $_[2]; my $gpspostsa = $_[3]; my $gpspresa = $_[4]; my $easting = $_[5]; my $northing = $_[6]; my $altitude = $_[7]; my $ent_name = $_[8]; my $fix_type = $_[9]; my $desc_other_punkt = $_[10]; # Write out info for entrance if ($ent_name) { print FILE "Entrance Name: $ent_name "; } if ($altitude) { print FILE "Recorded Alt: $altitude "; } if ($northing) { print FILE "Recorded as N$northing "; } if ($easting) { print FILE "Recorded as E$easting "; } if ($fix_type) { print FILE "Fix type: $fix_type "; } if ($tag_punkt) { print FILE "Tag point: $tag_punkt "; } if ($other_punkt) { print FILE "Point: $other_punkt "; if ($desc_other_punkt) { print FILE "Point description: $desc_other_punkt "; } else { print FILE "Point description: none "; } } if ($exact_punkt) { print FILE "Exact entrance: $exact_punkt "; } if ($gpspresa) { print FILE "GPS pre sa: $gpspresa "; } if ($gpspostsa) { print FILE "GPS post sa: $gpspostsa "; } # Decide which punkt to lookup if ($tag_punkt) { $punkt=$tag_punkt; $desc = "tag point"; } elsif ($other_punkt) { $punkt = $other_punkt; $desc = "point"; } elsif ($exact_punkt) { $punkt = $exact_punkt; $desc = "exact point"; } elsif ($gpspostsa) { $punkt = $gpspostsa; $desc = "GPS (pre SA)"; } elsif ($gpspresa) { $punkt = $gpspresa; $desc = "GPS (post SA)"; } # Find the position of that punkt if ($punkt) { for my $surveypoint (@pos) { if ($surveypoint =~ m/\( *([0-9\.\-]*), *([0-9\.\-]*), *([0-9\.\-]*) \) $punkt(\r\n|\n|\r)/){ $calc_easting=$1; $calc_northing=$2; $calc_altitude=$3; } } if ($calc_easting) { print FILE "
\nLookup values for $desc data: "; print FILE "Alt: $calc_altitude "; print FILE "N$calc_northing "; print FILE "E$calc_easting "; } else { print STDERR "Warning: Lookup point for $desc data not found: $punkt\n"; } } } # Handle multiple entrances # 1st arg is the file name of the cave to which the entrance belongs # 2nd arg is the Kataster number of the cave # 3rd arg is the Other number of the cave (which may have been put in brackets) # 4th arg is the Other number of the cave without any brackets # 5th arg is the path to return to the root from the cave sub multi_ents { my $file = $_[0]; my $kat_num = $_[1]; my $other_number = $_[2]; my $other_number_no_brackets = $_[3]; my $toroot = $_[4]; print FILE "\n\n

Entrances:

\n\n"; } # Usage sub usage { print << "EOF"; USAGE: $progname [-options] -q, --quiet Be quiet about progress -h, --help Show this message EOF exit(0); }