expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-03-30 15:11:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

[svn r5488] *** empty log message ***

Browse Source
This commit is contained in:
mjg54 2004-01-16 12:50:15 +01:00
parent 758db62b4f
commit f0d7170ba4
1 changed files with 1 additions and 3 deletions

4
noinfo/make-indxal2.pl

@ -108,8 +108,7 @@ while (<>) {
if ($file ne "") { if ($file ne "") {
$number =~ s/\//-/g; $number =~ s/\//-/g;
$number =~ s/\?/q/; $number =~ s/\?/q/;
print "$file\n";
#print "$file\n";
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">
@ -465,7 +464,6 @@ END
} }
my $toroot; my $toroot;
$toroot = ""; $toroot = "";
#print "\n$file";
#determine the number of directorys deep the caves main page is at in order to link to area descriptions and indxal #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 = "../";