#!/usr/bin/perl
#
############################################
##                                        ##
##           Subscribe Me Lite            ##
##          by CGI Script Center          ##
##  (e-mail support@cgiscriptcenter.com)  ##
##                                        ##
##             version:  2.02             ##
##      last modified:  01/18/2001        ##
##       copyright (c) 1998 - 2001        ##
##                                        ##
##    latest version is available from    ##
##          The CGI Script Center         ##
##     http://www.cgiscriptcenter.com     ##
##                                        ##
############################################

# COPYRIGHT NOTICE:
#
# Copyright 1998 - 2001 Diran Alemshah.  All Rights Reserved.
#
# This program may be used and modified free of charge by anyone, so
# long as this copyright notice and the header above remain intact.  By
# using this program you agree to indemnify Diran Alemshah and Elite Web
# Design and Marketing, Inc. from any liability.
#
# Selling, redistributing, reverse compiling the code for this program
# and any modification of this program without prior written consent is
# expressly forbidden.  In all cases copyright and header must remain
# intact.
#
# Subscribe Me Lite is registered with the Library of Congress in the
# United States of America, and is copyrighted material.
#
# PROGRAM DESCRIPTION:
#
# This program is designed to assist users by creating an automatic
# customer/prospect mailing list that the customer/prospect can add or
# remove themselves from without the assistance of the webmaster.
# Subscribe Me has a built-in encrypted password protected form to allow 
# webmasters to mass mail their mailing list database with.
# 
# Please read the README file that comes with this program for complete
# installation and usage instructions, or visit http://www.cgiscriptcenter.com
# for posted instructions.
#
#################################################################
# VERSION HISTORY
#################################################################
# See README.txt file
#
#################################################################
# DO NOT EDIT BELOW PARAGRAPH
#################################################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
	else { $INPUT{$name} = $value; }
}

#$cgiurl = $ENV{'SCRIPT_NAME'};
################################################################
# DO NOT EDIT ABOVE PARAGRAPH
################################################################


###############################################################
################ Start Required Configurations ################

# Type the full path to your Mail program
$mailprog = '/var/qmail/bin/sendmail';

# Type the full path to your Subscribe Me directory
# We highly recommend a "non-web" directory.  This will protect
# your address list from snooping individuals.  If you are unsure
# if you have access to such a directory, contact your host to find out.
$memberinfo = "/path/to/subscribe/";

# Type the full path to your Administration Password directory
# We highly recommend a "non-web" directory.  This will protect
# your address list from snooping individuals.  If you are unsure
# if you have access to such a directory, contact your host to find out.
$passfile = "/path/to/subscribe/";

# Type your email address.  Make sure to place a \ in front of the @
# As an example:  cgi\@elitehost.com
$list_mail = "myemail\@mydomain.com";

# Type the name of your mailing list
$list_name = "My Company";

# Type your website URL (example: http://www.yoursite.com)
$websiteurl = "http://www.mydomain.com";

# If you are run the script and receive File Locking (flock)
# errors, remove the number 2 from between the quotes.
# Then it would appear: $LOCK_EX = "";
$LOCK_EX = "2";

# If you would like your mailings to have a closing message,
# create a text file called email.txt and upload it to the
# directory that you define below.  This message will be added
# to the end of your mailings.
$closing = "/path/to/subscribe/";

# Enter addresses that you would like to ban from signing up for
# your mailing list in the banned.txt.

$filename = "/path/to/banned.txt";
open (BANNED, "$filename") or die ("Couldn't open $filename: $!");
@banned_array=<BANNED>;
close(BANNED);

chomp(@banned_array);

# If you would like to send your mailings as HTML e-mail, place
# the number 1 between the quotes below, like so:
# $HTML = "1";
# If, however, you wish to send your mailings as Text only, leave
# the variable below as it is.
$HTML = "";


# If you would like to provide your subscriber's a way to unsubscribe
# from a link in your mailings, place the number 1 between the quotes
# below, like so:  $unsubscribelink = "1";

# If you do not wish to provide an unsubscribe link, leave the variable
# the way it is.
$unsubscribelink = "1";


################ End Required Configurations ################
#############################################################


