#!/usr/local/bin/perl
# CGI script to test an HTML form.
# Originally written by ryan@odouls.stx.com (patrick m. ryan)

require 'cgi-lib.pl';

select STDOUT;
$| = 1;

# Suck in everything from httpd.
&ReadParse(*form);

print &PrintHeader;
print "<title>CGI test</title>\n";

print "<B>Print Variables ...in</B>\n";
print &PrintVariables(%in);
for $key (keys %form)
{
	print "Key: $key Value:$form{$key} <BR>\n";
}
print "<B>Print Variable \"box1\"</B>\n<BR>";
print &PrintVariables(%form);

if ( $form{"box1"} )
{
	print "<B>Yes, box one was recognized!!!</B><BR>\n";
}

print "<B>Print Variables ...ENV</B>\n";
print &PrintVariables(%ENV);
print "\n";
exit 0;