<?php
#File: MailList_basic.php - Version 3.00
#
#	This program was written to support basic mailing-list functionality
#without being dependent on an actual email alias for the mailing list. This
#increases the portability while also significantly reducing  the possibilitiy
#of spammers spamming members.
#
#	This particular file will do one of the following depending on the 
#parameters passed to it:
#	0 - Print subscribe form. This is done by default. 
#	1 - Mail confirmation subscribe email to the user requesting to sign up.
#	2 - Subscribe to the list if the user clicks on the link within their confirmation email.
#
#REQUIREMENTS:
#	1) PHP Version >= 4.2.3 
#	2) You must have a mail server running on the machine this script 
#	is installed on.
#
#INSTALLATION:
#	1) Set the path to the "require" statement belowif you do not keep all your files
#	in the same directory.
#	2) Set the values located in the "MailListConfigs_basic.php" 
#	file. ALL VALUES SHOULD BE ENCLOSED IN QUOTES.
#	3) Complete the "installation" section of the file "MailListAdmin_basic.php".
#
#RUNNING:
#	1) The link to print the "Subscribe" form to your users is:
#		http://www.yourdomain.com/scripts/MailList_basic.php
#
#ADDITIONAL FEATURES AVAILABLE IN THE ADVANCED VERSION
#	1) Providing the Unsubscribe form to allow users to automatically unsubscribe 
#	from the list. 
#	2) Mail confirmation unsubscribe email to the user requesting to be removed.
#	3) Unsubscribing the user from the list if they click on the link within their confirmation email.
#	4) Support for multiple lists
#
#More details can be found at http://www.davelozinski.com/scripts/
#
#WHERE/HOW TO PURCHASE THE ADVANCED VERSION
#	http://www.davelozinski.com/scripts
#
#LICENSE:
#	You are free to further develop/modify the source code to fit your
#needs, but you MAY NOT resell and/or redistribute the source code in any  
#way, manner, fashion, or form without my hand-written consent!
#
#	This license grants the purchaser of this archive the permission to
#have an unlimited number of users use this script at any time.
#Likewise, the purchaser may have any number of copies of this script as long 
#as the media that this program resides on or run from is owned by the purchaser. 
#If not, more licenses MUST be purchased.
#
#Examples:
#	1) If you have your own webserver hosting your various customers, you only need once license 
#to run the code on your webserver to provide the email functionality to your clients hosted on your server.
#	2) If you are designing websites for 3 individual clients, each of which wants the email functionality, 
#and each of which will be hosting their websites and emailer on their own server, 
#then you need to purchase 3 licenses. 
#
#If you modify the source code in anyway for your own purposes, the
#original header-comments must remain intact.
#
#REVISION HISTORY:
#		3.00	07/31/04	Updated with advanced script.
#		2.10	07/04/04	Updated with advanced script.
#		2.00	04/12/03	Functionality improved.
#		1.01	06/18/02	Corrected a Mail formatting issue
#		1.00	03/01/02	Original Version
#
#CONTACT INFORMATION:
#	http://www.davelozinski.com/cgi-bin/email_lozinski.pl
#

require(preg_replace("/\w+\.php$/","",preg_replace("/" . preg_quote("\\\\") . "/","/",$_SERVER["PATH_TRANSLATED"])) . "MailListConfigs_basic.php");

################################
#NOTHING BELOW THIS LINE SHOULD NEED TO BE CONFIGURED
################################

#Done to distinguish between a Windows OS and other OS. Windows requires
#a \r\n for mail and to write to files. Other OS's only require the \n.
if (preg_match("/^WIN/i",PHP_OS)) {
	define ("NEWLINE", "\r\n");
} else {
	define ("NEWLINE", "\n");
}

if (array_key_exists ("a", $_REQUEST)) { $a = $_REQUEST["a"]; } else { $a = 9; }
if (array_key_exists ("e", $_REQUEST)) { $e = $_REQUEST["e"]; } else { $e = ""; }
$AnError = 0;
$ErrorMessage = "";
$Title = "";
$Admin_Email = "";
$Email_Admin_With_List_Update = 0;
$Mail_Subscribe_Thank_You_Letter = 0;
$Send_HTML_Format = 0;
$Mail_List_Data_File = "";
$msg_body = "";
$subject = "";
$datestring = "";
$mailheaders = "";
$localtime = array();
$localtime = localtime(time(),1);
$found = 0;
$output = "";
$fp = "";

