#!/usr/bin/perl 

#
# Load environment variables
#
do '/opt/WWW/NCSA/httpd/cgi-bin/env.pl';

#
# Setup returning web page Mime info
#
print "Content-type: text/plain\n\n";

# 
# Parse the variables to be used
#
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	$form = <STDIN>;
}
$ENV{'QUERY_STRING'}=$form;
$NAME=`"$cgiRoot/cgiparse" -value name`;
$ADDRESS=`"$cgiRoot/cgiparse" -value address`;
$CITY=`"$cgiRoot/cgiparse" -value city`;
$STATE=`"$cgiRoot/cgiparse" -value state`;
$COUNTRY=`"$cgiRoot/cgiparse" -value country`;
$STATE=`"$cgiRoot/cgiparse" -value state`;
$ZIP=`"$cgiRoot/cgiparse" -value zip`;
$PHONE=`"$cgiRoot/cgiparse" -value phone`;
$FAX=`"$cgiRoot/cgiparse" -value fax`;
$CONTACT=`"$cgiRoot/cgiparse" -value contact`;
$CONTACTEMAIL=`"$cgiRoot/cgiparse" -value contactemail`;
$INTERNETSPEED=`"$cgiRoot/cgiparse" -value internetspeed`;
$AREA=`"$cgiRoot/cgiparse" -value area`;
$DIALUPCONNECTION=`"$cgiRoot/cgiparse" -value dialupconnection`;
$DIALUPSPEED=`"$cgiRoot/cgiparse" -value dialupspeed`;
$URL=`"$cgiRoot/cgiparse" -value url`;
$WEBSERVICE=`"$cgiRoot/cgiparse" -value webservice`;
$WEBOTHER=`"$cgiRoot/cgiparse" -value webother`;
$WOTHERSPECIFY=`"$cgiRoot/cgiparse" -value wotherspecify`;
$OTHERSERVICE=`"$cgiRoot/cgiparse" -value otherservice`;
$OTHER=`"$cgiRoot/cgiparse" -value other`;
$OTHERSPECIFY=`"$cgiRoot/cgiparse" -value otherspecify`;
$SETUP=`"$cgiRoot/cgiparse" -value setup`;
$MONTHLY=`"$cgiRoot/cgiparse" -value monthly`;
$COMMENT=`"$cgiRoot/cgiparse" -value comment`;

#
# Setup templates for output of log and email
#
format DUMPFORM =
   ============================================================================
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $NAME
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $ADDRESS
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $ADDRESS
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $CITY $STATE 
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $COUNTRY $ZIP
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $PHONE $FAX
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $CONTACT $CONTACTEMAIL

   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $INTERNETSPEED $DIALUPSPEED
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $AREA
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $URL

   WWW Services Provided
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WEBSERVICE
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WEBSERVE
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $CGI
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WAIS
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $AUTHORING
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $APPLICATIONS
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $OTHER

   Other Services Provided
   @<<<<<<<<<<<<< - @<<<<< - @<<<<<<<<<<<<<<<<<<< - @<<<<<< - @<<<<<<<<<<<<<<<< 
   $FTP $EMAIL $AUTOEMAIL $GOPHER $DNS
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $OTHER

   Setup Cost:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $SETUP

   Monthly Cost:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $MONTHLY

   Comments:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $COMMENT
   ============================================================================
.

format MAILFORM =
   ============================================================================
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $NAME
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $ADDRESS
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $CITY $STATE 
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $COUNTRY $ZIP
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $PHONE $FAX
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $CONTACT $CONTACTEMAIL

   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $INTERNETSPEED $DIALUPSPEED
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $AREA
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $URL

   WWW Services Provided
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WEBSERVICE
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WEBSERVE
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $CGI
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WAIS
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $AUTHORING
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $APPLICATIONS
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $OTHER

   Other Services Provided
   @<<<<<<<<<<<<< - @<<<<< - @<<<<<<<<<<<<<<<<<<< - @<<<<<< - @<<<<<<<<<<<<<<<< 
   $FTP $EMAIL $AUTOEMAIL $GOPHER $DNS
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $OTHER

   Setup Cost:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $SETUP

   Monthly Cost:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $MONTHLY

   Comments:
  ~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $COMMENT
   ============================================================================
.

format HTMLFORM =
<H2>
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
$NAME
</H2>
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$ADDRESS
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$CITY $STATE 
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$COUNTRY $ZIP
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$PHONE $FAX
Contact:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$CONTACT $CONTACTEMAIL

Speed To Internet: @<<<<<<<<<<<<<<<< Dialup Speed: @<<<<<<<<<<<<<<< <BR>
$INTERNETSPEED $DIALUPSPEED
Local Calling Area: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <P>
$AREA
URL: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <P>
$URL

   
<H2> WWW Services Provided </H2>
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $WEBSERVICE
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$WEBSERVE
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$CGI
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$WAIS
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$AUTHORING
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$APPLICATIONS
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$OTHER

<H2> Other Services Provided</H2>
@<<<<<<<<<<<<< - @<<<<< - @<<<<<<<<<<<<<<<<<<< - @<<<<<< - @<<<<<<<<<<<<<<<< <BR>
$FTP $EMAIL $AUTOEMAIL $GOPHER $DNS
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$OTHER

Setup Cost:
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$SETUP

Monthly Cost:
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$MONTHLY

Comments:
~@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <BR>
$COMMENT
<HR>
.


#
# Write the output to the appropriate places
#

open (DUMPFORM,">> $logs/dumpfile.log");
write (DUMPFORM);
close (DUMPFORM);

open (MAILFORM,"|mail marym@finesse.com");
write (MAILFORM);
close (MAILFORM);

open (HTMLFORM,">> $logs/htmlout.log");
write (HTMLFORM);
close (HTMLFORM);
#
# Return a web page
#

select (STDOUT);
print "<html><head><title> Thanks for Your Entry </title></head><body>";
print " Thanks<P>";
print " We appreciate your Entry! \n";
print "</body></html>";

