infos24 JavaScript > JavaScript Beispiele Zugriff auf sendmail mit Perl

Home / Tutorials / Perl Beispiele / Sendmail mit Perl

Zugriff auf sendmail mit Perl

Praktisch jede komplexere Internetanwendung, schickt irgendwann einmal ein Mail an den User. Die Anwendungen dafür sind Legion. Bei einem Shop bekommt der User nach der Bestellung ein Bestätigungsmail, dass seine Bestellung eingegangen ist, bei einem Chat, wo man sich registrieren muss, schickt man dem user anschliessend sein Password, bei einer Auktion, werden die User über den Verlauf der Auktion informiert.

Bei einem newsletter lässt man einer geschlossenen Benutzergruppe Nachrichten zukommen, bei einer Datenbankanwendung kann man dem User UserId und Password zusenden, so er es denn vergessen hat, ein Provider kann Datenbankgetrieben seine Kunden auf neue Produkte hinweisen, eine Zeitung kann morgendlich druckfrisch in die email Box geschossen werden etc. etc. Mails kann man auf zwei unterschiedliche Arten verschicken. Normal, so wie es alle kennen, oder als HTML. Einfach ist weniger zum laden, HTML ist schicker. Manchmal, wie etwa bei einer vollständigen Zeitung, muss es HTML sein. Die folgende Anwendung zeigt erstmal den einfachen Fall

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

1. Schritt

nach oben

Das ist die HTML Seite dazu:

<html><head><title>Email verschicken</title></head><body> <form method=get action=http://62.26.119.216/cgi-bin/maili.pl> <table bgcolor=cococo> <tr><td colspan=2 align=middle bgcolor=yellow>Füllen Sie bitte dieses Formular aus </td></tr> <tr><td>Name</td><td><input type=text name=Fname size=20></td></tr> <tr><td>Vorname</td><td><input type=text name=Vname size=20></td></tr> <tr><td>Strasse</td><td><input type=text name=strasse size=20></td></tr> <tr><td>Plz Ort</td><td><input type=text name=plz size=6><input type=text name=ort size=13> <tr><td colspan=2 align=middle bgcolor=yellow>Telefon Fax email</td></tr> <tr><td>Telefon</td><td><input type=text name=telefon size=20></td></tr> <tr><td><font color=blue size=4>email</font></td><td><input type=text name=mail size=20></td></tr> <tr><td colspan=2 align=middle bgcolor=yellow> Kommentar</td></tr> <tr><td colspan=2 align=middle><textarea name=comment rows=5 cols=40></textarea></td></tr> <tr><td colspan=2 align=middle><input type=submit value="Daten uebergeben"></td></tr> </table> </form></center> </body></html>

2. Schritt

nach oben

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

#!/usr/bin/perl print "Content-type:text/html\n\n"; 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; $key=~s/\n/ /g; $value=~s/\n/ /g; $key=~s/\"/ /g; $value=~s/\"/ /g; $Frage{$key}=$value; } ############################################################## ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=gmtime(); $jahr=$year; $monat=$mon+1; $tag=$mday; $jahr=$year+1900; $mailprog ='/usr/lib/sendmail'; open(getAB, "|$mailprog -t") || die "Can't open $mailprog!\n)"; print getAB "To: $Frage{'mail'}\n"; print getAB "From: info\@tam-tam.de\n"; print getAB "Subject:Funktionniert. Da biste platt wa.\n\n"; print getAB "Hi Kollege, \n\n"; print getAB "Heute ist der $tag.$monat.$jahr .\n\n"; print getAB "Unten nochmal die Daten, die eingegeben wurden.\n"; print getAB "Name: $Frage{Fname}\n"; print getAB "Vorname:$Frage{Vname}\n"; print getAB "Telefon:$Frage{telefon}\n"; print getAB "Strasse:$Frage{strasse}\n"; print getAB "Plz Ort:$Frage{plz} $Frage{ort}\n"; print getAB "$Frage{comment}\n"; print getAB "Damit hat das wohl geklappt. Schönen Tach noch.\n"; close (getAB); ################## email wurde abgeschossen ####################### print "Das email wurde verschickt. Schau mal in deinem email account nach, ob es angekommen ist.";

Die Verwendung

nach oben

Siehe oben

zu den JS Beispielen	nach oben	nächstes Kapitel