#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print "Content-type: text/html \n\n";

# Website Contact Form Generator 
# http://www.tele-pro.co.uk/scripts/contact_form/ 
# This script is free to use as long as you  
# retain the credit link  

# get posted data into local variables
$input = new CGI;
$EmailFrom = $input->param('EmailFrom'); 
$EmailTo = $input->param('EmailTo'); 
$Subject = $input->param('Subject'); 
$FirstName = $input->param('FirstName'); 
$LastName = $input->param('LastName'); 
$Company = $input->param('Company'); 

# validation
$validationOK=true;
if ($EmailFrom eq '') {$validationOK=false;}
if ($EmailTo eq '') {$validationOK=false;}
if ($FirstName eq '') {$validationOK=false;}
if ($LastName eq '') {$validationOK=false;}
if ($Company eq '') {$validationOK=false;}
if ($validationOK eq false) {
  print "<meta http-equiv=\"refresh\" content=\"0;URL=error.htm\">";
  exit;
}

# prepare email body text
$Body .= "FirstName: ";
$Body .= "$FirstName";
$Body .= "\n";
$Body .= "LastName: ";
$Body .= "$LastName";
$Body .= "\n";
$Body .= "Company: ";
$Body .= "$Company";
$Body .= "\n";

# send email 
$mailprog = '/usr/sbin/sendmail -t';
open(MAIL,"|$mailprog");
print MAIL "To: $EmailTo\n";
print MAIL "From: $EmailFrom\n";
print MAIL "Subject: $Subject\n\n";
print MAIL $Body;
close(MAIL);

# redirect to success page 
print "<meta http-equiv=\"refresh\" content=\"0;URL=home.htm\">";