infos24 JavaScript > JavaScript Beispiele

Home / Tutorials / Perl Beispiele / Bulke-mail

Bulk email / Newsletter Programm in Perl

Wie bekannt ist Spam email der Untergang des Abendlandes. Dass die rigide deutsche Gesetzgebung damit deutsche Internet Firmen massiv behindert, dass Bulk email ein sehr effizientes Kommunikationstool ist, so denn ausreichend qualifizierte email Adressen vorliegen, dass die Belastung der Entsorgung dieser mail geringer ist, als wenn irgendwelche Prospekte im Briefkasten landen, dass insgesamt die Kosten sinken, da der Werbeaufwand damit drastisch gesenkt werden kann etc. etc. spielt in der Diskussion keine Rolle mehr, sie scheint ideologisch festgefressen.

Zwischen verantwortungsvollem Einsatz dieses Kommunikationsmittels und versenden von reinem Schrott wird nicht mehr unterschieden. Zusätzlich haben Rechtsanwälte hier eine neue, lukrative Einnahmequelle entdeckt. Last not least sei noch erwähnt, dass es sich hierbei offensichtlich um ein spezifisch deutsches Phänomen handelt. In Deutschland ist die Beschwerdequote etwa 1 %. In Spanien, Südamerika, Italien etwa 0,1 %. (Getestet wurde mit jeweils 40 000 emails ).

Wenn man das Program aufruft, sieht das dann so aus. Hier clicken

1. Schritt

nach oben

Erstellen einer neuen Internetseite, in dem Sie diesen Quelltext als bulk.htm abspeichern. Dieser Skript speichert die eingegebenen Daten in einem Flatfile. Aus diesem Flatfile liest sie Perl wieder aus, sucht sich aus dem Datensatz die email Adresse raus und speichert sie.

<html><head><title>Newsletter mit Perl </title></head> <br> <body> <br> <form action=http://127.0.0.1/cgi-bin/bulkmail.pl><br> <input type=hidden name=modul value=suchen><br> <table><br> <tr><td colspan=2 align=middle><input type=submit value="Mitglieder der Liste zeigen"></td></tr><br> </table><br><br> </form><br> <form action=http://127.0.0.1/cgi-bin/bulkmail.pl><br> <input type=hidden name=modul value=verschicken><br> <table><br> <tr><td colspan=2 align=middle><input type=submit value="mails verschicken"></td></tr></table><br><br> </form><br> <form action=http://127.0.0.1/cgi-bin/bulkmail.pl><br> <input type=hidden name=modul value=erfassen><br> <table><br> <tr><td>Nachname</td><td><input type=text name=Nachname></td></tr><br> <tr><td>Vorname</td><td><input type=text name=Vorname></td></tr><br> <tr><td>Beruf</td><td><input type=text name=Beruf></td></tr><br> <tr><td>Telefon</td><td><input type=text name=Telefon></td></tr><br> <tr><td>email</td><td><input type=text name=mailaddi></td></tr><br> <tr><td colspan=2 align=middle><input type=submit value="erfassen"></td></tr><br> </table></form><br> </body></html>

2. Schritt

nach oben

Der dazu gehörige Perl Skript der im cgi-bin als (bulkmail.pl) abgespeichert wird sieht so aus:

