#!/usr/local/bin/perl

# unbuffer output so that we can see it as it comes 
# out, rather than waiting for buffers to flush
$| = 1;
$ENV{'PATH'}="/bin:/usr/bin:/usr/ucb";

# Adjust these constants to whatever is appropriate for your site:
$MAIL = '/usr/lib/sendmail';# path to mail program
$MAIL_TO = 'webmaster';	# who to send the mail to

use CGI;
$query = new CGI;
print $query->header;
print $query->start_html('Feedback Form');

unless ($query->param) {
   &print_prompt($query);
} else {
   &do_work($query);
}

&print_signature;

# ------------ Create the form -----------
sub print_prompt {
    my($q) = @_;
    print <<END;
<H1>Feedback Form</H1>

How are we doing?  Use this form to tell us what you like and
dislike about our pages.  After filling out the form, press "Mail
these comments" to mail your comments out to us.
<HR>
END
    ;
    print 
	$q->start_form,
	"Please enter your name: ",$q->textfield(-name=>'name',-size=>30),"<BR>",
	"Your e-mail address: ",$q->textfield(-name=>'address',-size=>30),"<P>",

	"How would you rate the organization of these pages?",
	$q->popup_menu(-name=>'organization',
		       -values=>['Excellent','Good','Middling','Poor']),"<P>",

	"How would you rate its contents?",
	$q->popup_menu(-name=>'contents',
		       -values=>['Excellent','Good','Middling','Poor']),"<P>",
	
	"Can you think of ways to improve this site?<BR>",
	$q->textarea(-name=>'improvements',
		     -rows=>5,-cols=>50),"<P>",

	"Other comments?<BR>",
	$q->textarea(-name=>'comments',
		     -rows=>5,-cols=>50),"<P>",

	$q->reset,
	$q->submit(-label=>'Mail these comments'),

	$q->end_form();
}

# ---------- E-mail the form out ---------
# One copy gets e-mailed.  The other gets displayed
# on the screen so that the remote user knows something happened.
sub do_work { 
    my($q) = @_;
    my($message);

    # Import the parameters into a series of variables in the 'Q'
    # namespace.
    $q->import_names('Q');

    # If extra path information was passed to the script,
    # then incorporate it into the subject line.  Otherwise
    # use a generic subject line.
    my($subject) = "Feedback on the Web site";
    my($path) = $q->path_info;
    my($self) = $q->url;

    $subject = "Feedback on Web page \"$path\"" if $path;

    # Incorporate the comments into a memo
    $message = <<END;
To: $MAIL_TO
From: $Q::address $Q::name
Subject: $subject
X-mail-agent: feedback.pl v1.1

** Electronic Feedback Form **

The organization of page was rated "$Q::organization".
The content was rated "$Q::contents".

SUGGESTIONS FOR IMPROVEMENTS:
$Q::improvements

OTHER COMMENTS:
$Q::comments

END
	;
	
    # Mail one copy to the page's owner.
    open (MAIL, "| $MAIL $MAIL_TO") || die "Mail: $!";
    print MAIL $message;
    close MAIL;

    # Print another copy to the screen so the user can see
    # what's going out:
    print <<END;
<H1>Feedback Results</H1>

<STRONG>Thank you for your feedback.  The following has been
mailed to $MAIL_TO:</STRONG>
<PRE>
$message
</PRE>
<A HREF="$self">Send another comment</A>
END
}

# ------------- The rest of this stuff is boilerplate ------

sub print_signature {
	print <<END;
<HR>
<ADDRESS>
webmaster\@your.site.org
</ADDRESS><BR>
<A HREF="/">Jump to the welcome page</A>
END
}