##############################################################
########## Start Optional Customize Responses ################

# This is the subject of the "Blocked/Banned" Address
# response screen that your subscribers will receive,
# if you choose to use the "Address Blocking" feature.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$blocked_subject = "Unable to Process";
#$blocked_message = "We are unable to add your address: <B><E-MAIL></B> to our list at this time.";


# This is the subject of the "Already Listed" Address
# response screen that your subscribers will receive,
# if their address is already listed in your database.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$alreadylisted_subject = "Already Listed!";
#$alreadylisted_message = "Your e-mail address: <B><E-MAIL></B> is already listed in our database.";


# This is the subject of the "Already Added" Address
# response screen that your subscribers will receive,
# if their address is added to your database.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$addressadded_subject = "Success: Address Added";
#$addressadded_message = "Success!  Your e-mail address: <B><E-MAIL></B> has been added to our <LIST_NAME> Mailing List!";


# This is the subject of the "Address Removed" Address
# response screen that your subscribers will receive,
# when their address is removed from your database.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$addressremoved_subject = "Removed!";
#$addressremoved_message = "Your email address:  <B><E-MAIL></B> has been removed from our <LIST_NAME> Mailing List. We are sorry to see you go!";


# This is the subject of the "Address Not Found" Address
# response screen that your subscribers will receive,
# when their address is not found in your database.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$addressnotfound_subject = "Address Not Found!";
#$addressnotfound_message = "Your email address: <B><E-MAIL></B> was not found in our database. Please make sure you spelled the address properly and that you used the same email address that you created your account with";


# This is the subject of the "Improper Address" Address
# response screen that your subscribers will receive,
# when their address is not found in your database.
# To enable the customized responses, remove the # pound
# sybmol from before the variables below.

# If you choose not to use customized responses, Subscribe Me
# will issue its default responses.

#$improperaddress_subject = "Improper E-mail Address!";
#$improperaddress_message = "You have entered an improper email address. Please make sure your email address appears in this manner: username\@domain.com, or username\@domain.net, etc. !";


# E-mail Addition Response - Added to List
# At the end of each line, you'll see the \n, which stands for New Line.
# To wrap the text to the next line, you will want to use the \n symbols.
# Feel free to create as many lines as you need, as long as each line starts
# with:  $line1 .=
# and that each section is enclosed in quotations marks, and there is a
# semi-colon at the end of each line.

$added .= "Subject: You've Been Added!\n\n";
$added .= "This message is to confirm the addition of your\n";
$added .= "email address: <E-MAIL> to the <LIST_NAME>\n";
$added .= "Mailing List.\n\n";
$added .= "If you feel you have received this notice in error,\n";
$added .= "please visit the <LIST_NAME> Exotic Tropical Mailing List\n";
$added .= "at our website: <WEB_URL>\n";
$added .= "to remove yourself automatically.\n\n";
$added .= "Thank you,\n\n";
$added .= "<LIST_NAME>\n\n";


# E-mail Removal Response - Removed from List
# At the end of each line, you'll see the \n, which stands for New Line.
# To wrap the text to the next line, you will want to use the \n symbols.
# Feel free to create as many lines as you need, as long as each line starts
# with:  $line1 .=
# and that each section is enclosed in quotations marks, and there is a
# semi-colon at the end of each line.

$removed .= "Subject: You've Been Removed!\n\n";
$removed .= "This message is to confirm the removal of your\n";
$removed .= "email address: <E-MAIL> from the <LIST_NAME>\n";
$removed .= "Mailing List.\n\n";
$removed .= "We're sorry to see you go!\n\n";
$removed .= "If you change your mind, you may resubscribe\n";
$removed .= "at our website: <WEB_URL>\n";
$removed .= "Thank you,\n\n";
$removed .= "<LIST_NAME>\n\n";


$servername = $ENV{'SERVER_NAME'};
$cgiurl = $ENV{'SCRIPT_NAME'};

###############################################################
# DO NOT EDIT BELOW THIS LINE
###############################################################

$version = "2.02";

if ($ENV{'QUERY_STRING'}) {
$ENV{'QUERY_STRING'} =~ s/\.\.//g;
$ENV{'QUERY_STRING'} =~ s/\///g;
}


