Opened by mark05 at 2019-04-26 13:46
User since
2010-01-05
129 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-01-05
129 Artikel
BenutzerIn
hi
eigentlich habe ich nix gross spezielles gemacht.
ich gehe mein logfile durch und lasse via Data::Report
einen HTML Tabelle/report erstellen.
das Ergebniss ist eine variable $msg.
Nun gehe ich nach Mail::SendEasy Dokumentation vor
https://metacpan.org/pod/Mail::SendEasy
das scheint dann bis zu einer bestimmten grösse der Variable zu Funktionieren .
letzten endlich habe ich nur den Mail::SendEasy teil ausgetauscht
zu MIME::Lite
und in den Tiefen von Mail::SendEasy rum zu debuggen hatte ich keine Zeit.
Holger
eigentlich habe ich nix gross spezielles gemacht.
ich gehe mein logfile durch und lasse via Data::Report
einen HTML Tabelle/report erstellen.
das Ergebniss ist eine variable $msg.
Nun gehe ich nach Mail::SendEasy Dokumentation vor
https://metacpan.org/pod/Mail::SendEasy
Code: (dl
)
1
2
3
4
5
6
7
my $status = $mail->send(
from => $self->{'smtpfrom'} ,
reply => $self->{'smtpto'} ,
to => $self->{'smtpto'} ,
subject => 'Job Report ' . $self->{'jobname'},
html => $msg,
) ;
das scheint dann bis zu einer bestimmten grösse der Variable zu Funktionieren .
letzten endlich habe ich nur den Mail::SendEasy teil ausgetauscht
zu MIME::Lite
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my $email = MIME::Lite->new(
From => $self->{'smtpfrom'},
To => $self->{'smtpto'},
Reply => $self->{'smtpto'},
Subject => 'Job Report ' . $self->{'jobname'},
Data => $msg,
);
$email->attr('content-type' => 'text/html');
$email->send('smtp',$self->{'smtpserver'}, Debug => $self->{'debug'}, );
und in den Tiefen von Mail::SendEasy rum zu debuggen hatte ich keine Zeit.
Holger