#!/usr/bin/perl -w

open INDEX, ">index.html" or die "Can't open output file!\n";

print INDEX "<html><head><title>DEEP3</title></head>\n";

print INDEX "<body>";

print INDEX "<h1>Directory Listing</h1>\n";

print INDEX "<hr width=100\%>";



my @files = `ls`;

for $foo (@files) {

	next if $foo =~ /~$/;
	chop $foo;

	$bah = $foo;

	if ($foo eq "index.html") {

		$bah = "Directory Index";

	}

	print INDEX "<a href=\"$foo\">$bah</a><br>\n";

}

print INDEX "</body></html>\n";