$imagetype = "gif";
$INPUT{'graphic'} = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'} eq 'sub3.gif';

if ($INPUT{'subscribe'} eq "subscribe") { &subscribe; }
elsif ($INPUT{'subscribe'} eq "unsubscribe")  {&unsubscribe; }
elsif ($INPUT{'mailing'}) {&mailing; }
elsif ($INPUT{'setpwd'}) {&setpwd; }
elsif ($INPUT{'enterpass'}) {&passcheck; }
elsif ($ENV{'QUERY_STRING'} eq 'sub3.gif') {&display_graphic; }
elsif ($ENV{'QUERY_STRING'} =~ /\@/) {&unsubscribe; }
elsif ($INPUT{'passcheck'}) {&passcheck; }
else {&form; }
exit;





# Define arrays for the day of the week and month of the year.           #
    @days   = ('Sunday','Monday','Tuesday','Wednesday',
	       'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
		 'August','September','October','November','December');

    # Get the current time and format the hour, minutes and seconds.  Add    #
    # 1900 to the year to get the full 4 digit year.                         #
    ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
    $year += 1900;

    # Format the date.                                                       #
    $date = "$days[$wday], $months[$mon] $mday, $year at $time";




########################################################
# Subroutine FIND - Will find member info and email it
########################################################

sub setpassword {
&header;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Set Password!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">You have not yet
          set your administration password! Please enter your password below,
          once to set the password and the second time to confirm it.</FONT></P>
        <CENTER>
        <TABLE BORDER="0">
          <TBODY>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">password</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd2"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">confirmation</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="CENTER"><BR>
            <INPUT TYPE="SUBMIT" NAME="setpwd" VALUE="  Set Password  "></TD>
            <TD><BR>
            <INPUT TYPE="RESET" NAME=""></TD>
          </TR></TBODY>
        </TABLE></CENTER></TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
&footer;
exit;

}

sub setpwd {

if (-e "$passfile/password.txt") {
print "Content-type: text/html\n\n";
print "Password already exists.  Please delete your password file manually if you want to reset your password<BR>";
exit;
}


print "Content-type: text/html\n\n";
unless ($INPUT{'pwd'} && $INPUT{'pwd2'}) {
&header;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please enter your
          password twice. Once to set it, and once to confirm it.</FONT></P>
        <CENTER>
        <TABLE BORDER="0">
          <TBODY>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">password</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd2"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">confirmation</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="CENTER"><BR>
            <INPUT TYPE="SUBMIT" NAME="setpwd" VALUE="  Set Password  "></TD>
            <TD><BR>
            <INPUT TYPE="RESET" NAME=""></TD>
          </TR></TBODY>
        </TABLE></CENTER></TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
&footer;
exit;
}
if ($INPUT{'pwd'} && $INPUT{'pwd2'}) {
    if ($INPUT{'pwd'} ne $INPUT{'pwd2'}) {

&header;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Mismatch!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">The confirmation
          password you entered did not match the orginal password. Please try
          again.</FONT></P>
        <CENTER>
        <TABLE BORDER="0">
          <TBODY>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">password</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd2"></TD>
            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">confirmation</FONT></TD>
          </TR>
          <TR>
            <TD ALIGN="CENTER"><BR>
            <INPUT TYPE="SUBMIT" NAME="setpwd" VALUE="  Set Password  "></TD>
            <TD><BR>
            <INPUT TYPE="RESET" NAME=""></TD>
          </TR></TBODY>
        </TABLE></CENTER></TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
&footer;
exit;


}
}

chop ($pwd) if ($pwd =~ /\n$/);
		$newpassword = crypt($INPUT{'pwd'}, aa);

open (PASSWORD, ">$passfile/password.txt")|| die &error('password.txt',$passfile,$!,'$passfile');
     
    if ($LOCK_EX){ 
      flock(PASSWORD, $LOCK_EX); #Locks the file
	}
      print PASSWORD "$newpassword";
	close (PASSWORD);
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Success!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your
          Administration password has been set! You will not be able to send
          mail without your password, so please write it down.</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">To mail to your
          Subscribe Me mailing list, use your <A HREF="$cgiurl">built-in form</A>.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
}


