#!/usr/bin/perl
use File::Recurse;
print "Content-Type: text/html\n\n";
print "Web Server Directory Listing
";
my %files = &Recurse(['/Intranet/html'], {});
my @dirs = ();
my @files = ();
foreach (sort keys %files)
{
@dirs = split(/\/Intranet\/html/,$_);
print "@dirs
";
foreach (@{ $files{$_} })
{
@files = (@files,$_);
}
}
$f = @files;
$d = @dirs;
print "
";
print "$d total directories were found.";
print "$f total files were found.";
print "";