Email a Friend
EOF
;
if ($usefooter) {
&footer;
}
else {
print <
EOF
;
}
print <
EOF
;
exit;
}
sub sendit {
if (($FORM{'frommail'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) || ($FORM{'frommail'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) || ($FORM{'toname'} eq "") || ($FORM{'fromname'} eq "") || ($FORM{'message'} eq "") ) {
print <
EOF
;
}
print <
Email a Friend
EOF
;
if ($usefooter) {
&footer;
}
else {
print <
EOF
;
}
print <
EOF
;
exit;
}
else {
# Open The Mail Program
open(MAIL,"|$mailprog -t");
print MAIL "To: $FORM{'tomail'}\n";
print MAIL "From: $FORM{'frommail'} ($FORM{'fromname'})\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL "Hi $FORM{'toname'}!\n\n";
print MAIL $FORM{'message'};
print MAIL "\n\n";
print MAIL "Regards,\n\n";
print MAIL "$FORM{'fromname'}\n\n";
open(PROMO,"/var/www/vhosts/spiritualityhealth.com/httpdocs/newsh/promo.txt");
@promo = ;
close(PROMO);
foreach $line(@promo) {
print MAIL "$line";
}
print MAIL "\n\n";
close (MAIL);
}
if ($sendthankyou) {
open(MAIL2,"|$mailprog -t");
print MAIL2 "To: $FORM{'frommail'}\n";
print MAIL2 "From: $adminmail ($adminname)\n";
print MAIL2 "Subject: Thanks for recommending $sitename!\n\n";
if ($customthankyou) {
open(LIST,"$path/thankyou.txt");
@thankyou = ;
close(LIST);
foreach $line(@thankyou) {
print MAIL2 "$line";
}
print MAIL2 "\n\n";
open(PROMO,"/var/www/vhosts/spiritualityhealth.com/httpdocs/newsh/promo.txt");
@promo = ;
close(PROMO);
foreach $line(@promo) {
print MAIL2 "$line";
}
print MAIL2 "\n\n";
}
else {
print MAIL2 "Hi $FORM{'fromname'}!\n\n";
print MAIL2 "Thanks for recommending our services - we appreciate it!\n\n";
print MAIL2 "Best Regards,\n\n";
print MAIL2 "$adminname\n";
print MAIL2 "$sitename\n";
print MAIL2 "$siteURL\n\n";
}
close (MAIL2);
}
if ($notifyadmin) {
open(MAIL3,"|$mailprog -t");
print MAIL3 "To: dan\@spiritualityhealth.com\n";
print MAIL3 "From: $adminmail\n";
print MAIL3 "Subject: $FORM{'name'} \n\n";
print MAIL3 "Sender: $FORM{'fromname'} ( $FORM{'frommail'} )\n\n";
print MAIL3 "Recipient: $FORM{'toname'} ( $FORM{'tomail'} )\n\n";
print MAIL3 "Page: $FORM{'url'} \n\n";
close (MAIL3);
}
}
sub returnhtml {
#Then print out response page
if ($noredirect) {
print <
$sitename: Message Sent
EOF
;
if ($useheader) {
&header;
}
else {
print <
EOF
;
}
print <Message Sent!
Thanks $FORM{'fromname'}! Your message has been sent to $FORM{'toname'}. Click here to return to our homepage.
EOF
;
if ($usefooter) {
&footer;
}
else {
print <
EOF
;
}
print <
EOF
;
}
else {
print <
$sitename: Message Sent!
Message Sent!
Thanks $FORM{'fromname'}! Your message has been sent to $FORM{'toname'}. Now forwarding you back to the page you emailed...
| | | |