#!/usr/local/bin/perl
# ITCS Feedback E-mail script
# 	Match the section acronym passed and presents a form which 
#	users can fill out and mail comments to. Usually the Section Leader
# 	is listed as Point of Contact. Could be a list of multiple e-mail
#	addresses too.
my (%POCHash, %cutename);

################ Read Template FILE here ##############################
my $TEMPLATEFILE = qq(contactus.html);
open TEMPLATE, $TEMPLATEFILE or die qq(Can't open $TEMPLATEFILE to read: $!\n);
undef $/;
$TEMPLATE = <TEMPLATE>;
close TEMPLATE;
$/ = qq(\n);
################ Read Alias FILE here ##############################
my $ALIASFILE = qq(aliases.txt);
open ALIASFILE, $ALIASFILE or die qq(Can't open $ALIASFILE to read: $!\n);
while (<ALIASFILE>) {
	next if /^#/;
	my @parts = split (/::/);
	$POCHash{$parts[0]} = $parts[2]; $cutename{$parts[0]} = $parts[1];
}
close ALIASFILE;
########################################################################



################ Add Drop Down Components here #########################
my @Departments = (
	'Agricultural Consumer Economics', 'Agricultural Engineering',
	'Animal Sciences', 'Crop Sciences', 'Food Science and Human Nutrition',
	'Human Community Development', 
	'Natural Resources and Environmental Sciences', 'U of I Extension',
	'ITCS', 'Office of Administration and Finanace', 'Office of the Dean',
	'Office of Research', 'C-FAR', 'Office of Advancement', 
	'Office of Academic Programs');
@Departments = sort @Departments;
push @Departments, 'Other'; unshift @Departments, 'Select Your Office';
########################################################################

use CGI;
#use CGI::Carp qw(fatalsToBrowser);
$c = new CGI;
print $c->header;
my ($CONTENT, $HEADERCONTENT);
if ($c->param(service) and $POCHash{$c->param(service)} and !$c->param('action')) {
	$CONTENT .= $c->b(qq(Your comments are extremely important to us.<BR>).
			qq(Please fill out this form.)).qq(\n);
	$CONTENT .= $c->start_form.qq(\n);
	# Present a fillout form
	$CONTENT .= qq(Addressed to: ).$cutename{$c->param(service)}.qq(<P>\n);
	$CONTENT .= qq(Your Name: ).
		$c->textfield(-name=>'Name', -size=>30).qq(<P>\n);
	$CONTENT .= qq(Your e-mail: ).
		$c->textfield(-name=>'Email', -size=>30).qq(<P>\n);
	$CONTENT .= qq(Your Department/Unit: ).
		$c->scrolling_list(-name=>'Department', -size=>1, -value=>\@Departments).qq(<P>\n);
	$CONTENT .= qq(Your Comment: ).
		$c->textarea(-name=>'Comment', -rows=>5, -cols=>'40', -wrap=>'hard').
		qq(<BR>\n);
	$CONTENT .= $c->submit(-name=>'action', -value=>'Submit Comment').qq(\n).
		$c->reset.qq(\n);
	$CONTENT .= $c->hidden(-name=>'service', -value=>$c->param(service)).qq(\n);
	$CONTENT .= $c->hidden(-name=>'refererURL', -value=>$c->referer()).qq(\n);
	$CONTENT .= $c->end_form;
} elsif ($c->param('action') eq 'Submit Comment') {
	if ($c->param(service)) {
		my $MailFrom;
		my $MailTo = $POCHash{$c->param(service)};
		if ($c->param(Email) =~ /^\S+\@\S+$/) {
			$MailFrom =  $c->param(Email);
		} else {
			 $MailFrom = qq(nobody\@aces.uiuc.edu);
		}
		my $MailSubject = qq(ITCS Web Site: User Comment);
		my $MailContent = qq(----------ITCS Web Site: User Comment---------\n).
				qq(User: ).$c->param(Name).qq(\n).
				qq(Email: ).$c->param(Email).qq(\n).
				qq(Department: ).$c->param(Department).qq(\n).
				qq(----------------------------------------------------------------).
				qq(\nComment:\n).$c->param(Comment);
		use Net::SMTP;
		$smtp = Net::SMTP->new('sphinx.aces.uiuc.edu',
			Hello=>'www.aces.uiuc.edu',
			Timeout=>30,
			Debug=>0,);
		$smtp->mail($MailFrom);
		$smtp->recipient($MailTo);
	
		$smtp->data();
		$smtp->datasend("Subject: $MailSubject\n");
		$smtp->datasend("To: $MailTo\n");
		$smtp->datasend("Reply-to: $MailFrom\n");
		$smtp->datasend(qq($MailContent\n\n));
		$smtp->dataend();
		$smtp->quit;

		$HEADERCONTENT = qq(<META HTTP-EQUIV=Refresh CONTENT="3; URL=).
				$c->param('refererURL').qq(">);
		$CONTENT .= $c->h3('Thank you for your comments.').
			$c->b('You will be directed back'.
			qq(\nto <A HREF=").$c->param('refererURL').qq(">).$c->param('refererURL').
			qq(</A> in 3 seconds));
	} else {
		$CONTENT .= $c->h3('Invalid Usage').qq(\n);
	}
} else {
		$CONTENT .= $c->h3('Invalid Usage').qq(\n);
}
$TEMPLATE =~ s/<\!--CONTENT-->/$CONTENT/;
print $HEADERCONTENT.$TEMPLATE;