|
|
| Join the Slaymaker Hill
E-club today and we will let you know when and where we will be playing.
Your e-mail is safe with us, we will not share your
information.
Slaymaker Hill eClub Newsletter.";
# Sorrymessage for failed subscription, will be followed by the email!
$sorrysignmessage = "Sorry, but there is already an entry for $email. ";
# Sorrymessage for blank email
$sorryblankmailmessage = "Sorry, but with a blank mail I get lost in cyberspace. ";
# Sorrymessage for invalid emails
$sorryoddmailmessage = "Sorry, but \"$email\" that does not look like an email to me. ";
# Sorrymessage if someone entered your own mail
$sorryownmailmessage = "Thanks, but I already get my own newsletter! ";
# Subscribemessage, will be shown when someone subscribes.
$subscribemessage = "Thank you for subscribing to Slaymaker Hill eClub Newsletter, a confirmation email is on its way! ";
# Subscribemail, will be sent when someone subscribes.
$subscribemail = "Thank you for subscribing to Slaymaker Hill eClub Newsletter.";
# Unsubscribemessage for deletion, will be followed by the email!
$unsubscribemessage = "We deleted your email address from our list. ";
# Unsubscribemessage for failed deletion, will be followed by the email!
$failedunsubscriptionmessage = "Sorry, we didn't find an entry for $email. ";
if (!file_exists($filelocation)) {
$newfile = fopen($filelocation,"w+");
fclose($newfile);
}
$newfile = fopen($filelocation,"r");
$content = fread($newfile, filesize($filelocation));
fclose($newfile);
$content=stripslashes($content);
$out="";
$lines = explode("%",$content);
foreach($lines as $l){
if ($l != $email){$out .= "%".$l;}
else{$found=1;}
}
if ($action=="sign"){
if ($found==1 or $email=="" or !checkmail($email) or preg_match("/".$pattern."/",$email)){
if ($email==""){echo $sorryblankmailmessage;}
else if ($found==1){echo $sorrysignmessage;}
else if (!checkmail($email)){echo $sorryoddmailmessage;}
else if (preg_match("/".$pattern."/",$email)){echo $sorryownmailmessage;}
$disp="yes";
}
else {
$disp="no";
$newfile = fopen($filelocation,"a+");
$add = "%".$email;
fwrite($newfile, $add);
fclose($newfile);
echo $subscribemessage;
mail ($youremail,"New newsletter subscriber.",$email."\nDelete? $newsletterlocation?action=delete&email=".$email,"From: Newsletter\nReply-To: $email\n");
$submailheaders = "From: $lettername<$youremail>\n";
$submailheaders .= "Reply-To: $youremail\n";
mail ($email,$lettername." Subscription",$subscribemail,$submailheaders);
}
}
if ($action=="delete"){
$disp="no";
if ($found == 1){
$newfile = fopen($filelocation,"w+");
fwrite($newfile, $out);
fclose($newfile);
echo $unsubscribemessage;
$disp="no";
}
if ($found != 1){
echo $failedunsubscriptionmessage;
$disp="YES";
}
}
//if ($action=="list" && $pw == $pass) {
if ($action2=="list" && $listpw=="erslay") {
$newfile = fopen($filelocation,"r");
$content = fread($newfile, filesize($filelocation));
fclose($newfile);
$content=stripslashes($content);
$out="";
$lines = explode("%",$content);
print 'List Of Newsletter Subscribers
';
$ln = 0;
foreach($lines as $l){
$ln+=1;
print $l.'
';
}
print '
There are '.$ln.' email addresses in the list.
';
}
//echo 'pw is '.$pw;
if ($pw == $pass){
if ($send != "yes" && $send != "test"){
print'
';
// if ($action!="list") {
// print 'List newsletter subscribers.
';
// }
}
$mailheaders = "From: $lettername Subscription <$youremail>\n";
$mailheaders .= "Reply-To:$youremail\n";
# If you want to send HTML mail, uncomment this line!
// $mailheaders .= "Content-Type: text/html; charset=iso-8859-1\n";
if ($send == "yes" && $sendpw=="erslay"){
$message="".stripslashes($message);
$subject=stripslashes($subject);
$lines = explode("%",$content);
foreach ($lines as $l){mail ($l,$subject,$message,$mailheaders);}
print "The following email has been sent!";
print "$mailheaders\n$subject\n$message ";
// print '
List newsletter subscribers.
';
print 'Send another.
';
}
}
if ($pw != $pass && $disp != "no"){
print'';
print $welcomemessage;
print'
';
}
//print "";
function checkmail($string){
return preg_match("/^[^\s()<>@,;:\"\/\[\]?=]+@\w[\w-]*(\.\w[\w-]*)*\.[a-z]{2,}$/i",$string);
}
?>
|
|
