<?php
#File: MailListAdmin_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:
#	a is the value for "a" in the query string, which can be any of the following:
#		0 - Print the Configurations for the current list
#		1 - Print the email form to email a message to members of the current list
#		2 - Mail the message to current list
#		8 - Print the members of the current list
#		9 - View all the currently configured Mailing Lists 
#
#REQUIREMENTS:
#	1) PHP version >= 4.2.3
#	2) You must have an SMTP server running on the machine this script 
#	is installed on.
#
#INSTALLATION:
#	1) Set the path to the "require" statements below. If you keep all your files
#	in the same directory, you most likely will not have to edit the "require" statements.
#	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 "MailList_basic.php".
#
#RUNNING:
#	1) The URL to address the Admin interface is:
#		http://www.yourdomain.com/scripts/MailListAdmin_basic.php?a=9
#
#ADDITIONAL FEATURES AVAILABLE IN THE ADVANCED VERSION:
#		1) Print the Add form to add an email to the current list
#		2) Adding an email to the current list directly, bypassing any
#		confirmation emails
#		3) Removing an email from the current list directly, bypassing any
#		confirmation emails
#		4) Removing several emails from the current list directly, bypassing
#		any confirmation emails
#		5) Displaying the Remove the form to remove an email from the current list
#		6) Web interface to update current list settings
#		7) Web interface to Create a new list
#		8) Web interface to Delete a list
#		9) Web interface to Update URLs 
#		10) Support for MULTIPLE lists
#		11) Exporting mail list data to Excel, Word, and a text editor
#		12) Sorting member data by email address or date joined
#
#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 programs is stored 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/004	Updated with advanced script.
#		2.00	04/12/03	Functionality improved. New features added.
#		1.01	06/18/02	Corrected a mailing bug which stopped the program from emailing
#					every member on the list.
#		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 = ""; }
if (array_key_exists ("l", $_REQUEST)) { $l = $_REQUEST["l"]; } else { $l = ""; }
if (array_key_exists ("from", $_REQUEST)) { $from = $_REQUEST["from"]; } else { $from = ""; }
if (array_key_exists ("message", $_REQUEST)) { $message = $_REQUEST["message"]; } else { $message = ""; }
if (array_key_exists ("subject", $_REQUEST)) { $subject = $_REQUEST["subject"]; } else { $subject = ""; }
$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 = "";
$datestring = "";
$mailheaders = "";
$localtime = array();
$localtime = localtime(time(),1);