sub error {

$var1 = shift();
$var2 = shift();
$var3 = shift();
$var4 = shift();

&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P ALIGN="CENTER"><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status:<BR>
           Unable to create or edit file:  $var1</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your server
          responded: &quot;<B>$var3</B>&quot;.<BR>
           <BR>
           A response of &quot;<B>Permission Denied</B>&quot; means that either
          the path, <B>$var2</B> is incorrectly set in
          your configurations ($var4), or that you have not set high enough permissions
          on that directory.<BR>
          <BR><BR>
           A response of &quot;<B>No such file or directory</B>&quot; means that
          the path, <B>$var2</B> is incorrectly set in your configurations ($var4), or that
          you have not yet created the $passfile directory.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
}


sub subscribe {

&checkaddress;

open (DAT,"<$memberinfo/address.txt");
if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
	}
@database_array = <DAT>;
close(DAT);

        foreach $lines(@database_array) {
         chomp($lines);            


&parseemail;



foreach $blockedaddress(@banned_array) {
chomp($blockedaddress);
$blockedaddress =~ tr/A-Z/a-z/;

if (($blockedaddress =~ /\*\@/) || ($blockedaddress !~ /\@/)) {
$blockeddomain = $blockedaddress;
$blockeddomain =~ s/.*\@//;
}

 if (($email eq $blockedaddress) || ($blockeddomain eq $edomain)) {
 if ($blocked_subject) {
&response($blocked_subject,$blocked_message);
 } else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P ALIGN="CENTER"><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status:<BR>
           Unable to Subscribe</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your address: <B>$email</B>
          can not be added to our mailing list.<BR>
           <BR>
           Please contact our administration at <A HREF="mailto:$orgmail">$orgmail</A>
          for more information.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
}
exit;
       }
	}

if ($existing eq $email) {
         
# if ($lines =~ /$INPUT{'email'}/i) {

if ($alreadylisted_subject) {
&response($alreadylisted_subject,$alreadylisted_message);
 } else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Already Listed!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email
          address: <B>$INPUT{'email'}</B> is already in our database!</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you believe you
          are not receiving our intended mailings, please contact us at
          <A HREF="mailto:$list_mail">$list_mail</A> for assistance.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
}
exit;

 } 
 }
#      print "Content-type: text/html\n\n";
      open (DAT,">>$memberinfo/address.txt") || die &error('address.txt',$memberinfo,$!,'$memberinfo');
      if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
	}
         print DAT "$INPUT{'email'}\n" || die &error('address.txt',$memberinfo,$!,'$memberinfo');
              close (DAT);

if ($addressadded_subject) {
&response($addressadded_subject,$addressadded_message);
} else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Success!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email
          address: $INPUT{'email'} has been added to the $list_name Mailing
          List.</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If at any time you
          desire to be removed from our list, you may do so
          <A HREF="$websiteurl">at our website</A>. Please contact
          <A HREF="mailto:$list_mail">$list_mail</A> if you need any further
          assistance.</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
}


unless ($INPUT{'notify_subscriber'} eq "no") { 


$added =~ s/<E-MAIL>/$INPUT{'email'}/g;
$added =~ s/<LIST_NAME>/$list_name/g;
$added =~ s/<LIST_MAIL>/$list_mail/g;
$added =~ s/<WEB_URL>/$websiteurl/g;


open (MAIL, "|$mailprog -t -f \"$list_mail\" ") || print "Can't start mail program";

    print MAIL "To: $INPUT{'email'}\n";
    print MAIL "From: $list_mail\n";
    print MAIL "$added\n\n";
				  
    close (MAIL);
}

exit;
}

sub unsubscribe {

if (($ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ /\@/)) {
$INPUT{'email'} = $ENV{'QUERY_STRING'};
}

&checkaddress;

open (DAT,"<$memberinfo/address.txt");
if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
	}
