#! /opt/bin/perl
#	________________________________________________________________
#	  /\ /\		CyberWeb SoftWare: Internet Information Systems
#	-{-<*>-}-	World-Wide Web	   <URL:http://WWW.Stars.com/>
#	__\/_\/_________________________________________________________
#	Author	:	Alan Richmond,	<WDVL@Stars.com>
       $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	= "/opt/u/richmond/DEV/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/lib/sendmail';	# Mail program location.
	$to	= "Webmaster\@WDVL.com";

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

#	Check that the most important fields were entered.
	&blank_response	('Email');
	&blank_response	('Comment');
	$page	= $in{'Page'};
	$page	= 'http://WDVL.Internet.com/'	unless $page;
	print	"Content-type: text/html\nLocation: $page\n\n";
	exit	if	($in{'Email'} =~ /webmaster\@wdvl\.com/);

#	open	(MAIL,	"|$mailprog $to $in{'Email'}") ||	die$!;
	open	(MAIL,	"|$mailprog -t -oi")|| die$!;
	print	MAIL	"To: $in{'Email'}\n";
	print	MAIL	"Cc: $to\n";
	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);	# it's a good idea to check the exit code of close on a pipe to catch error messages from sendmail.	- TBD..


#	________________________________________________________________

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://WDVL.Internet.com/'	unless $page;

	$v{'url'}	= '/Software/Perl/Comments.cgi';
	$v{'Style'}	= 'Textarea, Input	{ font-size: smaller; }';

	print "Content-type: text/html\n\n";	# Tell browser what's coming..
	&Head	(1);
#	open    (IN, "<$SWP/Comments.ht")||die$!;
#	<IN>	;	# Skip Content:
#	while   (<IN>)  {       print;  }
	print	<<EOT;
<center>
	<h2><a href="/WDVL/FAQ/">Have You Read the FAQ ?</a>
	</h2>
<Form	Method=POST	Action="Comments.cgi">
<table>
<tr>
    <th class=Name>Your&nbsp;Email&nbsp;Address:</th><td class=Value>
  	 <Input Name="Email" Value="$from" Size=24>	<br></td>
</tr><tr>
    <th class=Name>Browser:</th><td class=Value>
   	 <Input Name="Agent" Value="$agent" Size=24>	<br></td></tr>

<tr><th class=Name>URL, if problem:</th><td class=Value>
	<Input Name="Page" Value="$page" size=24></td>
</tr>
<tr><td class=Value colspan=2>
	<Textarea Name="Comment" rows=8 cols=45 >Dear Webmaster,
	</Textarea></td></tr>
<tr><th class=Value colspan=2>
	<Input	Type=Submit Value="Send to Webmaster\@WDVL.com">
	</th></tr>
</table>
</Form>
</center>
EOT
	&Foot	;
	exit;
	}