[Vienna-pm] MIME::Lite
Gooly
gooly at gmx.at
Wed Mar 3 07:00:39 CST 2004
hallo,
hab gerade ein Perl Prg geschrieben, dass ebay-spoofs (nach 3 tagen bereits
das 6. erhalten) automatisch an spoof at ebay.de weiterleiten soll, da normales
weiterleiten den header verstümmelt.
Jetzt werden aber Teile der email mehrfach geschrieben - ich weiß nicht warum
und was dagagen tun?
Aus Kmail mit Filter 'durch Programm leiten'
werden dann folgende Zeilen abgearbeitet:
#!/usr/bin/perl
use MIME::Lite;
MIME::Lite->send('smtp', 'mgate.chello.at', Timeout=>5);
use File::Temp qw/ :POSIX /;
my $tmp = tmpnam();
open(F, "> $tmp");
foreach (<STDIN>) {
print F $_;
}
close(F);
$msg = MIME::Lite->new(
From =>'gooly at gmx.at',
To =>'spoof at ebay.de',
Subject =>'noch\'n ebay-Spoof',
Type =>'multipart/mixed' # || text/plain || text/html
);
### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type =>'text/plain',
Data =>"Sehr Geehrte,\n\nwieder habe ich einen ebay-spoof erhalten ..
\n\n MfG\nC.A. Schreiber\n\nPS: Forwarded by ebaySpoof.pl (Perl)\n\n\n"
);
$msg->attach( Type =>'text/plain',
Path =>$tmp,
Encoding =>'base64',
Filename =>'spoof.txt'
);
## send:
$msg->send();
#delete tmp-File
unlink $tmp;
More information about the Vienna-pm
mailing list