#!/usr/local/bin/perl
# $Header: /cys/people/brenner/http/docs/web/RCS/simple-form.cgi,v 1.4 1996/03/29 22:07:56 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 &HtmlTop ("cgi-lib.pl demo form output");
# 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 < $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 &HtmlBot;
}