#!/usr/local/bin/perl
require "/usr/local/lib/perl5/ctime.pl";
require "/usr/local/web/scripts/cgi-lib.pl";
# $Header: /cys/people/brenner/http/docs/web/RCS/simple-form.cgi,v 1.2 1995/04/07 21:36:57 brenner Exp $
# Copyright (C) 1994 Steven E. Brenner
# This is a small demonstration script to demonstrate the use of
# the cgi-lib.pl library
MAIN:
{
# Read in all the variables set by the form
&ReadParse(*input);
# Print the header
print &PrintHeader;
print "\n";
print "cgi-lib.pl demo form output\n";
print "\n\n";
# If you want, just print out a list of all of the variables.
print "Here is a list of the variables you entered...";
print &PrintVariables(%input);
# now also print out all environment variables.
print "
\nHere are the script environment variables\n
\n";
foreach $var (keys(%ENV)) {
print "$var : $ENV{$var}\n
\n";
}
# Close the document cleanly.
print "\n";
}