<?php

  // PHP-script - newslettersubscribe 	
	// rb@aspekt1.net  27.08.2003 21:38
	
 
if ($s=="d") {


	// deutscher text
		
	$textSubmit				= "absenden";
	$textUnSubscribe	= "Newsletter abbestellen";
	$textYourEmail		= "Ihre E-Mail Adresse";
	
	$message_tippfehler			="Tippfehler ?";
	$message_noEmail 				= "bitte geben Sie Ihre eMail-Adresse ein.";   
 	$message_notExistant 		= "die angegebene eMail-Adresse ist nicht in der Mailingliste vorhanden."; 	   
 	$message_doubleEmail		= "die angegebene eMail-Adresse ist bereits vorhanden."; 
	$message_fileError 			= "Fehler aufgetreten ! Ihre eMail konnte nicht eingetragen werden. Versuchen Sie es später nochmal."; 
 	
	$message_subscribed			= "Vielen Dank. Ihre eMail-Adresse wurde in die Mailingliste aufgenommen.";
 	$message_unSubscribed 	= "Ihre eMail-Adresse wurde aus der Mailingliste entfernt.";

	$message_mailRedaktion_subscribe 	= "subscribe BOOTLEG\n";
	$message_mailRedaktion_unsubscribe 	= "unsubscribe BOOTLEG\n";
	
	$urlSubscribe			= "../../newsletter/script/news_subscribe.php?s=d";
	$urlUnSubscribe		= "../../newsletter/script/news_subscribe.php?s=d&action=unsubscribe";
	
} else {
	
	
	// englischer text
		
	$textSubmit				= "submit";
	$textUnSubscribe	= "unsubscribe newsletter";
	$textYourEmail		= "your email";
	
	$message_tippfehler			="wrong type ?";
	$message_noEmail 				= "please enter your email";   
 	$message_notExistant 		= "email not found"; 	   
 	$message_doubleEmail		= "email already exists"; 
	$message_fileError 			= "error ! could not save your email. please try again later."; 
 	
	$message_subscribed			= "thank you. subscription successful";
 	$message_unSubscribed 	= "thank you. unsubscription successful";

	$message_mailRedaktion_subscribe 	= "subscribe BOOTLEG\n";
	$message_mailRedaktion_unsubscribe 	= "unsubscribe BOOTLEG\n";
	
	$urlSubscribe			= "../../newsletter/script/news_subscribe.php";
	$urlUnSubscribe		= "../../newsletter/script/news_subscribe.php?action=unsubscribe";
}


$dir							= "../emails/";
$mailinglist_file = $dir."Abonnenten.txt";

$redaktion = "mbader@gmx.de,markus.bader@natural-reality.de";
 

//----------------------------------------

function emailcheck($email_address) { 
    if ($email_address == "") { 
        return 'tippfehler'; 
    } else { 
        if (ereg("^[a-zA-Z0-9_.-]+@[a-zA-Z0-9_.-]+\.[a-zA-Z]+$", trim($email_address))) { 
            return 'ok'; 
        } else {             
            return 'tippfehler'; 
        } 
    } 
}
//----------------------------------------
 