@database_array = <DAT>;
close(DAT);
         foreach $lines(@database_array) {
         chomp($lines);
         &parseemail;


if ($existing eq $email) {

# if ($lines =~ /$INPUT{'email'}/i) {

if ($addressremoved_subject) {
&response($addressremoved_subject,$addressremoved_message);

 } else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Removed!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email
          address: $INPUT{'email'} has been removed from our database. We are
          sorry to see you go!</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If ever you desire
          to be re-added to our mailing list, you may do so
          <A HREF="$websiteurl">at our website</A>. Please contact
          <A HREF="mailto:$list_mail">$list_mail</A> for assistance.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
}



    
        
   open (DAT,">$memberinfo/address.txt");
       if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
	}
         foreach $lines(@database_array) {
         chomp($lines);

&parseemail;


if ($existing ne $email) {


#   if ($lines !~ /$INPUT{'email'}/i) {
       
              print DAT "$lines\n";
              
              }
}
              close (DAT);


unless ($INPUT{'notify_subscriber'} eq "no") { 

$removed =~ s/<E-MAIL>/$INPUT{'email'}/g;
$removed =~ s/<LIST_NAME>/$list_name/g;
$removed =~ s/<LIST_MAIL>/$list_mail/g;
$removed =~ s/<WEB_URL>/$websiteurl/g;

open (MAIL, "|$mailprog -t -f \"$list_mail\" ") || print "Can't start mail program";
    
    print MAIL "To: $INPUT{'email'}\n";
    print MAIL "From: $list_mail\n";
    print MAIL "$removed\n\n";
    close (MAIL);
}
exit;
}
}


if ($addressnotfound_subject) {
&response($addressnotfound_subject,$addressnotfound_message);
exit;
 } else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Not Found!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email
          address: $INPUT{'email'} was not found in our database. Please make
          sure you spelled the address properly and that you used the same email
          address that you created your account with.</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you need
          further assistance, please contact <A HREF="mailto:$list_mail">$list_mail</A>.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;

close (DAT);
exit;
 }     
}


sub form {

print "Content-type: text/html\n\n";


unless (-e "$passfile/password.txt") {

&setpassword;

}

&adminpass;

}


sub form2 {
&blindcheck;
open (DAT,"<$memberinfo/address.txt");
if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
	}
@database_array = <DAT>;
close(DAT);

$count_subscribers = @database_array;
$count_banned = @banned_array;

if ($count_subscribers == 1) {
$countline = "There is currently <B><FONT COLOR=\"#FF0000\">$count_subscribers</FONT></B> subscriber in your mailing list";
} else {
$countline = "There are currently <B><FONT COLOR=\"#FF0000\">$count_subscribers</FONT></B> subscribers in your mailing list";
}


if ($count_banned == 1) {
$countline2 = "There is currently <B><FONT COLOR=\"#FF0000\">$count_banned</FONT></B> banned address in your mailing list";
} else {
$countline2 = "There are currently <B><FONT COLOR=\"#FF0000\">$count_banned</FONT></B> banned addresses in your mailing list";
}


print "Content-type: text/html\n\n";
&header;
&header2;
print<<EOF;
<FORM ACTION="$cgiurl" METHOD="POST"><INPUT TYPE="HIDDEN" NAME="pwd" 
    VALUE="$INPUT{'pwd'}">
    <CENTER>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="Arial, Helvetica">$countline</FONT><BR>
EOF

if ($count_banned) {

print "<FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">$countline2</FONT><BR>";

}

print<<EOF;
         <BR>
        <TABLE BORDER="0">
          <TBODY>
          <TR>
            <TD VALIGN="RIGHT"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Subject:</B></FONT></TD>
            <TD VALIGN="RIGHT"><INPUT TYPE="TEXT" SIZE="40" NAME="mail_subject"></TD>
          </TR>
          <TR>
            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Administration
            Password:</B></FONT></TD>
            <TD VALIGN="TOP"><INPUT TYPE="PASSWORD" NAME="password"></TD>
          </TR></TBODY>
        </TABLE>
