#!/usr/local/bin/perl -w
#EDIT THE ABOVE LINE TO POINT TO PERL ON YOUR SYSTEM
#
#File: MailListAdmin_basic.pl - Version 3.00
#
#Get the current working directory to add to the list of places to search
#for the files specified by the "require" statements.
$ENV{"PATH_TRANSLATED"} =~ s/\w+\..{1,}$//;
push (@INC,$ENV{"PATH_TRANSLATED"});
#
#	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) Perl Version >= 5.003 OR ActiveState Active Perl Version >= 5.6.1
#	2) You must have an SMTP server running on the machine this script 
#	is installed on.
#	3) The CPAN MIME::Base64 Perl Module must be installed (comes with ActivePerl)
#	4) The CPAN NET::SMTP Perl Module must be installed (comes with ActivePerl) 
#	5) The "lozcgi.pl" perl module. It's included as part of the archive and
#	available from http://www.davelozinski.com/scripts/
#
#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.pl" 
#	file. ALL VALUES SHOULD BE ENCLOSED IN QUOTES.
#	3) Complete the "installation" section of the file "MailList_basic.pl".
#
#RUNNING:
#	1) The URL to address the Admin interface is:
#		http://www.yourdomain.com/cgi-bin/MailListAdmin_basic.pl?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/04	Updated to keep up with "advanced" version.
#		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
#

use MIME::Base64;
use Net::SMTP;
use Fcntl ':flock'; # import LOCK_* constants
require("lozcgi.pl");
require("MailListConfigs_basic.pl");

################################
#NOTHING BELOW THIS LINE SHOULD NEED TO BE CONFIGURED
################################
&GetData;
$a = defined($in{"a"}) ? $in{"a"} : 9;
$e = defined($in{"e"}) ? $in{"e"} : "";
$from = defined($in{"from"}) ? $in{"from"} : "";
$message = defined($in{"message"}) ? $in{"message"} : "";
$subject = defined($in{"subject"}) ? $in{"subject"} : "";
$AnError = 0;
$ErrorMessage = "";
$Title = "";
$Admin_Email = "";
$Email_Admin_With_List_Update = 0;
$Mail_Subscribe_Thank_You_Letter = 0;
$msg_body = "";
$Admin_Script_URL = "";
$Script_URL = "";
$datestring = "";
$mailheaders = "";
$smtp = "";
$localtime = time + (60 * 60);

