hi leute,
ich habe folgendes skript:
#!/usr/bin/perl
$recipient = 'mmueller@phornet.de';
$attachedFile = "daten.zip";
&mailIt;
print "Content-type: text/html\n\n";
print "<html><body>Vielen Dank für Ihre Mühe!</body></html> \n";
sub mailIt
{
use MIME::Lite;
$mailprog = '/usr/lib/sendmail';
$object = MIME::Lite->new(
From =>'SERVER',
To =>"$recipient",
Subject =>'aktuelle AKZ-Tabelle',
Type =>'application/x-tar',
Encoding =>'base64',
Path =>"$attachedFile");
open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
$object->print (\*MAIL);
close MAIL;
}
welche mir eigentlich daten.zip als attachment schicken soll!
aber bei der zeile:
use MIME::Lite;
gibt es einen internal server error.
was kann ich tun?