Opened by testdemo at 2005-03-29 18:11
User since
2005-03-29
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-03-29
3 Artikel
BenutzerIn
Code:
Sobald aber ne MIME E-Mail kommmt kann Mail:audit den Body nicht mehr parsen steht auch offiziell da
Zitat:
Mail::Audit groks MIME; when appropriate, it subclasses MIME::Entity. Read the MIME::Tools man page for details.
http://search.cpan.org/~simon/Mail-Audit-2.1/Audit.pm
Den Code den ich als erstes gepostet habe war der versuch den Body mit Hilfe von MIME
::Parser rauszufischen und zu verändern das hat auch funktioniert jedoch
kann ich nicht den Wert wieder auf die Body Reference auf ein Array von Mail Audit überschreiben @{$mail->body} = @linevs;
Ich weiß jetzt nicht wie ich verfahren soll (Perl neuling) vielleicht is das super einfach aber ich hab leider keine Ideen mehr
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use Mail::Audit;
my $mail = Mail::Audit->new;
my $orginalto = $mail->to();
my @newto = split (/@/, $orginalto);
unshift (@{$mail->body}, "$newto[0]\n");
$mail->resend("NAME\@DOMAIN");
Sobald aber ne MIME E-Mail kommmt kann Mail:audit den Body nicht mehr parsen steht auch offiziell da
Zitat:
Mail::Audit groks MIME; when appropriate, it subclasses MIME::Entity. Read the MIME::Tools man page for details.
http://search.cpan.org/~simon/Mail-Audit-2.1/Audit.pm
Den Code den ich als erstes gepostet habe war der versuch den Body mit Hilfe von MIME
::Parser rauszufischen und zu verändern das hat auch funktioniert jedoch
kann ich nicht den Wert wieder auf die Body Reference auf ein Array von Mail Audit überschreiben @{$mail->body} = @linevs;
Ich weiß jetzt nicht wie ich verfahren soll (Perl neuling) vielleicht is das super einfach aber ich hab leider keine Ideen mehr