# This is to present a list of pdf files which are the
# days activities in judgements, orders and opinions
print "HTTP/1.0 200 OK\n";
print "Content-Type: text/html\n\n";
print "USDC Utah, Recent Judgments and Orders\n";
print "\n";
print "";
print "";
print " | ";
print "";
print "United States District Court, District of Utah";
print "Recent Judgments, Orders and Opinions";
print " |
";
print "
";
print "";
print "
Click on one of the links below to retrieve a file of documents for that day. ";
print "
";
($sec, $min, $hour) = localtime(time);
chdir("media");
@listing=glob("*.*"); # gets directory listing in to array
$numlist =@listing; # number of elements in array
while($i<$numlist)
{
print "";
print "$listing[$i]";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,) = stat $listing[$i];
print "";
($sec, $min, $hour,$mday,$mon) = localtime($mtime);
$mon++;
print " $size ";
print "
";
print "\n";
# print " $mtime
\n";
$i++;
};
print "
";
print " The days files will be updated by 3 am the following day. ";
print "If you require assistance, please contact (801) 524-6105. ";
print "";
print "
";