#!/cs/local/bin/perl require 'ctime.pl'; require 'getopts.pl'; &Getopts( 'n' ) || die "usage: $0 [-n]\n"; $dir = $ARGV[0]; $dir0 = $dir; $dir0 =~ s|.*/||; $date = &ctime(time); opendir( DIR, $dir ) || die "$0: unable to open $dir\n"; while( $f[$#f+1] = readdir( DIR ) ) {} closedir( DIR ); $#f--; @f = sort( @f ); if( ! defined($opt_n) ) { open( INDEX, ">$dir/index.html" ) || die "$0: unable to open index.html\n"; } else { open( INDEX, ">&STDOUT" ) || die "$0: unable to reopen STDOUT\n"; } print INDEX < Index of $dir0/

Index of $dir0/

\n"; print INDEX "

File	Size	Date EOT foreach $f (@f) { ( $f eq '.' \|\| $f eq '..' \|\| $f eq 'index.html' ) && next; @stat = stat( "$dir/$f" ); print INDEX "
$f\n"; print INDEX "	$stat[7]\n"; print INDEX "	", &ctime($stat[9]), "\n"; } print INDEX < Generated by makeindex.html.pl, $date EOT close( INDEX ); # EOF