Okay - this is a form-mail script that has been auto-generated so I assume it works fine:
#!/usr/bin/perl
#
######################################################################
# #
# Xpert MailForm Version 1.0.5 #
# #
# By Xpert Software. Do not edit without #
# permission. Thank you. #
# #
# #
# Get updates at: #
# http://www.xpert-software.com #
# #
# #
# What it does: #
# Xpert Mail Form is an advanced form mailer script that can take #
# any number of fields as input and doesn't need to be #
# configured for each one. Xpert Mail Form figures out what #
# fields are being sent and sends that data in an e-mail. #
# Xpert MailForm can require certain fields, or all fields, and #
# can do e-mail address entry checks. #
# #
# How to set up: #
# 1) chmod 755 the .cgi file. #
# #
######################################################################
# Configure the following variables.
# This should be the path to sendmail on this system.
$mail = "/usr/sbin/sendmail";
# The address that e-mail should be sent to. Remember to put a \ before
# the @ in the address. This is needed for the script to run.
$youremail = "info\@mysite.com";
# Path to the date program on your system.
$dateprog = "/bin/date";
# URL of the page that users should be sent to after they fill out the
# form.
$url = "http://www.mysite.com";
# Require all fields. Select this option to make this CGI require all
# existing form fields to be filled in. If you wish to select only some
# fields to be required, don't turn this option on, but set the next one.
# (0/1)
$require_all = 0;
# If you wish to require only some fields to be filled in, then list the
# NAMES of those fields here. The names ARE case-sensitive. If you do
# not want to have this option on, then leave the list blank like this:
# @require = ("");
@require = ("email","name");
# Require correct e-mail address? (Only works if one of your fields is
# called 'email')
$require_email = 1;
$parse_commands = 0;
# MAIN PROGRAM STARTS HERE. Please don't edit past this point without
# permission.
foreach $referer (@referers) {
print "$referer = $ENV{'HTTP_REFERER'}";
}
foreach $referer (@referers) {
print "$referer = $ENV{'REMOTE_ADDR'}";
}
%in = &getcgi;
if (-x $dateprog) {
$date = `$dateprog \'+%m/%d/%Y\'`;
chop($date);
}
@tester = keys(%in);
if ($tester[0] eq "") {
&htmlheader;
print "<html><head><title>Error</title></head><body bgcolor=white
text=black>\n";
print "Please supply some form elements to the script. This
script requires atleast one form element to be submitted for it to
function.\n</body></html>";
exit;
}
if ($require_all == 1) {
foreach $key (keys(%in)) {
if ($in{$key} eq "") {
&requirefields;
}
}
}
sub requirefields {
&htmlheader;
print "<html><head><title>Error</title></head><body bgcolor=white
text=black>\n";
print "Please go back and fill in all the required fields. Thank
you.\n";
exit;
return 1;
}
sub has {
local($tocheck) = $_[0];
foreach $key (keys(%in)) {
if ($key eq $tocheck) {
return 1;
}
}
return 0;
}
if ($require[0] ne "") {
foreach $check (@require) {
if (&has($check) == 1) {
if ($in{$check} eq "") {
&requirefields;
}
}
}
}
foreach $key (keys(%in)) {
if ($key =~ m/Email/i) {
$emailholder = $key;
}
}
if ($emailholder ne "") {
$in{$emailholder} =~ s/[^a-zA-Z0-9\@\.]//g;
if (($require_email == 1) and ($in{$emailholder} !~ m/.*\@.*\..*/i)) {
&htmlheader;
print "Please enter a correct e-mail address. Thank you.\n";
exit;
}
}
if (-x $mail) {
open(SM, "|$mail $youremail");
print SM "From: $in{'email'}\n";
print SM "Subject: test email 3 ($date)\n\n";
foreach $key (@order_array) {
print SM "$key: $in{$key}\n";
}
print SM "Message sent on $date by XpertMailForm by ";
print SM "Xpert Software (http://www.xpert-software.com).\n";
print SM "Message complete.\n";
print SM "From: $ENV{'HTTP_REFERER'}\n";
print SM "IP: $ENV{'REMOTE_ADDR'}\n";
close(SM);
} else {
&htmlheader;
print "Sorry, unable to send form.<p>Error: Sendmail not found at
$mail<p>Please tell the site admin.\n";
exit;
}
print "Location: $url\n\n";
sub getcgi {
local($in, %in);
local($name, $value);
# If REQUEST_METHOD is POST, use CONTENT_LENGTH. Else, use QUERY_STRING.
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
if ($ENV{'CONTENT_TYPE'}=~ m#^application/x-www-form-urlencoded#i) {
read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
}
}
else {
$in= $ENV{'QUERY_STRING'};
}
# Resolve and unencode name/value pairs into %in
foreach (split('&', $in)) {
s/\+/ /g;
($name, $value)= split('=', $_, 2);
$name=~ s/%(..)/sprintf("%c",hex($1))/ge;
$value=~ s/%(..)/sprintf("%c",hex($1))/ge;
@order_array = (@order_array,$name);
$in{$name}.= $value;
}
return %in;
}
sub htmlheader {
print "Content-type: text/html\n\n";
return 1;
}