#!/usr/local/sun4/perl 
#
# Load environment variables
#
do '/WWW/cgi-bin/setenv.pl';

#
# Return Meta-Information
#
print "Content-type: text/html\n\n";

# 
# Parse the variables to be used
#
$NAME=`"$exeRoot/cgiparse" -value name`;
$EMAIL=`"$exeRoot/cgiparse" -value email`;
$COMMENT=`"$exeRoot/cgiparse" -value comment`;

#
# Setup templates for output to log and email and HTML output
#
format COMMENTFORM =
   ========================================================
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $NAME
   left this message about your web server 
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $EMAIL 
   @*
   $COMMENT
   ========================================================
.

format STDOUT =
   <HR>
   Thank You, 
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $NAME
   <P> We will contact you at:
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $EMAIL 
   <HR>
.

format MAILOMMENT =
   ========================================================
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $NAME
   left this message about your web server 
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
   $EMAIL 
   @*
   $COMMENT
   ========================================================
.

#
# Write the output to the appropriate places
#

open (COMMENTFORM,">> $logs/comments.log");
write (COMMENTFORM);
close (COMMENTFORM);

open (MAILCOMMENT,"|mail webmaster@finesse.com");
write (MAILCOMMENT);
close (MAILCOMMENT);

#
# Return a web page
#

select (STDOUT);
print "<html><head><title> Thanks for Your Comments </title></head><body>";
write(STDOUT); 
print "</body></html>";