$Title_String = "Mailing List ";
if ($a =~ /\d/) {
	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 = $C_EMAIL_ADMIN_WITH_LIST_UPDATE;
	$Mail_Subscribe_Thank_You_Letter = $C_MAIL_SUBSCRIBE_THANK_YOU_LETTER;
	$Send_HTML_Format = $C_SEND_HTML_FORMAT;
	$Title_String .= "for: \"" . $Title . "\"";
}
&StartHTML($Title_String,"","","","","","",1);
if ($AnError) {
	print("<H3>" . $ErrorMessage . "</H3>\n");
} else { ###No error
	$Script_URL = $SCRIPT_URL;
	$Admin_Script_URL = $ADMIN_SCRIPT_URL;
	print <<__END_OF_HTML_CODE__;
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="3" CELLSPACING="0">
<TR><TD BGCOLOR="#FF69B4" COLSPAN="2">
<H2>Mail List Administrative Interface 
__END_OF_HTML_CODE__
	print <<__END_OF_HTML_CODE__;
</H2>
</TD></TR>
<TR VALIGN="top">
<TD>
<BR>
__END_OF_HTML_CODE__
#Print the left hand column of buttons.
	print <<__END_OF_HTML_CODE__;
<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>
__END_OF_HTML_CODE__
if ($a == 0) {
	#Print the configurations for the current list.
	print <<__END_OF_HTML_CODE__;
<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>
__END_OF_HTML_CODE__
print ("<OPTION VALUE=\"1\"");
if ($Mail_Subscribe_Thank_You_Letter) {
	print (" SELECTED");
}
print (">Yes\n");
print ("<OPTION VALUE=\"0\"");
if (!$Mail_Subscribe_Thank_You_Letter) {
	print (" SELECTED");
}
print (">No\n");
	print <<__END_OF_HTML_CODE__;
</SELECT>
</TD></TR>
<TR><TD><B>Administrator's Email:</B></TD><TD><INPUT TYPE="text" 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>
__END_OF_HTML_CODE__
print ("<OPTION VALUE=\"1\"");
if ($Email_Admin_With_List_Update) {
	print (" SELECTED");
}
print (">Yes\n");
print ("<OPTION VALUE=\"0\"");
if (!$Email_Admin_With_List_Update) {
	print (" SELECTED");
}
print (">No\n");
	print <<__END_OF_HTML_CODE__;
</SELECT>
</TD></TR>
<TR><TD><B>Send HTML formatted messages by default?:</B>
</TD><TD>
<SELECT>
__END_OF_HTML_CODE__
print ("<OPTION VALUE=\"1\"");
if ($Send_HTML_Format) {
	print (" SELECTED");
}
print (">Yes\n");
print ("<OPTION VALUE=\"0\"");
if (!$Send_HTML_Format) {
	print (" SELECTED");
}
print (">No\n");
	print <<__END_OF_HTML_CODE__;
</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/cgi-bin/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>
__END_OF_HTML_CODE__
} elsif ($a == 1) {
	#Print the Email form to mail a message to the members.
	if ((-e $Mail_List_Data_File) && (-s $Mail_List_Data_File) > 0) {
	print <<__END_OF_HTML_CODE__;
<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:&nbsp; 
__END_OF_HTML_CODE__
print("<INPUT TYPE=\"radio\" NAME=\"send_html_format\" VALUE=\"0\"");
if (!$Send_HTML_Format) {
	print(" CHECKED");
}
print(">Text&nbsp;&nbsp;");
print("<INPUT TYPE=\"radio\" NAME=\"send_html_format\" VALUE=\"1\"");
if ($Send_HTML_Format) {
	print(" CHECKED");
}
print(">HTML&nbsp;&nbsp;");
print <<__END_OF_HTML_CODE__;
[<A HREF="JavaScript:Preview();">Preview</A>]<BR>
<BR>
<INPUT TYPE="submit" NAME="command" VALUE="Mail the members of: $Title"><BR>
</FORM>
__END_OF_HTML_CODE__
	} else { ###empty member file
		print ("<H3>There are no members currently subscribed to the mail list \"" . $Title . "\".</H3>\n");
	}
} elsif ($a == 2) {
	#Mail the message to the members on the list.
	if ($subject eq "") {
		print ("<H3>You need to provide a subject for your email.</H3>\n");
	} elsif ($from eq "") {
		print ("<H3>You need to specify a \"from\" address for your email.</H3>\n");
	} else {
		if ( open (FP,$Mail_List_Data_File) ) {
			while ($line = <FP>) {
				($email,$date) = split(/\|/,$line);
				$fp{$email} = 1;
			}
			close(FP);
			@successes;
			@failures;
			foreach $email_address (keys %fp) {
				$msg_body = ""; 
				$mailheaders = "From: " . $Admin_Email . "\n";
				$mailheaders .= "Reply-To: " . $Admin_Email . "\n";
				$mailheaders .= "To: " . $email_address . "\n";
				$mailheaders .= "Subject: " . $subject . "\n";
				if ($r_send_html_format) {
					$mailheaders .= "MIME-version: 1.0\n";
					$mailheaders .= "Content-Type: text/html; charset=iso-8859-1;\n";
    				$mailheaders .= "Content-Transfer-Encoding: 7bit\n";
					$msg_body .= "<HTML><HEAD><TITLE>" . $Title . "</TITLE></HEAD><BODY>\n";
				} 
				$msg_body .= $message . "\n";
				if ($r_send_html_format) {
					$msg_body .= "<BR><BR>";
				}
				$msg_body .= "\n\nYou are receiving this email because you subscribed to: " . $Title . "\n\n";
				if ($r_send_html_format) {
					$msg_body .= "<BR><BR></BODY></HTML>";
				}
				$msg_body .= "\n\n";
				if ($smtp = Net::SMTP->new("localhost")) {
					$smtp->mail("$Admin_Email");
					$smtp->to("$email_address");
					$smtp->data();
					$smtp->datasend("$mailheaders");
					$smtp->datasend("\n");
					$smtp->datasend("$msg_body\n");
					$smtp->dataend();
					$smtp->quit();
					push (@successes,$email_address);
				} else {
					push (@failures,$email_address);
				}
			} 
			if (@failures > 0 && @successes > 0) {
				print ("<A HREF=\"#failures\">Click to view members who could not be emailed.</A><BR>\n");
				print ("<A HREF=\"#successes\">Click to view members successfully emailed</A><BR>\n");
				print ("<BR><HR><BR>\n");
			}
			if (@failures > 0) {
				print ("<A NAME=\"failures\"> </A>\n");
				print ("<H3>The following " . @failures . " members were not emailed:</H3>\n");
				for ($x=0; $x<@failures; $x++) {
					print ($failures[$x] . "<BR>\n");
				}				
			}
			print ("<A NAME=\"successes\"> </A>\n");
			if (@successes > 0) {
				print ("<H3>Successfully sent an email to these " . @successes . " member(s):</H3>\n");
				for ($x=0; $x<@successes; $x++) {
					print ($successes[$x] . "<BR>\n");
				}				
			} else {
				print ("<H3>No members were successfully emailed.</H3>\n");
			}
		} else {
			print ("<H3>Error! Could not open \"" . $Mail_List_Data_File . "\"!</H3>\n");
		}
	}
} elsif ($a == 8) {
	#Print the current list of members. 
	if ( -e ($Mail_List_Data_File) && !( -s ($Mail_List_Data_File) == 0)) {
		if ( open (FP,$Mail_List_Data_File) ) {
			print <<__END_OF_HTML_CODE__;
	<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>in no particular order</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>
__END_OF_HTML_CODE__
			while ($line = <FP>) {
				($email,$date) = split(/\|/, $line);
				$fp{$email} = $date;
			}
			close(FP);
			foreach $Email_Address (keys %fp) {
				print ("<TR>\n<TH><INPUT TYPE=\"checkbox\" VALUE=\"" . $Email_Address . "\"></TH>\n");
				print ("<TD>" . $Email_Address . "</TD>\n");
				print ("<TD>" . $fp{$Email_Address} . "</TD>\n</TR>\n");
			} 
			print ("<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");
			print ("</TABLE>\n</FORM>\n");
		} else {
			print ("<H3>An error occurred. The datafile \"". $Mail_List_Data_File . "\" could not be opened for reading.</H3>\n");
		}
	} else { 
		print ("<H3>The mail list \"" . $Title . "\" currently has no members.</H3>\n");
	}
} elsif ($a == 9) {
	#View all current lists
	print <<__END_OF_HTML_CODE__;
<TABLE BORDER="3" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000">
<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>
__END_OF_HTML_CODE__
		print ("<TR>\n<TD>Basic Test List</TD>\n");
		print ("<TD>" . $Title . "</TD>\n");
		print ("<TD>[<A HREF=\"". $Admin_Script_URL . "?a=0\">Update</A>]</TD>\n");
		if ( -e ($Mail_List_Data_File) && ( -s ($Mail_List_Data_File) != 0)) {
			print ("<TD>[<A HREF=\"" . $Admin_Script_URL . "?a=8\">Members</A>]</TD>\n");
		} else {
			print ("<TD>No Members</TD>\n");
		}
		print ("</TR>\n");
	print ("</TABLE>\n");
}
print <<__END_OF_HTML_CODE__;
</TD>
</TR>
</TABLE>
__END_OF_HTML_CODE__
} ###!$AnError

&FinishHTML(1);