Mittels Perl von und nach Sendmail

[Frapl]

Folgende Problemstellung habe ich, die ich irgendwie nicht gelöst bekomme.

Ein Perl-Script wird von Sendmail aus bei Eingang auf einer bestimmten E-Mail Adresse gestartet und bekommt die eigegangene Mail übergeben. Dann veranstaltet das Perl-Script ein paar Dinge mit der Mail. Soweit kein Problem und funktioniert auch.

Aber es kann sein, dass das Perl-Script bei seiner Tätigkeit auf einen besonderen Umstand stößt und soll dann genau diese E-Mail samt aller möglicherweise vorhandenen Anhängen etc. an eine oder mehrere Mailadressen weiterleiten.

Ich habe also die eingegangene E-Mail komplett mit Header und allem drum und dran in einer Variablen drin und möchte diese über Sendmail (oder sonst wie) an einen oder mehrere Empfänger weiterversenden aber nur dann, wenn das Perl-Script sich entsprechend dafür entscheidet und auch die passenden Empfänger aus einer Datenbank gelesen bekommt (DB-Zugriff ist kein Problem).

Wie stelle ich das an?

Bisher habe ich mit folgenden Befehlen versucht die Mail zu versenden:

Code: Alles auswählen

open(MAIL, "|/usr/lib/sendmail -t");
print MAIL "To: $sendmail_to\n";
print MAIL "From: $sendmail_from\n";
print MAIL "Subject: $sendmail_subj\n\n";
print MAIL "$mail\n";
close(MAIL);

Irgendwie bekommt so der Original-Absender die Mail mit dem Anhang zurückgeschickt und die neuen Empfänger nur eine leere Mail.

[blackm]

Von den Web- und Mailservern weggeschoben.

by, Martin

[julien]

Zum Mail versenden ist es das einfachste, das Modul Mail::Sendmail zu benutzen. Findet sich im Paket libmail-sendmail-perl

[Frapl]

Kann ich mit dem Modul einfach sagen: Hallo Sendmail nimm mal diesen ganzen Text (Mail mit Header und Attachements) und schicke ihn an XXX?

Bleibt die Mail dann beim Empfänger lesbar und bleiben auch die Anhänge verwendbar?

Alles was ich bräuchte wäre sowas wie ein "Weiterleiten an..." Button für das Perl-Skript.

[nepos]

Lies dir doch mal die Doku zum Modul durch:

Code: Alles auswählen

man Mail::Sendmail
oder
perldoc Mail::Sendmail

[Frapl]

Habe nun extra das Mail::Sendmail Modul installiert, nur leider der selbe Effekt wie schon oben beschrieben.

Wenn ich z.B. folgendes mache

Code: Alles auswählen

    %mail = ( To      => 'my@mail.de',
              From    => 'my@mail.de',
              Message => $mailtxt
             );

    sendmail(%mail) or die $Mail::Sendmail::error;

und in $mailtext steht die gesamte Mail inkl. Header etc.,wie sie vom Sendmail an das Perlskript übergeben wurde, bekommt der ursprüngliche Absender der Mail die Mail komplett und unverändert zurück und der an dem die Mail weitergleitet werden solle (hier my@mail.de) nur eine leere Mail.

[nepos]

Hm und du bist dir sicher, dass der Fehler nicht eventuell an der Sendmail-Konfig liegt?
Was sagen denn die Logfiles dazu?
Eventuell findest du da, warum er die Mail so falsch zustellt.