#!/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" ;