Report on who we sent GPG encrypted messages to.

diff --git a/merge.pl b/merge.pl
index ac89f1f376c758787da76f07eced73109b641b40..55b205ed8bea42d4dc1794dc4826f5ecf65027c6 100755 (executable)
--- a/merge.pl
+++ b/merge.pl
@@ -92,6 +92,7 @@ if ($tmplData->{'attachment_col'}) {
 }
 
 my @gpg_failed_addresses;
+my @gpg_succeeded_addresses;
 
 while (my $cols = $csv->getline_hr($IN) ) {
   last unless %$cols;
@@ -217,6 +218,7 @@ while (my $cols = $csv->getline_hr($IN) ) {
     }
 
     $mail->send('sendmail');
+    push @gpg_succeeded_addresses, @emails if defined $mg;
 
   } else {
     # Say who we want to send to.
@@ -228,8 +230,12 @@ while (my $cols = $csv->getline_hr($IN) ) {
 
 close $IN;
 
+if (scalar(@gpg_succeeded_addresses) > 0) {
+  print "Sent GPG encrypted messages to the following addresses:\n";
+  print "  ", join("\n  ", uniq(@gpg_succeeded_addresses)) . "\n\n";
+}
 if (scalar(@gpg_failed_addresses) > 0) {
-  print "Failed to send GPG encrypt messages to the following addresses:\n";
+  print "Failed to send GPG encrypted messages to the following addresses:\n";
   print "  ", join("\n  ", uniq(@gpg_failed_addresses)) . "\n\n";
 }