#!/usr/bin/perl
# perl_form - a simple illustration of forms and Perl CGI
# Adapted from perl_form by Stephen Bloch, 12/96

print "Content-type: text/plain\n\n";

$filename = &FindFilename;

# print "Script filename: $filename <br>";

if ($filename eq "") {
  print "Couldn't find script filename; please inform";
  print "<a href='mailto:sbloch\@boethius.adelphi.edu'>Webmaster</a>.";
  print "Here are all the environment variables:<ul>";
  foreach $key (keys %ENV) {
      print "<li>$key: $ENV{$key}";
      }
  print "</ul>\n";
  }
else {
  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
   $blksize,$blocks) = stat($filename);
  
  # print "Modification time (in seconds): $mtime <br>";
  
  # print "This file last modified ";
  
  $mtime_string = localtime($mtime);
  print "$mtime_string";
  }

sub FindFilename {
  $filename = $ENV{"DOCUMENT_NAME"};
  if ($filename eq "") {
    $filename = "index.shtml";
    }
  return $filename;
  }