#!/usr/bin/perl
use CGI qw(:standard :form);
use strict;
#### CONFIG #####
# The Subject Title of the mail
my $subject = 'Submission';
# Path to sendmail (defualt /usr/sbin/sendmail)
my $mail_prog = '/usr/sbin/sendmail';
# Fields of the HTML form.
my @fields = ('surname','firstname','address1','address2','address3','zip','telephone','email','fax');
# Department INFO
my %dpt_info = (
# Department ID => HTML FILE | IMAGE FILE | DEPARTMENT NAME | DEPARTMENT EMAIL
'test_dpt' => join("\t",'test.html','test.jpg','Test DPT','test_department@yourdomain.com'),
);
#### END CONFIG ####
my $query = new CGI;
my $script_url = $ENV{'SCRIPT_NAME'};
my $department = $query->param('dpt');
my $action = $query->param('action');
my ($dpt_html,$dpt_img,$dpt_name,$dpt_email) = split(/\t/,$dpt_info{$department});
print "Content-Type: text/html\n\n";
if($action eq 'result') { &result; }
else { &form; }
sub form {
print qq(
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<IMG SRC="$dpt_img" BORDER="0">
<P>
<FORM METHOD="POST" ACTION="$script_url">
<INPUT TYPE="HIDDEN" NAME="action" VALUE="result">
<INPUT TYPE="HIDDEN" NAME="dpt" VALUE="$department">
<!-- BEGIM Original Form -->
<p class="res_surname"><b>Surname:</b>
<INPUT TYPE="text" NAME="surname" SIZE="20"></p>
<p class="res_firstname"><b>First Name(s):</b>
<INPUT TYPE="text" NAME="firstname" SIZE="20"></p>
<p class="res_address1"><b>Address 1:</b>
<INPUT TYPE="text" NAME="address1" SIZE="20"></p>
<p class="res_address2"><b>Address 2:</b>
<INPUT TYPE="text" NAME="address2" SIZE="20"></p>
<p class="res_address3"><b>Address 3:</b>
<INPUT TYPE="text" NAME="address3" SIZE="20"></p>
<p class="res_postcode"><b>Postcode/Zipcode:</b>
<INPUT TYPE="text" NAME="zip" SIZE="20"></p>
<p class="res_telephone"><b>Telephone:</b>
<INPUT TYPE="text" NAME="telephone" SIZE="20"></p>
<p class="res_email"><b>Email:</b>
<INPUT TYPE="text" NAME="email" SIZE="20"></p>
<p class="res_fax"><b>Fax:</b>
<INPUT TYPE="text" NAME="fax" SIZE="20"></p>
<p class="res_submit">
<input style="background: #336633; color: #D2F3DA"; type="submit" value="Send" name="B1">
<input style="background: #336633; color: #D2F3DA" type="reset" value="Start over" name="B2"></p>
</form>
<!-- END Original Form -->
</BODY>
</HTML>
);
}
sub result {
my $msg;
foreach (@fields) {
$msg .= join(': ',$_,$query->param("$_"))."\n";
}
sendmail($msg);
print qq(
<CENTER>Thank you. Click <A HREF="$dpt_html">here</A> to return to the Department "$dpt_name".</CENTER>
);
}
sub sendmail {
open(MAIL,"|$mail_prog -t") or die print "Fail to open sendmail: $!\n";
print MAIL "To: $dpt_email\n";
print MAIL "From: ".$query->param('email')."\n";
print MAIL "Subject: $subject\n\n";
print MAIL $_[0];
close(MAIL);
}
__END__
Some changes were made... let me explain :o
For the CONFIG, you should now see:
# Department INFO
my %dpt_info = (
# Department ID => HTML FILE | IMAGE FILE | DEPARTMENT NAME | DEPARTMENT EMAIL
'test_dpt' => join("\t",'test.html','test.jpg','Test DPT','test_department@yourdomain.com'),
);
What it does is to give a name, html file, image file, etc for the department ID... you should now call the url like this:
http://www.yourdomain.com/script.pl?dpt=test_dpt
the url contains "dpt=test_dpt" and that means it is asking for department ID test_dpt. Unlike the old way, you put the HTML file... this time you put an ID
To add department, you have to do it like this
# Department INFO
my %dpt_info = (
# Department ID => HTML FILE | IMAGE FILE | DEPARTMENT NAME | DEPARTMENT EMAIL
'test_dpt' => join("\t",'test.html','test.jpg','Test DPT','test_department@yourdomain.com'),
'2nd_dpt' => join("\t",'2nd.html','2nd.jpg','2ND DPT','2nd@yourdomain.com'),
);
Last, you can get rid of the code below because it is not necessary.
# The Email Address will be used to receive mail
my $recipient = 'webmaster@yourdomain.com';