#!/usr/local/bin/perl use CGI qw/:standard/; use POSIX qw(strftime); use Stat::lsMode; print header; $ENV{'REQUEST_URI'} =~ s#/[^/]*$#/#; print < Index of $ENV{'REQUEST_URI'}

Index of $ENV{'REQUEST_URI'}

\n
EOF
printf "%11s %-8s %-8s %9s %-18s %-s\n",
	"Permissions", "User", "Group", "Size", "Last Modified", "Name";
print <
EOF

while (defined($filename = <{.,?}*>)) {
	$mode = (stat($filename))[2];
	$perm = format_mode($mode);
	$uid  = (stat($filename))[4];
	$user = getpwuid($uid);
	$gid  = (stat($filename))[5];
	$group= getgrgid($gid);
	$size = (stat($filename))[7];
	$time = (stat($filename))[9];
	$date = strftime "%b %e %G %H:%M", localtime($time);
	$filename = CGI::escapeHTML($filename);
	$filename = "$filename";
	printf "%-11s %-8s %-8s %9d %-18s %-s\n", 
		$perm, $user, $group, $size, $date, $filename;
}

print <


$ENV{'SERVER_SOFTWARE'} at $ENV{'SERVER_NAME'} Port $ENV{'SERVER_PORT'}

EOF
print end_html;

exit (0);