UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding debug warnings

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-27 16:19:10 +02:00
parent 573813f5ee
commit 8568de3f32
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
sbin/newsletter-transport.pl
View file

@ -34,9 +34,11 @@ unless ( $configFile && $validCommand ) {
} }
else { else {
my $session = WebGUI::Session->open($webguiRoot,$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->log->warn( 'valid bounce address' );
my $email = WebGUI::Mailing::Email->new( $session, $session->id->fromHex( $mailId ) ); my $email = WebGUI::Mailing::Email->new( $session, $session->id->fromHex( $mailId ) );
if ($email) { if ($email) {
$session->log->warn( 'found email' );
my $dsr = Mail::DeliveryStatus::BounceParser->new( \*STDIN ); my $dsr = Mail::DeliveryStatus::BounceParser->new( \*STDIN );
my $report = ( $dsr->reports )[0]; my $report = ( $dsr->reports )[0];
@ -44,6 +46,7 @@ else {
my $message = $report->get( 'reason' ); my $message = $report->get( 'reason' );
$message =~ s{\s+}{ }g; $message =~ s{\s+}{ }g;
$session->log->warn( 'about to register as bounced' );
$email->registerBounced( $reason, $message ); $email->registerBounced( $reason, $message );
} }
else { else {