<TEXTAREA NAME="message" ROWS="12" COLS="80" WRAP="ON"></TEXTAREA><BR>
        <INPUT TYPE="SUBMIT" VALUE="  Send  " NAME="mailing"><INPUT TYPE="RESET" VALUE="  Start Over"  NAME="">
        </TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
    <FORM ACTION="$cgiurl" METHOD="POST"><INPUT TYPE="HIDDEN" NAME="pwd" 
    VALUE="$INPUT{'pwd'}">
    <CENTER>
    <TABLE BORDER="0">
      <TBODY>
      <TR>
        <TD ALIGN="CENTER"><HR SIZE="1" WIDTH="700"><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>Subscribe
        or Unsubscribe<BR>
         any addresses here</B></FONT>
        <CENTER><INPUT TYPE="TEXT" SIZE="25" NAME="email"></CENTER>
        <TABLE BORDER="0">
          <TBODY>
                <TR>
        <TD><INPUT TYPE="RADIO" NAME="subscribe" VALUE="subscribe" CHECKED="CHECKED" ALIGN="TOP"><FONT SIZE="-2" COLOR="#000000" FACE="verdana, arial, helvetica"><B>subscribe</B></FONT><BR>
        <INPUT TYPE="RADIO" NAME="subscribe" VALUE="unsubscribe" ALIGN="TOP">
        <FONT SIZE="-2" COLOR="#000000" FACE="verdana, arial, helvetica"><B>unsubscribe</B></FONT><BR>
        <INPUT TYPE="CHECKBOX" NAME="notify_subscriber" VALUE="no" CHECKED="CHECKED">
        <FONT SIZE="-2" COLOR="#000000" FACE="verdana, arial, helvetica"><B>Do NOT notify
        subscriber via e-mail</B></FONT></TD>
      </TR></TBODY>
        </TABLE>
        <CENTER><INPUT TYPE="SUBMIT" VALUE="  Submit  "><INPUT TYPE="RESET" VALUE="  Clear  "</CENTER> </TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
&footer2;
&footer;
exit;
}

sub mailing {
&blindcheck;
######################################
open (PASSWORD, "<$passfile/password.txt");
		$password = <PASSWORD>;
		close (PASSWORD);
		chop ($password) if ($password =~ /\n$/);


		if ($INPUT{'password'}) {
			$newpassword = crypt($INPUT{'password'}, aa);
		}
		else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please enter your
          password!</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
		}
		unless ($newpassword eq $password) {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Incorrect
          password! Please enter the correct password.</FONT></P></TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
		}

########################################



$pid = fork();
print "Content-type: text/html \n\n fork failed: $!" unless defined 

$pid;
if ($pid) {
	#parent
print "Content-type: text/html \n\n";
&header;	
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Mailing Success!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your mailing is
        now being sent to your Subscribe Me mailing list!</FONT></P>

        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Once your mailing is
        complete, you should receive an e-mail notification letting you know how
        many addresses that your mailing was sent to.</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Thank you for
          using Subscribe Me. Please let us know if there any improvements you
          would like us to consider for the next release of our program, at
          <A HREF="mailto:support\@cgiscriptcenter.com">support\@cgiscriptcenter.com</A>.</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
	exit(0);
	}
else {
	#child

	close (STDOUT);
##### SEND OUT EMAILS HERE ############
       
#&passcheck;

######### Here is where we did the addition ###################
###############################################################

# First, tell the script where to find your email text file
open (FILE,"$closing/email.txt"); #### Full path name from root.

# Now we read in the email text 
@closing  = <FILE>;

# Now that's its been read, we can close the text file
 close(FILE);

open (LIST,"<$memberinfo/address.txt");
 if ($LOCK_EX){ 
      flock(LIST, $LOCK_EX); #Locks the file
	}
 @database_array = <LIST>;
 close (LIST);
 $countaddresses = @database_array;
 @message = $INPUT{'message'};

foreach $lines(@database_array) {
chomp($lines);

open (MAIL, "|$mailprog -t -f \"$list_mail\" ") || print "Can't start mail program";
                  if ($HTML) {
                  print MAIL "Content-type:text/html\n";
                  }

			print MAIL "To: $lines\n";
		      print MAIL "From: $list_name <$list_mail>\n";
			print MAIL "Subject: $INPUT{'mail_subject'}\n\n";

                       foreach $messageline(@message) {
                       $messageline =~ s/\r//g;
                       print MAIL "$messageline";
                       }
			

                        #print MAIL "$INPUT{'message'}";  
				  
			# Now we tell the script to read each line from your email text file
# and paste it into your actual outgoing email.
                        
                        foreach $line(@closing) {
                        print MAIL "$line";
                        }

                        if ($unsubscribelink) {
                           if ($HTML) {
                           print MAIL "<BR><BR>";
                           print MAIL "-" x 75 . "<BR>";
                           print MAIL<<EOF; 
                           Click on the link below to be removed from the 
                           $list_name Mailing List.<BR><BR>
                           <A HREF="http://$servername$cgiurl?$lines">http://$servername$cgiurl?$lines</A><BR>
EOF
                           print MAIL "-" x 75 . "\n\n";
                           } else {

                           print MAIL "\n\n";
                           print MAIL "Click on the link below to be removed from the $list_name Mailing List.\n";
                           print MAIL "http://$servername$cgiurl?$lines\n\n";
}
}
  	                       print MAIL"\n\n";
 	                       close (MAIL);
}
}
&mailingcomplete($countaddresses);
exit;
}


