#!/usr/bin/perl
print "Content-type: text/html\n\n";
open(HEAD, "< header");
@head=;
close(HEAD);
foreach $line (@head) {
chomp($line) && print $line;
}
@files = <*>;
foreach $file (@files) {
# fetches each directories descriptor to be displayed
# next to the hyperlink
if ( open(DESC, "< $file/.descriptor") ) {
$desc=;
chomp($desc);
print "" . $file . ": " . $desc . "
";
}
close(DESC)
}