if (isset($email)) {
	
  if (strlen($email)<100 && emailcheck($email)=="ok") {
	  	
	  	// unsubscribe                                                             
	  	if ($action=="unsubscribe") {
	  		
			 	// read mailinglistfile								
			 	if (is_file($mailinglist_file)) {
						$fp_read = fopen($mailinglist_file, "r");
						$filecontent = fread($fp_read, filesize($mailinglist_file));
					 	fclose($fp_read);
					 	
					 	// remove email						 					
					 	$array = split( "\n", $filecontent );
					 	$count = count($array); 	
						for ($i=0; $i<=$count; $i++)
						{
							if ($array[$i]=="$email") {
								$c = $i;
							}
						}
						
						if (!isset($c)) {
								$message = $message_notExistant;
						} else {
								array_splice ($array,$c,1);
								$filecontent = join ("\n",$array) ;			
							
							 	// update mailinglist								
								$fp_write = fopen($mailinglist_file, "w");
								fputs($fp_write, $filecontent."\n" );
							 	fclose($fp_write);
				
							
								// mail an redaktion 								
								$subject = $message_mailRedaktion_unsubscribe;
								$message = $message_mailRedaktion_unsubscribe . $email;
								mail( $redaktion, $subject, $message, "From:$email" );			
						
								$message=$message_unSubscribed;
						}	
				} else {
					$error[] = "Mailinglistfile not found: ".$mailinglist_file;
					$message=$message_fileError;
				}	  		
	  		
	  	} else {
	  			// subscribe                                                             

					if (!isset($dir)) mkdir($dir,0777);
					if (!isset($mailinglist_file)) {
						 $fp_read = fopen($mailinglist_file, "w");
						 fclose($fp_read);
		 			}
		 			
		 			$fp_read = fopen($mailinglist_file, "r");
					$emails = fread($fp_read, filesize($mailinglist_file));
					fclose($fp_read);
					
					if ( strpos( $emails, $email ) >-1 )
					{
					  $message=$message_doubleEmail;				  
					} else {		
					 	  // update mailinglist	
					 	  if (!is_file($mailinglist_file)) {
					 	 		$fp_write = fopen($mailinglist_file, "w");
					  		fclose($fp_write);
					  	}
					  	
					  	$fp_write = fopen($mailinglist_file, "a");
					  	if (filesize($mailinglist_file)>8) {
					  		fputs($fp_write, "\n".$email );
					  	} else {
					  		fputs($fp_write, $email );
					  	}
					 		fclose($fp_write);
							chmod ($mailinglist_file, 0777);
						
					
					  	// mail an redaktion 
					  	$subject = $message_mailRedaktion_subscribe;
					  	$message = $message_mailRedaktion_subscribe. $email;
					  	 
					  	mail( $redaktion, $subject, $message, "From:$email" );
					  	//$head="To: <$redaktion>\n" . "From: ".$fromname." <$from>\n" . "MIME-Version: 1.0\n" . "Content-type: text/html; charset=ISO-8859-1";
				
					  	$message=$message_subscribed;
					}
	    
	     } 
	  } else {
	  	$message=$message_tippfehler;
  	} 
}  else {
	$message=$message_noEmail;
}


$lang = ($s=="d")?"&s=d":"";


$output='		

<STYLE>
body,a,input {
	color: #000000;
	text-decoration : none;
	font-family: Arial, Helvetica, Verdana, sans-serif;
	font-size: 12px;
	font-weight : normal;
}

a:link  	{color :#999999;}
a:visited {color :#999999;}
a:active  {color : #000000;}
a:hover 	{color: #000000;}
input 		{color: #000000;}

</STYLE>

<SCRIPT language=JavaScript>
 function unsubscribe() {
 		emailobj=document.getElementById("email");
 		this.location.replace("'.$urlUnSubscribe.$lang.'&email="+emailobj.value);
 }
</SCRIPT>

<DIV> 
  <div id="Layer1" style="position:absolute; width:501px; height:180px; z-index:1; left: 0px; top: 0px;">
    <TABLE WIDTH="480" BORDER="0" CELLSPACING="0" CELLPADDING="0">
      <TR>
        <TD vAlign=top width=480 height=23> 
        <FORM name="emailform" action="'.$urlSubscribe.'" method="post">
            
          <TABLE cellSpacing=0 cellPadding=0 width=460 border=0>
            <TBODY>
              <TR> 
                <TD width=300> <INPUT id="email" name="email" type="text" size=55 value="'.$email.'"/> 
                </TD>
                <TD width=160><A href="#" onCLick=self.emailform.submit();>&nbsp;'.$textSubmit.'</A></TD>
              </TR>
            </TBODY>
          </TABLE>
          </FORM>
          </TD>
      </TR>
      <TR> 
        <TD VALIGN="top" WIDTH="480" HEIGHT="23"> <br>
          <FONT COLOR="#333333" SIZE="2">'.$message.'</FONT> <br>
          <BR> <BR> <A HREF="#" onCLick="unsubscribe();">'.$textUnSubscribe.'</A> 
        </TD>
        
      </TR>
    </TABLE>
  </div>
';
		
echo $output;

?>