#!/usr/bin/perl -w
open INDEX, ">index.html" or die "Can't open output file!\n";
print INDEX "DEEP3\n";
print INDEX "";
print INDEX "Directory Listing
\n";
print INDEX "
";
my @files = `ls`;
for $foo (@files) {
next if $foo =~ /~$/;
chop $foo;
$bah = $foo;
if ($foo eq "index.html") {
$bah = "Directory Index";
}
print INDEX "$bah
\n";
}
print INDEX "\n";