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 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
noinfo/make-indxal2.pl
View File

@ -108,8 +108,7 @@ while (<>) {
if ($file ne "") {
$number =~ s/\//-/g;
$number =~ s/\?/q/;
#print "$file\n";
print "$file\n";
open FILE, ">..\/$file" or die $!;
print FILE <<END;
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0//EN">
@ -465,7 +464,6 @@ END
}
my $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
if ($file =~ /.*\/.*/) {
$toroot = "../";