Ein universeller Codeschnipsel zum mailen
open (MAIL,"|$sendmailpfad -t");
print MAIL "To: $webmastermail\n";
print MAIL "From: $data{EMail} ($data{Name})\n";
print MAIL "Subject: Anfrage vom Feedbackformular\n\n";
print MAIL "Hallo,\n";
print MAIL "Eine Anfrage von ihrem Feedbackformular\n\n";
print MAIL "Mitteilungstext\n";
print MAIL "$data{message}\n";
close (MAIL);
Je nachdem wie Sie ihre Daten übernehmen können Sie natürlich auch schreiben:
open (MAIL,"|$sendmailpfad -t");
print MAIL "To: $webmastermail\n";
print MAIL "From: $email\n";
print MAIL "Subject: Anfrage vom Feedbackformular\n\n";
print MAIL "Hallo,\n";
print MAIL "Eine Anfrage von ihrem Feedbackformular\n\n";
print MAIL "Mitteilungstext\n";
print MAIL "$message\n";
close (MAIL);
Sie können auch so einen Mailschnipsel zum versenden benutzen ohne das Sie Daten aus einem Formular empfangen. Nützlich ist so etwas
wenn Sie das in Scripten verstecken und bei Zugriff darauf eine Mail versendem mit IP oder Useraktion.
open (MAIL,"|$sendmailpfad -t");
print MAIL "To: $webmastermail\n";
print MAIL "From: $webmastermail\n";
print MAIL "Subject: Programm xyz wurde benutzt!\n\n";
print MAIL "Hallo,\n";
print MAIL "Es wurde das Programm XYZ benutzt um $date\n\n";
print MAIL "von $ip\n";
print MAIL "Useraktionen: $aktionen\n";
close (MAIL);
Eine andere Möglicheit ist es den Mailtext in einen "Here" Abschnitt zu notieren.
# Mail an User
my $mailbody = <<MBT;
Hallo $usernameu,
Ihre Anfrage wurde erfolgreich gespeichert vom System.
Falls Sie ihre Daten ändern möchten besuchen Sie die Seite:
$cgiurl/user.pl
Sollten Sie einmal ihre Daten verlegt oder vergessen haben,
so koennen Sie diese unter dem Menuepunkt \"Services\" anfordern.
=====================================================
Ihre übermittelten Daten:
Name: $name
E-Mail: $email
Ort: $ort
=====================================================
Viele Gruesse
$adminname
$webseitentitel
MBT
Der Mailabschnitt:
open(MAIL,"|$sendmailpfad -t") or scripterror("Fehler: Kann Mailprogramm nicht oeffnen!",$!);
print MAIL "Return-Path:<$adminemail>\n";
print MAIL "To: $email ($name)\n";
print MAIL "From: $adminemail ($webseitentitel)\n";
print MAIL "Subject: Ihre Anfrage bei $webseitentitel\n\n";
print MAIL $mailbodyt;
print MAIL "\n\n";
close MAIL;
| 