#!usr/bin/perl print "Content-type:text/html\n\n"; $wurz="mails.txt"; if ($ENV{'REQUEST_METHOD'} eq "GET") { $frage=$ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read (STDIN,$frage,$ENV{'CONTENT_LENGTH'}); } @frage=split(/&/,$frage); foreach $i(0..$#frage) { @frage[$i]=~s/\+/ /g; ($key,$value)=split(/=/,$frage[$i],2); $key=~s/%(..)/pack("c",hex($1))/ge; $value=~s/%(..)/pack("c",hex($1))/ge; $value=~s/\n/ /g; $value=~s/\"/ /g; $Frage{$key}=$value; } if ($Frage{modul} eq erfassen) { open(mails,">>$wurz"); print mails "$Frage{Nachname}|&|$Frage{Vorname}|&|$Frage{Beruf}|&|$Frage{Telefon}|&|$Frage{mailaddi}\n"; close(mails) ; print "<html><head><title>Erfasst</title></head> <body>Die Adresse wurde erfasst und steht zum Emfang von emails bereit</body> </html>"; } if ($Frage{modul} eq suchen) { open(mails,"$wurz"); @adressen=<mails> ; close(mails) ; print "<html><head><title>Emailadressen</title></head><body>"; foreach $i(0..$#adressen) { ($Nachname,$Vorname,$Beruf,$Telefon,$mail)=split(/\|&\|/,@adressen[$i]); print "<table><tr> <td>$Nachname</td> <td>$Vorname</td> <td>$Beruf</td> <td>$Telefon</td> <td>$mail</td> </tr></table>"; } print "</body></html>"; } if ($Frage{modul} eq verschicken) { open(mails,"$wurz"); @adressen=<mails> ; close(mails) ; ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=gmtime(); $jahr=$year; $monat=$mon+1; $tag=$mday; $jahr=$year+1900; foreach $i(0..$#adressen) { ($Nachname,$Vorname,$Beruf,$Telefon,$mail)=split(/\|&\|/,@adressen[$i]); print "Email an $Vorname $Nachname verschickt<br>"; chomp($mail); $mailprog ='/usr/lib/sendmail'; open(getAB, "|$mailprog -t") || die "Can't open $mailprog!\n)"; print getAB "To: $mail\n"; print getAB "From: info\@tam-tam.de\n"; print getAB "Subject: Versicherungsscherz der infos24 GmbH. Inhalt belanglos. Lediglich ein Schulungsprogramm.\n"; print getAB "Date: $date\n"; print getAB "MIME-Version: 1.0\n"; print getAB "Content-Type: text/html\n"; print getAB "<html><body bgcolor=#0099cc>"; print getAB "<table bgcolor=blue>"; print getAB " <tr bgcolor=yellow><td colspan=2>Hi $Vorname $Nachname</td></tr>"; print getAB " <tr bgcolor=brown><td colspan=2> Heute ist der $tag.$monat.$jahr .</td></tr>"; print getAB "<tr bgcolor=gold> <td>$Beruf ist ein gefährlicher Beruf !! Sind Sie sich über die Gefahren im Klaren ? Sie sind nicht ausreichend versichert. Sie steuern auf die Katastrophe zu ! Aber keine Angst ! Wir, die Multamoneta AG versichern auch Sie !! Ja ! Sie haben richtig gelesen. Selbst Sie werden versichert ! Dieses Angebot können Sie nicht ablehnen. Wir werden Sie in den nächsten Tagen anrufen. Ihre Telefonnummer ist $Telefon. Gott sei dank haben Sie dieses email erhalten. Sie brauchen sich nun keine Sorgen mehr zu machen.<br> (<font size=2>Dieses Programm wurde von der infos24 GmbH zu Schulungszwecken entwickelt. Sollten Sie es nicht angefordert erhalten, bedauern wir dies und möchten uns hierfür entschuldigen. Bitte benachrichtigen Sie im Falle einer missbräuchlichen Nutzung <A Href=mailto:Andres_Ehmann\@infos24.de>Andres_Ehmann\@infos24.de</A> Wir werden das Programm dann aus dem Netz entfernen</font>)</td></tr>"; print getAB "</table></body> </html> "; close (getAB) ; } } if ($Frage{modul} eq loeschen) { unlink("$bildwurz/$bildweg"); print "<html><head><title>Datei geloescht</titl> </head><body>Die Datei mails.txt wurde gelöscht</body></html>"; }

Die Verwendung

nach oben

Der oben stehende Skript kann aber auch eingesetzt werden für Newsletter oder ähnliches, also für Dienste, bei denen die Zustimmung des Empfängers vorliegt. Jeder kann dazu eine Meinung haben, keiner soll sich beschweren, wenn Arbeitsplätze nicht entstehen, da gerade junge Unternehmen an den sonst immensen Werbekosten eingehen.

zu den JS Beispielen	nach oben	nächstes Kapitel