#!/usr/bin/perl -w
##
## Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
## Creation Date: Wed Jul 21 12:04:32 PDT 1999
## Last Modified: Wed Jul 21 12:04:35 PDT 1999
## Filename:      /home/httpd/cgi-bin/logmaker
## Syntax:        Perl 5; CGI
## $Smake:        cp -f %f /home/httpd/cgi-bin/%b
##
## Description:   This program generates a log file
##		  The running owner of the CGI script is
##		  "nobody" so a directory in the log directory
##		  was made for cgi logs:
##		     mkdir /var/log/httpd/cgi
##		     chown nobody.nobody /var/log/httpd/cgi
##

$entry_time = localtime(time);

open(LOGFILE, ">> /var/log/httpd/cgi/logmaker.log");

print LOGFILE <<"EOT";

+++++++++++++++++++++++++++++++++++++++++++++
Date: $entry_time
EOT


print "Content-type: text/plain", "\n\n";
print <<"EOT";
Successful addition to log.  Contents of log entry is: 

+++++++++++++++++++++++++++++++++++++++++++++
Date: $entry_time
EOT


exit(0);