Mein Newsletter landet im Spam-Filter (und gehört dort definitiv nicht hin!) :-(

#!/usr/bin/perl
#
##############################################################################
#                                                                            #
#  Mailingliste 1.0                                                          #
#                                                                            #
#  Dieses Programm wird unendgeltlich und zur freien, unbeschränkten Nutzung #
#  unter Ausschluss jeglicher Haftung und Gewährleistung -sofern nicht       #
#  grobe Fahrlässigkeit oder Vorsatz durch den Anbieter vorliegt- angeboten. #
#                                                                            #
#  Jegliche angegebene Eigenschaften sind unverbindlich und ohne Gewähr.     #
#  Irrtümer und Änderungen vorbehalten.                                      #
#                                                                            #
##############################################################################
#
#
#################################################
##### VARIABLEN, DIE EDITIERT WERDEN KOENNEN #### 
#################################################


$mailprog = '/usr/lib/sendmail';
# Der Pfad zu Sendmail ist bereits für domainfactory Server angepasst
# Er muss nicht geändert werden


$admin_email="xxx\@gratis-zeitschriften-abonnieren.de";
#  Tragen Sie hier Ihre E-Mailadresse ein. Bitte achten Sie darauf, vor das vor dem @ ein \ stehen muss


$list_name="Abo-Bar.de";
#  Dies ist der Name Ihrer Mailingliste.


$adminpass="xxx";
#  Dieses Passwort benötigen Sie für die Administration Ihrer Mailingliste


$temp="1";
#  Wenn Sie diesen Wert auf "1" setzen, erhält jeder neue Teilnehmer eine Email,
#  bevor er in die Liste aufgenommen wird. Diese Email enthält einen Link, auf den
#  geklickt werden muss, bevor die Teilnahme aktiv wird.
#  Damit schützen Sie sich vor Leuten, die Emailadressen von Anderen eintragen
#  oder Ihre Mailingliste mit ungültigen Adressen (blah@gibtsnicht.de) belasten.


$remove_notice="1";
#  Aktivieren Sie diese Option, wenn sich Ihre Teilnehmer selbst aus der Liste 
#  austragen können sollen. Wert 1 = aktiviert, Wert 0 = deaktiviert
#  Ist die Option aktiviert, trägt jede Email an die Teilnehmer einen entsprechenden
#  Link.


$html = "0"; 
#  Wenn Sie Ihre Nachrichten als HTML versenden wollen, ändern Sie die Option
#  bitte auf "1". Bei "0" erfolgt der Versand als Text.


$file = "xxx.txt";
#  In dieser Datei werden alle Listenteilnehmer gespeichert.
#  Ändern Sie den Namen so ab, dass er von keinem erraten werden kann. 
#  Das Programm erstellt diese Datei mit dem gewählten Namen von selbst. Sie darf nicht gelöscht werden.
#  


$temp_file = "xxx.txt";
#  NUR AKTIV, WENN OBEN DIE OPTION temp AKTIV IST ("1")   
#  In dieser Datei werden die Emailadressen gespeichert, die noch auf 
#  Bestätigung warten. Der Dateiname sollte ebenfalls so gewählt werden,
#  dass er nicht zu erraten ist.
#  Das Programm erstellt diese Datei mit dem gewählten Namen bei Bedarf von selbst.
#  Bitte löschen Sie die Datei auf keinen Fall.


#################################################
##### AB HIER NICHTS MEHR ÄNDERN             #### 
#################################################


$sendto="0";
$lock = "2";
@bannedaddresses = ();
@months = ('Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
@days = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
($mday,$mon,$year,$wday) = (localtime(time))[3,4,5,6];
$year += 1900;	
$date = "$months[$mon] $mday, $year";


$url = $ENV{'SERVER_NAME'};
$script_url = $ENV{'SCRIPT_NAME'};


$|=1;
print "Content-type: text/html\n\n";
$|=0;


✓


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;
	$in{$name} = $value;
	}


if ($in{'action'} eq "Subscribe") {&subscribe}
if ($in{'action'} eq "Unsubscribe") {&unsubscribe}
if ($in{'action'} eq "with") {&subscribe}
if ($in{'action'} eq "without") {&subscribe}
if ($in{'action2'} eq "with") {&unsubscribe}
if ($in{'action2'} eq "without") {&unsubscribe}
if ($in{'action'} eq "Send") {&send}
if ($in{'action'} eq "Load") {&load}
if ($in{'adminpass'} ne "$adminpass") {&adminerror}
if ($in{'adminpass'} eq "$adminpass") {&adminform}


exit;


sub check
{
open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);


foreach $member(@addresses)
	{
	chomp($member);
	$in{'address'} = "$ENV{'QUERY_STRING'}";
	if ($in{'address'} eq $member){&unsubscribe}
	}

open(LIST,"$temp_file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);


foreach $tempmember(@addresses)
	{
	chomp($tempmember);
	@info = split(/::/, $tempmember);
	($in{'address'},$in{'number'})=split('&',$ENV{'QUERY_STRING'});
	if ($in{'number'} eq $info[0]){&subscribetemp}
	}	


if("admin" eq $ENV{'QUERY_STRING'}){
&admin
}	
}


sub subscribe
{
open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);
$in{'address'} =~ tr/[A-Z]/[a-z]/;
if ($in{'address'}!~ /.*\@.*\..*/){&bademail}


foreach $bannedaddress(@bannedaddresses)
	{
    if ($in{'address'} eq $bannedaddress){&banned_message}
	}


foreach $member(@addresses)
	{
	chomp($member);
	if ($in{'address'} eq $member){&already_subscribed}
	}

if ($in{'action'} eq "without") {
push (@addresses,$in{'address'});
open(LIST,">>$file");
if ($lock){ 
flock(LIST, $lock);
}
$in{'address'} =~ tr/[A-Z]/[a-z]/;
print LIST "$in{'address'}\n";
close(LIST);
$message="Die E-Mailadresse <font color=red>$in{'address'}</font> wurde erfolgreich gespeichert.";
&message;
exit;
}
if ($temp eq "1") {
push (@addresses,$in{'address'});
open(LIST,">>$temp_file");
if ($lock){ 
flock(LIST, $lock);
}
$in{'address'} =~ tr/[A-Z]/[a-z]/;
srand(time|$$);  
$RandomNumber        = int(rand(10000000));  
$Num  = "_$RandomNumber";  
$Num .= "_$$";  
$Num  =~ s/-//g;  
$Num  =~ s/_//g; 
$address = "$in{'address'}";
$number = "$Num";
$in{'number'} = "$number";
$temp_entry = $number . "::" .
	     $address . "::";	
print LIST "$temp_entry\n";
close(LIST);
$message="Die E-Mailadresse <font color=red>$in{'address'}</font> wurde temporär erfasst. Sie muss noch bestätigt werden. Bitte klicken Sie dazu auf den Link, der Ihnen soeben per E-Mail zugesandt wurde. (Gucken Sie evtl. auch in Ihren Spam-Filter.) ";
&mailtemp;
&message;
exit;
}
if ($temp eq "0") {
push (@addresses,$in{'address'});
open(LIST,">>$file");
if ($lock){ 
flock(LIST, $lock);
}
print LIST "$in{'address'}\n";
close(LIST);
$message="Die E-Mailadresse <font color=red>$in{'address'}</font> wurde erfolgreich gespeichert und der Abo-Bar-Mailingliste hinzugefügt.";
if ($in{'action'} ne "without") {
&mailadd;
}
&message;
exit;
}
}


