expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-03-21 09:42:02 +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 $!; open FILE, ">..\/$file" or die $!;
print FILE <<END; print FILE <<END;
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0//EN"> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0//EN">
<!-- *** This file is auto-generated - edit cavetab.csv instead -->
<html lang=en> <html lang=en>
<head> <head>
<title> <title>
@ -251,6 +252,12 @@ END
elsif ($eexact_punkt ne "") { elsif ($eexact_punkt ne "") {
$epunkt = $eexact_punkt; $epunkt = $eexact_punkt;
} }
elsif ($egpspostsa ne "") {
$epunkt = $egpspostsa;
}
elsif ($egpspresa ne "") {
$epunkt = $egpspresa;
}
else { else {
$epunkt = ""; $epunkt = "";
} }
@ -307,10 +314,10 @@ END
print FILE "<b>Point name:</b> $epunkt "; print FILE "<b>Point name:</b> $epunkt ";
} }
if ($egpspresa ne "") { if ($egpspresa ne "") {
print FILE "GPS pre sa: $egpspresa "; print FILE "<b>GPS pre sa:</b> $egpspresa ";
} }
if ($egpspostsa ne "") { if ($egpspostsa ne "") {
print FILE "GPS pre sa: $egpspostsa "; print FILE "<b>GPS post sa:</b> $egpspostsa ";
} }
$e_mult_ents = $emult_ents; $e_mult_ents = $emult_ents;
} }
@ -330,6 +337,12 @@ END
elsif ($exact_punkt ne "") { elsif ($exact_punkt ne "") {
$punkt = $exact_punkt; $punkt = $exact_punkt;
} }
elsif ($gpspostsa ne "") {
$punkt = $gpspostsa;
}
elsif ($gpspresa ne "") {
$punkt = $gpspresa;
}
else { else {
$punkt = ""; $punkt = "";
} }
@ -386,10 +399,10 @@ END
print FILE "<b>Point name:</b> $punkt "; print FILE "<b>Point name:</b> $punkt ";
} }
if ($gpspresa ne "") { if ($gpspresa ne "") {
print FILE "GPS pre sa: $gpspresa "; print FILE "<b>GPS pre sa:</b> $gpspresa ";
} }
if ($gpspostsa ne "") { if ($gpspostsa ne "") {
print FILE "GPS pre sa: $gpspostsa "; print FILE "<b>GPS pre sa:</b> $gpspostsa ";
} }
} }
# Cave general bit # Cave general bit
@ -452,14 +465,13 @@ END
} }
my $toroot; my $toroot;
$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 =~ /.*\/.*/) { if ($file =~ /.*\/.*/) {
$toroot = "../"; $toroot = "../";
print "one slash";
} }
if ($file =~ /.*\/.*\/.*/) { if ($file =~ /.*\/.*\/.*/) {
$toroot = '../../'; $toroot = '../../';
print "two slash";
} }
if ($file =~ /.*\/.*\/.*\/.*/) { if ($file =~ /.*\/.*\/.*\/.*/) {
$toroot = '../../../'; $toroot = '../../../';