[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