$Title_String = "Mailing List ";
if (is_numeric($a)) {
	$a = (int) $a;		#0 - Print subscribe form
	if ($a>2 || $a<0) {	#1 - Mail confirmation subscribe email
		$a = 0;		#2 - Subscribe to list
	}
} else {
	$a = 0;
}
if (($a==1 || $a==2) && (strcmp($e,"") == 0)) {
	$AnError = 1;
	$ErrorMessage = "<H3>You need to provide your email address.</H3>\n";
} elseif (($a==1) && ! IsValidEmailAddress($e)) {
	$AnError = 1;
	$ErrorMessage = "<H3>You need to provide a valid email address.</H3>\n";
} elseif (($a==2) && ! IsValidEmailAddress(base64_decode($e))) {
	$AnError = 1;
	$ErrorMessage = "<H3>You need to provide a valid email address.</H3>\n";
}
if (!$AnError) {
	$Title = $C_TITLE;
	$Admin_Email = $C_ADMIN_EMAIL;
	$Email_Admin_With_List_Update = $C_EMAIL_ADMIN_WITH_LIST_UPDATE;
	$Mail_Subscribe_Thank_You_Letter = $C_MAIL_SUBSCRIBE_THANK_YOU_LETTER;
	$Send_HTML_Format = $C_SEND_HTML_FORMAT;
	$Mail_List_Data_File = $C_MAIL_LIST_DATA_FILE;
	$Title_String .= "for: \"" . $Title . "\"\n";
}
?>
<HTML>
<HEAD>
<TITLE><?=$Title_String?></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<?php
if ($AnError) {
	echo ($ErrorMessage);
} else {
	if ($a == 1) {
		#Mail the confirmation subscribe or unsubscribe email
		$subject = "Confirmation Email: " . stripslashes($Title);
		$mailheaders = "From: " . $Admin_Email . NEWLINE;
		$mailheaders .= "Reply-To: " . $Admin_Email . NEWLINE;
		$mailheaders .= "MIME-version: 1.0" . NEWLINE;
   		$mailheaders .= "Content-Type: text/html; charset=iso-8859-1;" . NEWLINE;
	    	$mailheaders .= "Content-Transfer-Encoding: 7bit" . NEWLINE;
		$msg_body .= "<HTML><HEAD><TITLE>" . $subject . "</TITLE></HEAD><BODY><BR>" . NEWLINE;
		$msg_body .= "You are receiving this email because your email address was submitted to ";
		$msg_body .= "subscribe to: ";
		$msg_body .= NEWLINE . "\"" . $Title . "\"." . NEWLINE . "<BR><BR> To confirm, click on the link below. ";
		$msg_body .= "if you cannot, copy and paste the URL into your browser. Thank you! <BR><BR> " . NEWLINE . NEWLINE;
		$msg_body .= "<A HREF=\"" . $SCRIPT_URL;
		$msg_body .= "?a=2&e=" . urlencode(base64_encode($e)) . "\">" . $SCRIPT_URL . "?a=2&e=" . urlencode(base64_encode($e));
		$msg_body .= "</A><BR><BR>" . NEWLINE . "</BODY></HTML>" . NEWLINE . NEWLINE;

		if (mail(stripslashes($e), $subject, $msg_body, $mailheaders)) {
			echo ("<H3>Thank you! A confirmation email has been sent to \"" . $e . "\".<BR><BR>\n");
			echo ("You need to click on the URL (or copy and paste it into your browser) to confirm your selection.</H3>\n");
		} else {
			echo ("<H3>An error occurred and a confirmation email could not be sent to \"" . $e . "\".<BR><BR>\n");
			echo ("If the problem persists, please contact " . $Admin_Email . ". Thank you!</H3>\n");
		}
	} elseif ($a == 2) {
		# Subscribe to the list
		$error = 0;
		if (file_exists($Mail_List_Data_File) && !(filesize($Mail_List_Data_File) == 0)) {
			if ( $fp = file ($Mail_List_Data_File, "r") ) {
				while (!$found && list ($num,$line) = each ($fp)) {
					list ($email,$date) = preg_split("/\|/", $line);
					if (strcmp($email,base64_decode($e)) == 0) {
						$found = 1;
					}
				}
			} else {
				echo ("<H3>An error occurred. The user data file could not be opened for reading. \n");
				echo ("If you continue to experience problems, please email " . $Admin_Email . ". Thank you!</H3>\n");
				$error = 1;	###So we don't go into the appending section
			}
		} else {
			$found = 0;
		}
		if (!$error) {
			if ( !$found ) {
				if ($fp = fopen ($Mail_List_Data_File, "a") ) {
					flock ($fp,LOCK_EX);
					fwrite($fp,base64_decode($e) . "|");
					$datestring = sprintf("%04d",$localtime["tm_year"] +1900) . "-";
					$datestring .= sprintf("%02d",$localtime["tm_mon"] + 1) . "-";
					$datestring .= sprintf("%02d",$localtime["tm_mday"]);
					fwrite($fp, $datestring . NEWLINE);
					flock ($fp,LOCK_UN);
					fclose ($fp);
					if ($Email_Admin_With_List_Update) {
						EmailAdmin($datestring);
					}
					echo ("<H3>Thank you! You are now subscribed to: " . $Title . "</H3>\n");
					if ($Mail_Subscribe_Thank_You_Letter) {
						$mailheaders = "From: " . $Admin_Email . NEWLINE . "Reply-to: " . $Admin_Email . NEWLINE;
						$subject = "Thank you for subscribing to: " . $Title;
						$msg_body = "Thank you for subscribing to " . $Title . "!" . NEWLINE. NEWLINE;
						if (!mail(stripslashes(base64_decode($e)), stripslashes($subject), $msg_body, $mailheaders)) {
							echo ("<H3>An error occurred and a confirmation email could not be sent to \"" . base64_decode($e) . "\".<BR><BR>\n");
							echo ("If the problem persists, please contact " . $Admin_Email . ". Thank you!</H3>\n");
						}
					}
				} else {
					echo ("<H3>An error occurred, and your confirmation could not be saved. Please try again. \n");
					echo ("If you continue to experience problems, please email " . $Admin_Email . ". Thank you!</H3>\n");
				}
			} else { #already in the list
				echo("<H3>You have already subscribed to \"" . $Title . "\".<BR><BR>\n");
			}
		}
	} else {
		#Print the subscribe form by default
	?>
	<H3><?=$Title?> : Subscribe</H3>
	<P>
	Enter your email address below. A confirmation email will be sent to your email address.
	</P>
	<FORM ACTION="<?=$SCRIPT_URL?>" METHOD="post">
	<INPUT TYPE="hidden" NAME="a" VALUE="1">
	<INPUT TYPE="text" NAME="e" SIZE="40" VALUE=""><BR>
	<BR>
	<INPUT TYPE="submit" VALUE="Subscribe to: <?=$Title?>">
	</FORM>
<?php
	}
}	
?>
	