sub subscribetemp
{
open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);
if ($in{'address'}!~ /.*\@.*\..*/){&bademail}


foreach $bannedaddress(@bannedaddresses)
	{
    if ($in{'address'} eq $bannedaddress){&banned_message}
	}


push (@addresses,$in{'address'});
open(LIST,">>$file");
if ($lock){ 
flock(LIST, $lock);
}
print LIST "$in{'address'}\n";
close(LIST);
$message="Vielen Dank, die E-Mailadresse  <font color=red>$in{'address'}</font> wurde bestätigt und der Abo-Bar-Mailingliste hinzugefügt.";
&mailadd;
&message;
&unsubscribetemp;
exit;
}


sub bademail
{
$message="Die angegebene E-Mailadresse scheint nicht zu stimmen. Bitte versuchen Sie es erneut.";&message;
exit;
}


sub banned_message
{
$message="Es tut uns leid, diese Adresse wurde vom Administrator gesperrt.";&message;
exit;
}


sub already_subscribed
{
$message="Die Adresse <font color=red>$in{'address'}</font> ist bereits in der Abo-Bar-Mailingliste vorhanden.";&message;
exit;
}


sub unsubscribe
{
open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);$x=0;
foreach $member(@addresses)
	{
	&clean;
	if ($in{'address'} eq $member){&deletemember}
	$x++;
	}
