#!/usr/bin/perl # # create an index.html that mimics the web server directory index # require "ctime.pl"; $currentdir = `pwd`; $basedir = `basename $currentdir`; print " Index of $basedir

Index of $basedir

\" Name                                Last modified     Size  Description

\n";

opendir(DIR, ".");
@contents = sort grep(!/^\./, readdir(DIR));
closedir(DIR);

print "\"[DIR]\" Parent Directory\n";

for ( @contents) {

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime) = stat($_);
  $mts=&ctime($mtime);
  $mts =~ s#US/East-Indiana ##;
  chop($mts);
  $ss=int($size/1000)+1;

  $pad = 25-length($_);
  if ( -d $_ ) {
    $pad--;
    printf "\"[DIR]\" %s/%${pad}s %20s %6s\n", $_,$_," ",$mts,"-";
  }
  else {
    printf "\"[ %s%${pad}s %20s %6sk\n",$_,$_," ",$mts,$ss;
  }

}

print "
\n";