#!/usr/bin/perl -w
#Usage: the first argument is the directory to generate the index for.
#The second is the location(and name) of the index file.
use strict;
use CGI;
my $dir_name = shift || ".";
my $filename = shift || "index.html";
opendir D, $dir_name;
my @files = readdir(D);
closedir(D);
@files = grep { ($_ ne "index.html") && (! /^\.\.?$/) && ($_ ne "CVS")} @files;
@files = sort { $a cmp $b } @files;
@files = map { $_ . ((-d "$dir_name/$_") ? "/" : "") } @files;
open O, ">$filename";
print O <<"EOF" ;
Index for $dir_name
Index for $dir_name
EOF
print O join("", map { my $escaped = CGI::escapeHTML($_); "- $escaped
\n" } @files);
print O <<"EOF" ;
EOF
;
close(O);