&not_found;
}


sub unsubscribetemp
{
open(LIST,"$temp_file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);$x=0;
foreach $member(@addresses)
	{
	@info = split(/::/, $member);
	&clean;
	if ($in{'address'} eq $info[1]){@addresses[$x]="";
open(LIST,">$temp_file");
if ($lock){ 
flock(LIST, $lock);
}
foreach $member(@addresses)
	{
	@info = split(/::/, $member);
	&clean;
	unless($member eq "")
		{print LIST "$member\n";}
	}}
	$x++;
	}
exit;
}


sub adminerror
{
$message="Das Passwort ist falsch. Bitte versuchen Sie es erneut.";&message;
exit;
}


sub admin
{
$message="<form action=mailing.cgi method=post>Passwort:  <input type=password name=adminpass><BR><BR><input type=submit value=Enter><input type=reset value=Clear></FORM>";&message;
exit;
}


sub clean
{
chomp($member);
$member=~ s/^\s+//;
$member=~ s/\s+$//;
}


sub not_found
{
$message="Die Adresse <font color=red>$in{'address'}</font> ist nicht in der Abo-Bar-Liste, weshalb sie nicht gelöscht werden kann.";&message;
exit;
}


sub deletemember
{
@addresses[$x]="";
open(LIST,">$file");
if ($lock){ 
flock(LIST, $lock);
}
foreach $member(@addresses)
	{
	&clean;
	unless($member eq "")
		{print LIST "$member\n";}
	}
$message="<font color=red>$in{'address'}</font> wurde erfolgreich gelöscht.";
if ($in{'action2'} ne "without") {
&mailun;
}
&message;
exit;
}


sub mailadd{
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $in{'address'}\n";
   print MAIL "Subject: Herzlich willkommen\n\n";
   print MAIL <<to_the_end;
Vielen Dank für die Bestellung des Abo-Bar-Newsletters. Ihre Adresse wurde gespeichert, und Sie werden in Zukunft (ca. 1 x pro Woche) über aktuelle Zeitschriften-Schnäppchen informiert.


Herzliche Grüße,
Ihre Abo-Bar.de




to_the_end


  close (MAIL);


if ($sendto eq "1") {
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $admin_email\n";
   print MAIL "Subject: Neuer Listenteilnehmer\n\n";
   print MAIL <<to_the_end;
$in{'address'} hat sich erfolgreich in Ihre Liste eingetragen.


to_the_end


  close (MAIL);
}
}


sub mailtemp{
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $in{'address'}\n";
   print MAIL "Subject: Bestätigungs-E-Mail\n\n";
   print MAIL <<to_the_end;
Dies ist eine Bestätigungsmail für den Newsletter von $list_name.  Bitte klicken Sie auf den folgenden Link, um in die Liste aufgenommen zu werden. Falls jemand Ihre E-Mailadresse missbraucht hat, müssen Sie nichts tun - wir werden Sie dann nicht erneut kontaktieren. 


[url]http://[/url]$url$script_url?$in{'address'}&$in{'number'}
(Sie können diese URL auch einfach per Copy and Paste in Ihren Browser übernehmen.)


Herzliche Grüße,
Ihre Abo-Bar.de


to_the_end


  close (MAIL); 
}


sub mailun{
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $in{'address'}\n";
   print MAIL "Subject: Unubscribe erfolgreich\n\n";
   print MAIL <<to_the_end;
Ihre E-Mailadresse wurde erfolgreich von $list_name gelöscht.


Grüße


Ihre Abo-Bar


to_the_end


  close (MAIL);


if ($sendto eq "1") {
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $admin_email\n";
   print MAIL "Subject: Gelöscht\n\n";
   print MAIL <<to_the_end;
$in{'address'} wurde von $list_name gelöscht.


to_the_end


  close (MAIL);
}
}


sub adminform
{


$number=0;
open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
print LIST "$number\n";
close(LIST);
$number = push(@addresses);


$number2=0;
open(TEMPLIST,"$temp_file");
if ($lock){ 
flock(TEMPLIST, $lock);
}
@tempaddresses=<TEMPLIST>;
print TEMPLIST "$number2\n";
close(TEMPLIST);
$number2 = push(@tempaddresses);


print "<html><title>$list_name</title><body bgcolor=white>
<center><pre>




</pre>
<table width=500>
<td align=center>
<font face=arial>
<font face=arial size=+1 color=blue><b>$list_name</b></font>
<br><br>
Derzeit befinden sich <font color=red>$number</font> Emailadressen in der Datenbank. <font color=red>$number2</font> Emailadressen warten noch auf Bestätigung.
<form action=mailing.cgi method=post><BR>Archive:  <select name=archives>";


open(LIST,"archives/log.txt");
if ($lock){ 
flock(LIST, $lock);
}
@entries=<LIST>;
close(LIST);
@entries = reverse(@entries);
foreach $entry(@entries)
	{
	print "<option>$entry\n";
	$x++;
	}


print "</select><input type=submit name=action value=Load></form><form action=mailing.cgi method=post>Titel:  <input type=text name=subject><BR><BR>Text:  <BR><textarea name=message rows=12 cols=50></textarea><BR><BR><input type=submit name=action value=Send><input type=reset value=Clear name=></FORM><BR><form action=mailing.cgi method=post><input type=text name=address> 
Emailadresse aufnehmen <input type=hidden name=action value=without>.</form>
<br><TABLE><TR><form action=mailing.cgi method=post>
<TD>Alle Emailadressen:<BR>
<select name=address size=6>";


@addresses = sort(@addresses);
foreach $member(@addresses)
{
print "<option>$member";
$x++;
}


print "</select><BR><CENTER>Teilnehmer löschen <input type=hidden name=action2 value=with> <input type=submit name=go value=OK>.</CENTER></TD></form></TR></TABLE>";
print "
</td>
</table>
</body></html>";
}


sub load
{


print "<html><title>$list_name</title><body bgcolor=white>
<center><pre>




</pre>
<table width=500>
<td align=center>
<font face=arial>
<font face=arial size=+1 color=blue><b>$list_name</b></font>
<br><br><form action=mailing.cgi method=post>Archives:  <select name=archives>";


open(LIST,"archives/log.txt");
if ($lock){ 
flock(LIST, $lock);
}
@entries=<LIST>;
close(LIST);
@entries = reverse(@entries);
foreach $entry(@entries)
	{
	print "<option>$entry\n";
	$x++;
	}


print "</select><input type=submit name=action value=Load></form><form action=mailing.cgi method=post>Subject:  <input type=text name=subject value=\"";


open(FILE,"archives/$in{'archives'}.txt");
while (<FILE>) {
  ($message, $subject) = split /::/;


if($subject ne "")
	{
		print "$subject\"";
	}
}
close(FILE);


print "><BR><BR>Message:  <BR><textarea name=message rows=12 cols=50>";


open(FILE,"archives/$in{'archives'}.txt");
while (<FILE>) {
  ($message, $subject) = split /::/;
print "$message";
}
close(FILE);


print "</textarea><BR><BR><input type=submit name=action value=Send><input type=reset value=Clear name=></FORM><A HREF=\"javascript:history.back()\">Zur&uuml;ck</A>";
print "</td>
</table>
</body></html>";
exit;
}


sub send
{
$pid = fork();
$pid;
if ($pid) {
&sendcomplete;
&archive;
exit(0);
}
else {
close (STDOUT);


open(LIST,"$file");
if ($lock){ 
flock(LIST, $lock);
}
@addresses=<LIST>;
close(LIST);


foreach $member(@addresses)
	{
	chomp($member);


open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   if ($html eq "1") {
   print MAIL "Content-type:text/html\n";
   }
   print MAIL "From: $admin_email\n";
   print MAIL "To: $member\n";
   print MAIL "Subject: $in{'subject'}\n\n";
   print MAIL "$in{'message'}\n\n";
   if ($remove_notice eq "1") {
   if ($html eq "1") {
   print MAIL <<to_the_end;
   <BR><BR>
---------------------------------------------------------------------<BR>
Klicken Sie auf den folgenden Link, wenn Sie den Newsletter abbestellen möchten: 
<BR>


<A HREF="http://$url$script_url?$member">[url]http://[/url]$url$script_url?$member</A><BR>
<BR>
---------------------------------------------------------------------
to_the_end
}
else {
print MAIL <<to_the_end;
---------------------------------------------------------------------
Klicken Sie auf den folgenden Link, wenn Sie den Newsletter abbestellen möchten: 


[url]http://[/url]$url$script_url?$member
---------------------------------------------------------------------
to_the_end
}
} 
   close (MAIL);
}
&confirmation;
exit;
}
}


sub archive
{
open(LIST, ">>archives/log.txt");
if ($lock){ 
flock(LIST, $lock);
}
print LIST "$date - $in{'subject'}\n";
close(LIST);


$message = "$in{'message'}";
$subject = "$in{'subject'}";
$new_entry = $message . "::" .
	     $subject;
open(FILE, ">>archives/$date - $in{'subject'}.txt");
if ($lock){ 
flock(FILE, $lock);
}
print FILE "$new_entry\n";
close(FILE);
}


sub sendcomplete
{
$message="Gratulation! Ihr Mailing wurde gestartet. Sie erhalten eine Email, sobald der Vorgang abgeschlossen ist.";
&message;
}


sub confirmation
{
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   if ($html eq "1") {
   print MAIL "Content-type:text/html\n";
   }
   print MAIL "From: $admin_email\n";
   print MAIL "To: $admin_email\n";
   print MAIL "Subject: Mailing versendet\n\n";
   if ($html eq "1") {
   print MAIL <<to_the_end;
Folgende Rundmail wurde erfolgreich versendet:<BR><BR>


$in{'message'}
to_the_end
   close (MAIL);
   }
   else {
   print MAIL <<to_the_end;
Folgende Rundmail wurde erfolgreich versendet:


$in{'message'}
to_the_end
   close (MAIL);
}
}


sub message
{
print qq~
<html><title>$list_name</title><body bgcolor=white>
<center><pre>




</pre>
<table width=500>
<td align=center>
<font face=arial>
<font face=arial size=+1 color=blue><b>$list_name</b></font>
<br><br>$message~;
if("admin" ne $ENV{'QUERY_STRING'}){
print "<BR><BR><A HREF=\"javascript:history.back()\">Zurück</A>"
}	
print "</td>
</table>
</body></html>";
}