#!/bin/blog

Mime::Lite ist wohl die bequemste Möglichkeit, um aus Perl-Scripts heraus einigermaßen ordentlich MIME-codierte Mails mit Anhang zu versenden.

#!/usr/bin/perl -w
use strict;
use diagnostics;
use MIME::Lite;
use File::Basename;

my $absender    = 'Alice <alice@thisdomain.invalid>';
my $empfaenger  = 'Bob <bob@otherdomain.invalid>';
my $datei       = "/home/alice/info.pdf";
my $smtphost    = "127.0.0.1 25";
my $betreff     = "Demo Dateianhang";

my $anschreiben = <<EOF;
Sehr geehrte Damen und Herren,

anbei die gewünschten Informationen.
EOF

MIME::Lite->send('smtp', $smtphost, Timeout=>5);

my $msg = MIME::Lite->new(
        From            => $absender,
        To              => $empfaenger,
        Subject         => $betreff,
        Type            => 'multipart/mixed'
        );

$msg->attach(
        Type            => 'TEXT',
        Data            => $anschreiben
        );

$msg->attach(
        Type            => 'AUTO',
        Path            => $datei,
        Filename        => basename($datei),
        Disposition     => 'attachment'
        );

$msg->send();

Um eine Mail direkt über den lokalen MTA z.B. per sendmail oder qmail-inject einzuqueuen, würde man MIME::Lite wie folgt konfigurieren:

 
MIME::Lite->send('sendmail', "/usr/lib/sendmail -t -oi "); (Postfix)
MIME::Lite->send('sendmail', "/var/qmail/bin/qmail-inject -f $absender $emfpaenger"); (Qmail)

 
Fehler beim Versand kann man am Rückgabewert der send()-Methode erkennen.

#!/usr/bin/perl -w
require 5.000;
use strict;

# Test if this System can handle MD5 Passwords

my $testpw = '$1$oTg0Hgpx$lI1RZ2NHlP2TBv21ntM0h/';     # "foo"

print STDERR "Checking for MD5 password compatibility... ";

if ($testpw eq (crypt('foo', $testpw))){
        print STDERR "Yes.\n";
        exit 0;
}else{
        print STDERR "No.\n";
        exit 1;
}

Wenn man sich näher an die Frage der Datumsberechnung heranwagt (siehe auch meinen früheren sehr einfach gestrickten Beitrag zum Thema) merkt man, daß man sich auf einem gut erforschten, aber nicht gerade leicht verdaulichen Gebiet bewegt.
(more…)

Wie man Perlmodule als User installiert, wird in der CPAN-FAQ beschrieben:

http://www.perl.com/CPAN-local/misc/cpan-faq.html#How_install_private

In aller Kürze sieht das wie folgt aus:
perl Makefile.PL LIB=/home/martin/lib PREFIX=/home/martin/lib

Und dann natürlich
use lib qw(/home/martin/lib);
im Script selbst nicht vergessen!

Will man als User ein Modul installieren, das seinerseits auf einem solchen lokal installierten Modul aufbaut:
export PERL5LIB=/home/martin/lib (o.ä., je nach verwendeter Shell)
perl Makefile.PL LIB=/home/martin/lib PREFIX=/home/martin/lib