sub mailingcomplete {

$_ = shift();

open (MAIL, "|$mailprog -t -f \"$list_mail\" ") || print "Can't start mail program";
    
    print MAIL "To: $list_mail\n";
    print MAIL "From: $list_mail\n";
    print MAIL "Subject: Mailing Complete!\n";
    print MAIL "Your Subscribe Me mailing to your $list_name Mailing List is now complete! \n\n";
    print MAIL "Your mailing was sent to: $_ email addresses.\n\n";

    close (MAIL);


}


sub checkaddress {

$INPUT{'email'} =~ s/\s//g;

unless ($INPUT{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(,)/
	  || $INPUT{'email'} !~
	  /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
	  {
         $legalemail = 1;
        } else {
         $legalemail = 0;
        }


if ($legalemail !~ 1) {


if ($improperaddress_subject) {
&response($improperaddress_subject,$improperaddress_message);
exit;
 } else {
print "Content-type: text/html\n\n";
&header;
print<<EOF; 
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Improper Email Address!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">You have entered
          an improper email address. Please make sure your email address appears
          in this manner: username\@domain.com, or username\@domain.net, etc. !</FONT></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you need extra
          assistance, please contact us at <A HREF="mailto:$list_mail">$list_mail</A>
          for assistance.</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
}

}
}

sub adminpass {
my $removebreak = 1;
&header;
&header2;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <INPUT TYPE="HIDDEN" NAME="enterpass" VALUE="1">
    <CENTER>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <CENTER><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Administration Password</FONT></B></CENTER>
        
       <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">The Administration
          section is restricted to authorized individuals only. Please enter the
          Administration password below.</FONT></P>
       <CENTER>
        <TABLE BORDER="0">
          <TBODY>
          <TR>
            <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Password</B></FONT><BR>
            <INPUT TYPE="PASSWORD" NAME="pwd"></TD>
          </TR>
          <TR>
            <TD ALIGN="CENTER"><BR>
            <INPUT TYPE="SUBMIT" NAME="passcheck" VALUE="  Enter Password  "><INPUT TYPE="RESET" NAME=""></TD>
          </TR></TBODY>
        </TABLE></CENTER> </TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>

EOF
&footer2;
&footer;
exit;
}

sub passcheck {

open (PASSWORD, "$passfile/password.txt");
           if ($LOCK_EX){ 
      flock(PASSWORD, $LOCK_EX); #Locks the file
	}
		$password = <PASSWORD>;
		close (PASSWORD);
		chop ($password) if ($password =~ /\n$/);


		if ($INPUT{'pwd'}) {
			$newpassword = crypt($INPUT{'pwd'}, aa);
		}
		else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please enter your
          password!</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
		}
		unless ($newpassword eq $password) {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Incorrect
          password! Please enter the correct password.</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;
exit;
		}
&form2;
}



sub response {

$var1 = shift();
$var2 = shift();

$var1 =~ s/<E-MAIL>/$email/g;
$var1 =~ s/<LIST_NAME>/$list_name/g;
$var2 =~ s/<E-MAIL>/$email/g;
$var2 =~ s/<LIST_NAME>/$list_name/g;

print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P ALIGN="CENTER"><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT> Status:<BR>
           $var1</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">$var2</FONT></P>
        </TD>
      </TR></TBODY>
    </TABLE></CENTER>
EOF
&footer;

}


sub header {
open (FILE,"<$memberinfo/default.header"); #### Full path name from root.
if ($LOCK_EX){ 
      flock(FILE, $LOCK_EX); #Locks the file
	} 
 @headerfile = <FILE>;
 close(FILE);
print "<HTML><HEAD><TITLE>$list_name Mailing List Manager</TITLE>
</HEAD><BODY TEXT=\"#000040\" LINK=\"#0000FF\" VLINK=\"#0000FF\" ALINK=\"#FF0000\">\n";
foreach $line(@headerfile) {
print "$line";
  }
}


sub footer {
open (FILE,"<$memberinfo/default.footer"); #### Full path name from root.
if ($LOCK_EX){ 
      flock(FILE, $LOCK_EX); #Locks the file
	} 
 @footerfile = <FILE>;
 close(FILE);
foreach $line(@footerfile) {
print "$line";

  }
}


sub blindcheck {
open (PASSWORD, "$passfile/password.txt");
           if ($LOCK_EX){ 
      flock(PASSWORD, $LOCK_EX); #Locks the file
	}
		$password = <PASSWORD>;
		close (PASSWORD);
		chop ($password) if ($password =~ /\n$/);

		if ($INPUT{'pwd'}) {
			$newpassword = crypt($INPUT{'pwd'}, aa);
		}
		else {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe
          Me</FONT>Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please enter your
          password!</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
&footer;
exit;
		}
		unless ($newpassword eq $password) {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
    <FORM ACTION="$cgiurl" METHOD="POST">
    <CENTER><BR>
    <TABLE BORDER="0" WIDTH="500">
      <TBODY>
      <TR>
        <TD>
        
        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe Me
          </FONT> Status: Password Error!</FONT></B></P>
        
        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Incorrect
          password! Please enter the correct password.</FONT></P> </TD>
      </TR></TBODY>
    </TABLE></CENTER></FORM>
EOF
exit;

}

}

sub footer2 {

print "<P>";
print "<BR>
           </P></TD>
      </TR>
    </TABLE></CENTER>
</BODY></HTML>";

}





sub header2 {
if (-e "$memberinfo/sub3.gif") {
print<<EOF;
<CENTER>
    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">
      <TR>
        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">
        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">
          <TR>
            <TD ALIGN="CENTER"><IMG SRC="$cgiurl?sub3.gif" 
    ALT="Subscribe Me logo" WIDTH="129" HEIGHT="77"></TD>
            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe
            Me Lite $version<BR>
             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">
            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/sharewarefaq/" TARGET="_blank">º Frequently
              Asked Questions</A></FONT><BR>
            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.subscribemepro.com/" TARGET="_blank">º Read about Subscribe Me Pro
             </A></FONT><BR>
        </TD>
      </TR>
    </TABLE><BR>
EOF

} else {
print<<EOF;
<CENTER>
    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">
      <TR>
        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">
        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">
          <TR>
            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe  
            Me Lite $version<BR>
             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">
            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/sharewarefaq/" TARGET="_blank">º Frequently
              Asked Questions</A></FONT><BR>
            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.subscribemepro.com/" TARGET="_blank">º Read about Subscribe Me Pro
             </A></FONT>
        </TD>
      </TR>
    </TABLE> <BR>
EOF
}
}

sub display_graphic {

if ($INPUT{'graphic'}) {

print "Content-type: image/$imagetype\n";
print "\n";
$file = "$memberinfo/$INPUT{'graphic'}";
open (IMAGE, "<$file") || die "Can't open $file: $!";
if ($os eq 'nt') {
binmode(IMAGE); ## If used on an NT server, remove the "#" at front.
binmode(STDOUT); ## If used on an NT server, remove the "#" at front.
}
while (<IMAGE>)
{
        print $_;
}
close(IMAGE);
# exit;
}
}






sub parseemail {

$email = $INPUT{'email'};
$existing = $lines;
$existing =~ tr/A-Z/a-z/;
$email =~ tr/A-Z/a-z/;
$edomain = $email;
$edomain =~ s/.*\@//;

}