Dmp2html.pl (bottom)

open (HTML, ">$path/.index.html") or die "$!";

$path1 = $path;

$path1 =~ s/html\/(.*)/$1/;

$path1 =~ s/\//:/g;

if ($path1 eq "html") {

$path1 = "TOP";

}

print HTML "<H1>$path1</H1>";

print HTML "<UL>";

@list = ();

foreach $i (0 .. $#{ $HOL{$path} }) {

push (@list,$HOL{$path}[$i]);

}

foreach $i (sort @list) {

($title,$url) = split (/\t/,$i);

if ($url =~ /^[A-Z\/]*$/) {

$url =~ s/^([A-Z]*\/)*//;

$title .= " [DIR]";

}

print HTML "<LI><A HREF=\"$url\">$title</A>\n";

}

print HTML "</UL>";

print HTML "<A HREF=\"..\">UP</A>\n" unless $path1 eq "TOP";

close HTML;

}