From 8568de3f32f53126a4fd95fbcda746d5bdb6f671 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Thu, 27 May 2010 16:19:10 +0200
Subject: [PATCH] adding debug warnings

---
 sbin/newsletter-transport.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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