#! /usr/bin/perl
#	________________________________________________________________
#	  /\ /\		CyberWeb SoftWare: Internet Information Systems
#	-{-<*>-}-	World-Wide Web	   <URL:http://WWW.Stars.com/>
#	__\/_\/_________________________________________________________
#	Author	:	Alan Richmond
       $File	=	'Comments.cgi';
       $Version	=	'0.5 BETA';
#	Purpose	:	Send User's Comments
#	Usage	:	<a href="Comments.cgi>Comments</a>?
#	Comment	:	Allows more control than mailto:
#	Disclaimer:	This software is provided freely on the understanding
#			that the Author will not be held responsible for any
#			problems arising from it's use, and that there is no
#			support except by agreement on a fee for services.
#	________________________________________________________________
	$SWP	= "/usr/home/web/public_html/Software/Perl";# Where are these:
require	"$SWP/cgi-lib.pl";
#require	"$SWP/ht_subs.pl";
	$v{'Class'} = "Plain";
	$v{'Title'} = "Feedback";

#	Configuration section.
	$mailprog = '/usr/sbin/sendmail';	# Mail program location.
	$to	= "PUT EMAIL ADDRESSES HERE";

	&ReadParse	();		# Get the form in data.
	&ShowForm	()	unless $#in >= 0;

#	Check that the most important fields were entered.
#	&blank_response	('Name');
	&blank_response	('Email');
	&blank_response	('Comment');

	$page	= $in{'Page'};
	$page	= 'http://WWW.Stars.com/'	unless $page;
	print	"Content-type: text/html\n";	# Tell browser what's coming..
	print	"Location: $page\n\n";

	open	(MAIL,	"|$mailprog $to $in{'Email'}") ||	die$!;

	print	MAIL	"From: $in{'Email'}\n";
	print	MAIL	"Subject: $page\n\n";
	print	MAIL	"Browser: $in{'Agent'}\n";
	print	MAIL	"Comment: $in{'Comment'}";
	close	(MAIL);
#	________________________________________________________________

sub	blank_response	{
#	________________________________________________________________

	unless	($in{$_[0]})	{
		$v{'Title'} =	"Please enter a $_[0].";
		&ShowForm;
		exit	;
		}
	}
#	________________________________________________________________

sub	ShowForm	{
#	________________________________________________________________

#	$org	= $in{'Organisation'};
	$agent	= $in{'Agent'};
	$page	= $in{'Page'};
	$link	= $in{'Link'};
	$title	= $in{'Title'};
	$from	= $in{'Email'};
#	$host	= $ENV{'REMOTE_HOST'}		unless $host;
	$agent	= $ENV{'HTTP_USER_AGENT'}	unless $agent;
	$from	= $ENV{'HTTP_FROM'}		unless $from;
	$page	= $ENV{'HTTP_REFERER'}		unless $page;
	$page	= 'http://WWW.Stars.com/'	unless $page;
	$v{'url'} = '/Software/Perl/Comments.cgi';

	print "Content-type: text/html\n\n";	# Tell browser what's coming..
#
#	Here you need to print out the HTML header stuff.
#	&Head	(1);
	print	<<EOT;
	Please do not ask here for links - 
	<a href="../../Vlib/README.html">see this</a>.

	If you want to ask a question or just chat, please use our
	<a href="../../WDVL/Forum/">Conference Site</a>.

	If you are reporting a problem, <b>please</b> be sure to give us the
	URL of the page where you encountered it.

	<a href="../../Internet/Protocols/Email/Spam.html">Why we don't publish
	our email address</a>.
<center>
<Form	Method=POST	Action="Comments.cgi">
<table>
<tr>
    <th>Email	:</th><td><Input Name="Email" Value="$from">	<br></td>
    <th>Browser	:</th><td><Input Name="Agent" Value="$agent">	<br></td></tr>

<tr><th>URL, if problem:</th><td colspan=3><Input Name="Page" Value="$page" size=60></td>
</tr>
<tr><th>
	<Input	Type=Submit Value="Send">
	Comment:
	</th><td colspan=3>
	<Textarea Name="Comment" rows=8 cols=60 wrap=physical>$in{'Name'}</Textarea></td></tr>
</table>
</Form>
</center>
EOT
#	Here you need to close the BODY and HTML tags..
#	&Foot	;
	exit;
	}