use OLE;
use CGI;
$jmail = CreateObject OLE "JMail.SMTPMail";
$form = new CGI;
$Recipient=$form->param('email');
$domain = $ENV {'SERVER_NAME'};
$referer = $ENV {'HTTP_REFERER'};
$url = $referer;
$url =~ s/^http:\/\///i;
$url =~ s/^www\.//i;
$domain =~ s/^www\.//i;
$Sender = "noreply\@$domain";
$SMTPServer = "smtp.$domain:25";
$Subject=$form->param('page');
$Body=$form->param('body');
$Priority=3;
$Header = "Originating-IP",
$ENV{'REMOTE_ADDR'};
$jmail->{ServerAddress} = $SMTPServer;
$jmail->{Sender} = $Sender;
$jmail->{Subject} = $Subject;
$jmail->AddRecipient ($Recipient);
$jmail->{Body} = $Body;
$jmail->{Priority} = $Priority;
$jmail->AddHeader ($Header);
if ($url =~ m/^$domain/)
{
$mailmessage = "mail sent";
$jmail->Execute;
}
else
{
$mailmessage = "mail was not sent.
Incorrect Referer";
}
print "Result: $mailmessage Recipient: $Recipient";
print "Sender: $Sender SMTP Server:
$SMTPServer";
print "Subject: $Subject Referer: $referer";
print "Domain: $domain url: $url ";
:-)
This will send the user to your thank you page provide you have not already "printed" anything else to the browser:
$thanks = 'http://'.'YourDomain.com/YourThanks.Page'."\n\n";
print "Location: $thanks\n\n";
[Edit]Changed variable so that WW parser wouldn't try to hyperlink the URL, the $thanks var does not actually need all the concatenation[/Edit]
[edited by: IanKelley at 8:33 pm (utc) on May 29, 2007]