nicht angemeldet
hi,
ich versuche gerade mit meinem cgi-programm eine txt-datei als attachment in einer email anzuhängen.
aber irgendwie will das nicht so recht. ich kriege zwar eine mail, aber es ist kein anhang dabei, nur am ende der mail steht der inhalt der datei. kann mir bitte jemand helfen.
so sieht mein quelltext aus:
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Lite;
my $msg = new MIME::Lite;
my $sendmail = "/usr/sbin/sendmail";
my $from = "email@email.de";
my $to = "email@email.de";
my @mail = "<p><font size=4>Hallo</font></p>";
open(MAIL, "|$sendmail -t") or die $!;
$msg = MIME::Lite->new( From => $from,
To => $to,
Subject => "ANHANG",
Type => "text/html",
Data => @mail );
$msg->attach( Type => "text/plain",
Path => "../test/datei.txt",
Encoding => "base64",
Filename => "datei.txt" );
$msg->send;
close(MAIL);
print "Content-type: text/html\n\n";
print "<html><head></head><body>\n";
print "Mail wurde abgeschickt\n";
print "</body></html>\n";