[Rt-commit] r5821 - rt/branches/3.4-RELEASE/lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 29 13:07:03 2006
New Revision: 5821

Modified:
   rt/branches/3.4-RELEASE/lib/RT/Action/SendEmail.pm

Log:
* get rid of unint warnings
* make a log message shorter to be more readable

Modified: rt/branches/3.4-RELEASE/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.4-RELEASE/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.4-RELEASE/lib/RT/Action/SendEmail.pm	Tue Aug 29 13:07:03 2006
@@ -300,13 +300,12 @@
         }
     }
 
-    my $success =
-      ( $msgid
-      . " sent To: "
-      . $MIMEObj->head->get('To') . " Cc: "
-      . $MIMEObj->head->get('Cc') . " Bcc: "
-      . $MIMEObj->head->get('Bcc') );
-    $success =~ s/\n//gi;
+    my $success = "$msgid sent";
+    foreach (qw(To Cc Bcc)) {
+        next unless my $addresses = $MIMEObj->head->get($_);
+        $success .= " $_: ". $addresses;
+    }
+    $success =~ s/\n//g;
 
     $self->RecordOutgoingMailTransaction($MIMEObj) if ($RT::RecordOutgoingEmail);