expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-01-18 08:52:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r5485] *** empty log message ***

Browse Source
This commit is contained in:
mjg54 2004-01-16 03:38:36 +01:00
parent 830b6f6f2f
commit b7c4657f2b
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
noinfo/make-indxal2.pl
View File

@ -113,6 +113,7 @@ while (<>) {
open FILE, ">..\/$file" or die $!;
print FILE <<END;
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0//EN">
<!-- *** This file is auto-generated - edit cavetab.csv instead -->
<html lang=en>
<head>
<title>
@ -251,6 +252,12 @@ END
elsif ($eexact_punkt ne "") {
$epunkt = $eexact_punkt;
}
elsif ($egpspostsa ne "") {
$epunkt = $egpspostsa;
}
elsif ($egpspresa ne "") {
$epunkt = $egpspresa;
}
else {
$epunkt = "";
}
@ -307,10 +314,10 @@ END
print FILE "<b>Point name:</b> $epunkt ";
}
if ($egpspresa ne "") {
print FILE "GPS pre sa: $egpspresa ";
print FILE "<b>GPS pre sa:</b> $egpspresa ";
}
if ($egpspostsa ne "") {
print FILE "GPS pre sa: $egpspostsa ";
print FILE "<b>GPS post sa:</b> $egpspostsa ";
}
$e_mult_ents = $emult_ents;
}
@ -330,6 +337,12 @@ END
elsif ($exact_punkt ne "") {
$punkt = $exact_punkt;
}
elsif ($gpspostsa ne "") {
$punkt = $gpspostsa;
}
elsif ($gpspresa ne "") {
$punkt = $gpspresa;
}
else {
$punkt = "";
}
@ -386,10 +399,10 @@ END
print FILE "<b>Point name:</b> $punkt ";
}
if ($gpspresa ne "") {
print FILE "GPS pre sa: $gpspresa ";
print FILE "<b>GPS pre sa:</b> $gpspresa ";
}
if ($gpspostsa ne "") {
print FILE "GPS pre sa: $gpspostsa ";
print FILE "<b>GPS pre sa:</b> $gpspostsa ";
}
}
# Cave general bit
@ -452,14 +465,13 @@ END
}
my $toroot;
$toroot = "";
print "\n$file has no slash";
#print "\n$file";
#determine the number of directorys deep the caves main page is at in order to link to area descriptions and indxal
if ($file =~ /.*\/.*/) {
$toroot = "../";
print "one slash";
}
if ($file =~ /.*\/.*\/.*/) {
$toroot = '../../';
print "two slash";
}
if ($file =~ /.*\/.*\/.*\/.*/) {
$toroot = '../../../';