$Title_String = "Mailing List ";
if (is_numeric($a)) {
	$a = (int) $a;
	if ($a != 0 && $a != 1 && $a != 2 && $a != 8 && $a != 9) {
		$a = 9;				
	}
} else {
	$AnError = 1;
	$ErrorMessage = "<H3>An error occurred. You are not accessing this script with the correct URL Query String.<BR><BR>See the documentation for more details.</H3>\n";
}
$Title = $C_TITLE;
$Mail_List_Data_File = $C_MAIL_LIST_DATA_FILE;
if (!$AnError && ($a != 9)) {
	$Admin_Email = $C_ADMIN_EMAIL;
	$Email_Admin_With_List_Update = (int) $C_EMAIL_ADMIN_WITH_LIST_UPDATE;
	$Mail_Subscribe_Thank_You_Letter = (int) $C_MAIL_SUBSCRIBE_THANK_YOU_LETTER;
	$Send_HTML_Format = (int) $C_SEND_HTML_FORMAT;
	$Title_String .= "for: \"" . $Title . "\"\n";
}
?>
<HTML>
<HEAD>
<TITLE><?=$Title_String?></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<?php 
if ($AnError) {
	echo("<H3>" . $ErrorMessage . "</H3>\n");
} else { ###No error
?>

<TABLE WIDTH="100%" BORDER="0" CELLPADDING="3" CELLSPACING="0">
<TR><TD BGCOLOR="#FF69B4" COLSPAN="2">
<H2>Mail List Administrative Interface 
<?php
if (strcmp($l,"") != 0) {
	echo ("for: \"" . $Title . "\"\n");
}
?>
</H2>
</TD></TR>
<TR VALIGN="top">
<TD>
<BR>
<?php
#Print the left hand column of buttons.
?>
<FORM ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="8">
<INPUT TYPE="submit" VALUE="View Current Members" STYLE="width:200;">
</FORM>
<FORM ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="1">
<INPUT TYPE="submit" VALUE="Email Members" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="Add a Member" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="Remove a Member" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="Export Data File" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<FORM ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="0">
<INPUT TYPE="submit" VALUE="View/Update List Settings" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="View List Stats" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<BR><HR WIDTH="200" ALIGN="left"><BR>
<FORM ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="9">
<INPUT TYPE="submit" VALUE="View All Lists" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="View/Update URLs" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="Create a New List" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
<FORM>
<INPUT TYPE="button" VALUE="Delete a List" onClick="alert('Available in the ADVANCED version.');return true;" STYLE="width:200;">
</FORM>
</TD>
<TD>
<BR>
<?php
if ($a == 0) {
	#Print the configurations for the current list.
?>
<FORM ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="10">
<TABLE BORDER="3" CELLPADDING="3" CELLSPACING="1">
<TR><TD COLSPAN="2" BGCOLOR="#CCCCCC"><H3>Current Configurations for: <?=$Title?></H3></TD></TR>
<TR><TD><B>Mail List Abbreviation:</B></TD><TD>N/A</TD></TR>
<TR><TD><B>URL for Members to add themselves to this list:</B></TD><TD><A HREF="<?=$SCRIPT_URL?>"><NOBR><?=$SCRIPT_URL?></NOBR></A></TD></TR>
<TR><TD><B>URL for Members to remove themselves to this list:</B></TD><TD><NOBR>Available in the advanced version</NOBR></TD></TR>
<TR><TD><B>Mail List Title:</B><BR>The full title for this list.</TD><TD><INPUT TYPE="text" NAME="ltitle" SIZE="40" VALUE="<?=$Title?>"></TD></TR>
<TR><TD><B>Email a "thank you" message to each new subscriber?:</B><BR>
Selecting "yes" will have the program email the new subscriber a "thank you" message for joining "<?=$Title?>".</TD>
<TD>
<SELECT>
<?php
echo ("<OPTION VALUE=\"1\"");
if ($Mail_Subscribe_Thank_You_Letter) {
	echo (" SELECTED");
}
echo (">Yes\n");
echo ("<OPTION VALUE=\"0\"");
if (!$Mail_Subscribe_Thank_You_Letter) {
	echo (" SELECTED");
}
echo (">No\n");
?>
</SELECT>
</TD></TR>
<TR><TD><B>Administrator's Email:</B></TD><TD><INPUT TYPE="text" NAME="aemail" SIZE="40" VALUE="<?=$Admin_Email?>"></TD></TR>
<TR><TD><B>Email Admin with each list update?:</B><BR>
Selecting "yes" will have the program email the administrator everytime someone confirms their addition or removal from this list.</TD><TD>
<SELECT NAME="emailadmin">
<?php
echo ("<OPTION VALUE=\"1\"");
if ($Email_Admin_With_List_Update) {
	echo (" SELECTED");
}
echo (">Yes\n");
echo ("<OPTION VALUE=\"0\"");
if (!$Email_Admin_With_List_Update) {
	echo (" SELECTED");
}
echo (">No\n");
?>
</SELECT>
</TD></TR>
<TR><TD><B>Send HTML formatted messages by default?:</B>
</TD><TD>
<SELECT>
<?php
echo ("<OPTION VALUE=\"1\"");
if ($Send_HTML_Format) {
	echo (" SELECTED");
}
echo (">Yes\n");
echo ("<OPTION VALUE=\"0\"");
if (!$Send_HTML_Format) {
	echo (" SELECTED");
}
echo (">No\n");
?>
</SELECT>
</TD></TR>
<TR>
<TD><B>Datafile for this mail list:</B><BR>Full operating system path, including the file name.<BR>
<B>NO BACKSLASHES "\"!</B><BR>
Examples:<BR>
<CODE>F:/Inetpub/wwwroot/scripts/maillist/listdata.txt<BR>
/var/home/public_html/somedir/datafile.txt</CODE></TD>
<TD><INPUT SIZE="50" TYPE="text" VALUE="<?=$Mail_List_Data_File?>"></TD>
</TR>
<TR><TD>&nbsp;</TD><TD><INPUT TYPE="button" VALUE="Update <?=$Title?>!" onClick="alert('Available in the ADVANCED version.');return true;"></TD></TR>
</TABLE>
</FORM>
<?php
} elseif ($a == 1) {
	#Print the Email form to mail a message to the members.
	if (file_exists($Mail_List_Data_File) && !(filesize($Mail_List_Data_File) == 0)) {
?>
<SCRIPT LANGUAGE="JavaScript">	
function Preview() {
	if (!document.Compose.send_html_format[1].checked) {
	    alert("Preview is for HTML documents only");
	} else {
	    var prevWnd=window.open("", "prvw", "width=500,height=580,scrollbars=yes,resizable=yes,status=0");
	    prevWnd.document.open();
	    prevWnd.document.writeln(
		'<HTML><TITLE>HTML Preview: ' + document.Compose.subject.value + '</TITLE><BODY bgcolor=#ffffff><TABLE WIDTH="100%" BORDER="0"><TR><TD><B>HTML Message Preview:</B></TD><TD ALIGN="right"><A HREF="javascript:window.close()">Close</A></TD></TR></TABLE><BR><TABLE BORDER="1" WIDTH="100%" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000"><TR><TD>'
	    );
	    prevWnd.document.writeln(document.Compose.message.value);
	    prevWnd.document.writeln('</TD></TR></TABLE></BODY></HTML>');
	    prevWnd.document.close();
	}
}
</SCRIPT>
<H3>
Email members of: <?=$Title?>
</H3>
<FORM NAME="Compose" ACTION="<?=$ADMIN_SCRIPT_URL?>" METHOD="post">
<INPUT TYPE="hidden" NAME="a" VALUE="2">
From: <INPUT TYPE="text" NAME="from" SIZE="40" VALUE="<?=$Admin_Email?>"><BR>
<BR>
Subject: <INPUT TYPE="text" NAME="subject" SIZE="40"><BR>
<BR>
Message: <BR>
<TEXTAREA NAME="message" ROWS="25" COLS="72" WRAP="VIRTUAL"></TEXTAREA><BR>
<BR>
Send as: 
<?php
echo("<INPUT TYPE=\"radio\" NAME=\"send_html_format\" VALUE=\"0\"");
if (!$Send_HTML_Format) {
	echo(" CHECKED");
}
echo(">Text&nbsp;&nbsp;");
echo("<INPUT TYPE=\"radio\" NAME=\"send_html_format\" VALUE=\"1\"");
if ($Send_HTML_Format) {
	echo(" CHECKED");
}
echo(">HTML&nbsp;&nbsp;");
?>
[<A HREF="JavaScript:Preview();">Preview</A>]<BR>
<BR>
<INPUT TYPE="submit" VALUE="Mail the members of: <?=$Title?>"><BR>
</FORM>
<?php
	} else { ###Empty or non-existent file
		echo ("<H3>There are no members currently subscribed to the mail list \"" . $Title . "\".</H3>\n");
	}
} elseif ($a == 2) {
	#Mail the message to the members on the list.
	if (strcmp($subject,"") == 0) {
		echo ("<H3>You need to provide a subject for your email.</H3>\n");
	} elseif (strcmp($from,"") == 0) {
		echo ("<H3>You need to specify a \"from\" address for your email.</H3>\n");
	} else {
		if (file_exists($Mail_List_Data_File) && !(filesize($Mail_List_Data_File) == 0)) {
			if ( $fp = file ($Mail_List_Data_File, "r") ) {
				$successes = array();
				$failures = array();
				while (list ($num,$line) = each ($fp)) {
					list ($email_address,$date) = preg_split("/\|/", $line);
					$msg_body = ""; 
					$mailheaders = "From: " . $Admin_Email . NEWLINE;
					$mailheaders .= "Reply-To: " . $Admin_Email . NEWLINE;
					if ($send_html_format) {
						$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>" . $Title . "</TITLE></HEAD><BODY>" . NEWLINE;
					} 
					$msg_body .= $message . NEWLINE;
					$msg_body .= NEWLINE . NEWLINE . "You are receiving this email because you subscribed to: " . $Title . NEWLINE . NEWLINE;
					if ($send_html_format) {
						$msg_body .= "<BR><BR></BODY></HTML>";
					}
					$msg_body .= NEWLINE . NEWLINE;
	
					if (mail(stripslashes($email_address), stripslashes($subject), $msg_body, $mailheaders)) {
						$successes[$email_address] = 1;
					} else {
						$failures[$email_address] = 1;
					}
				}
				if (count($failures) > 0 && count($successes) > 0) {
					echo ("<A HREF=\"#failures\">Click to view members who could not be emailed.</A><BR>\n");
					echo ("<A HREF=\"#successes\">Click to view members successfully emailed</A><BR>\n");
					echo ("<BR><HR><BR>\n");
				}
				if (count($failures) > 0) {
					echo ("<A NAME=\"failures\"> </A>\n");
					echo ("<H3>The following " . count($failures) . " members were not emailed:</H3>\n");
					foreach ($failures as $key => $value) {
						echo ($key . "<BR>\n");
					}				
				}
				echo ("<A NAME=\"successes\"> </A>\n");
				if (count($successes) > 0) {
					echo ("<H3>Successfully sent an email to these " . count($successes) . " member(s):</H3>\n");
					foreach ($successes as $key => $value) {
						echo ($key . "<BR>\n");
					}
				} else {
					echo ("<H3>No members were successfully emailed.</H3>\n");
				}
			} else {
				echo ("<H3>Error! The file \"" . $Mail_List_Data_File . "\" containing the members of: " . $C_TITLE[$l] . " could not be read!</H3>\n");
			}
		} else {
			echo ("<H3>Error! There are no members currently subscribed to the mail list \"" . $Title . "\"!</H3>\n");
		}
	}
} elseif ($a == 8) {
	#Print the current list of members. 
	if (file_exists($Mail_List_Data_File) && !(filesize($Mail_List_Data_File) == 0)) {
		if ( $fp = file ($Mail_List_Data_File, "r") ) {
?>
	<TABLE BGCOLOR="#FFFFFF" BORDER="3" CELLPADDING="3" CELLSPACING="0">
	<TR BGCOLOR="#CCCCCC">
	<TD COLSPAN="3">
		<TABLE BORDER="0">
		<TR>
		<TD><H3><?=$Title?> Members:</H3></TD>
		<TD>[export]</TD>
		</TR>
		<TR><TD><BR></TD></TR>
		<TR>
		<TD>
		<FORM>
		Display:
		<SELECT>
		<OPTION>as saved in datafile</OPTION>
		<OPTION>email addresses ascending order</OPTION>
		<OPTION>email addresses descending order</OPTION>
		<OPTION>date joined ascending order</OPTION>
		<OPTION>date joined descending order</OPTION>
		</SELECT>
		<INPUT TYPE="button" VALUE="Go!" onClick="alert('Available in the ADVANCED version.');return true;">
		</FORM>
		</TD>
		</TR>	
		</TABLE>
	</TD>
	</TR>
	<FORM>
	<TR><TH>Remove?</TH><TH>Email Address</TH><TH>Date Joined</TH></TR>
<?php
			$members = array();
			while (list ($num,$line) = each ($fp)) {
				list ($email,$date) = preg_split("/\|/", $line);
				$members[$email] = $date;
			}
			arsort ($members);
			reset ($members);
			while (list ($email,$date) = each ($members)) {
				echo ("<TR>\n");
				echo ("<TH><INPUT TYPE=\"checkbox\" VALUE=\"" . $email . "\"></TH>\n");
				echo ("<TD>" . $email . "</TD>\n");
				echo ("<TD>" . $date . "</TD>\n");
				echo ("</TR>\n");
			}
			echo ("<TR><TH><INPUT TYPE=\"button\" VALUE=\"Remove Checked\" onClick=\"alert('Available in the ADVANCED version.');return true;\"></TH><TD>&nbsp;</TD><TD>&nbsp;</TD></TR>\n");
			echo ("</TABLE>\n</FORM>\n");
		} else {
			echo ("<H3>Error. Could not open the datafile \"" . $Mail_List_Data_File . "\" for reading.</H3>\n");
		}
	} else { 
		echo ("<H3>The mail list \"" . $Title . "\" currently has no members.</H3>\n");
	}
} elseif ($a == 9) {
	#View all current lists
?>
<TABLE BORDER="3" CELLPADDING="3" CELLSPACING="1">
<TR><TD COLSPAN="4" BGCOLOR="#CCCCCC"><H3>All Mail Lists. Click on a list for specifics.</H3></TD></TR>
<TR><TH>List Abbreviation</TH><TH>List Title</TH><TH COLSPAN="2">&nbsp;</TH></TR>
<?php
	echo ("<TR>\n");
	echo ("<TD>Basic Test List</TD>\n");
	echo ("<TD>" . $Title . "</TD>\n");
	echo ("<TD>[<A HREF=\"". $ADMIN_SCRIPT_URL . "?a=0\">Update</A>]</TD>\n");
	if (file_exists($C_MAIL_LIST_DATA_FILE) && filesize($C_MAIL_LIST_DATA_FILE) != 0) {
		echo ("<TD>[<A HREF=\"". $ADMIN_SCRIPT_URL . "?a=8\">Members</A>]</TD>\n");
	} else {
		echo ("<TD>No Members</TD>\n");
	}
	echo ("</TR>\n");
	echo ("</TABLE>\n");
}
?>
</TD>
</TR>
</TABLE>
<?php
} ###!$AnError
?>
<BR>
</BODY>
</HTML>