#!/usr/local/bin/perl -- -*- C -*-
# $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
require "cgi-lib.pl";
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";
# Do some processing, and print some output
($text = $input{'text'}) =~ s/\n/\n
/g;
# add
's after carriage returns
# to multline input, since HTML does not
# preserve line breaks
print <This is the output of simple-form.cgi
You, $input{'name'}, whose favorite color is $input{'color'} are on a
quest which is $input{'quest'}, and are looking for the weight of an
$input{'swallow'} swallow. And this is what you have to say for
yourself: $text
ENDOFTEXT
# If you want, just print out a list of all of the variables.
print "
And here is a list of the variables you entered...";
print &PrintVariables(%input);
# Close the document cleanly.
print "\n";
}