<BR>
</BODY>
</HTML>

<?php
################################
#function IsValidEmailAddress
#	Checks to make sure a user submitted an email address
#in a valid format.
################################
function IsValidEmailAddress ($theAddress) {
	$valid = 0;
	if (preg_match("/^(([\w\-\_])+(\.)*)+\@([\w\-\_]+\.)+[A-Za-z]{2,}$/i",$theAddress)) {
		$valid = 1;
	} else {
		$valid = 0;
	}
	return ($valid);
} ### IsValidEmailAddress

################################
#function EmailAdmin
#	Sends an email to the address specified by $ADMIN_EMAIL
#everytime someone confirms to subscribe or unsubscribe
#from the mailing list. This function is only called if
#$EMAIL_ADMIN_WITH_LIST_UPDATE is set to 1 (yes).
################################
function EmailAdmin ($lt) {
	global $a, $e, $Admin_Email, $Title;
	$Admin_Email = stripslashes($Admin_Email);
	$mailheaders = "From: " . $Admin_Email . NEWLINE . "Reply-to: " . $Admin_Email . NEWLINE;
	$subject = "Mail List Update for: " . $Title;
	$msg_body = "\"" . base64_decode($e) . "\"";
	$msg_body .= " subscribed to \"" . $Title . "\" on: ";
	$msg_body .= $lt . NEWLINE;
	if (!mail(stripslashes($Admin_Email), stripslashes($subject), $msg_body, $mailheaders)) {
		echo ("<H3>An error occurred. Please notify " . $Admin_Email . ". Thank you!</H3>\n");
	}
}
################################
?>