Twosteps FAQ

Folgendes Script kann zum Versenden einer Email per Perl (CGI) verwendet werden:

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);

#init
print "Content-type: text/html\n\n";

#definitions
my $Mailer = '/usr/sbin/sendmail';
my $Mail = "empfaenger@domain.tdl";
my $From = "absender@domain.tdl";
my $Subject = "Betreff";
my $Text = "Testmailtext";

open (MAIL, "|$Mailer $Mail") || die "Zugriff auf $Mailer nicht erlaubt\n";
print MAIL "From: $From\n";
print MAIL "Reply-To: $From\n";
print MAIL "To: $Mail\n";
print MAIL "Subject: $Subject\n\n";
print MAIL "$Text\n.";
close MAIL;