add cc all mails to addr config

This address gets all messages; this probably won't get used, but I wrote the
code.

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index 3bcfdfc70e37d7f376e91a65a052e30915859cbb..454db3553098b136db67cd8ecb4708efb9c20ba8 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -213,6 +213,15 @@ Domain where subscriptions to package lists happen
 set_default(\%config,'subscription_domain',undef);
 
 
+=item cc_all_mails_to_addr $gCcAllMailsToAddr
+
+Address to Cc (well, Bcc) all e-mails to
+
+=cut
+
+set_default(\%config,'cc_all_mails_to_addr',undef);
+
+
 =item cve_tracker $gCVETracker
 
 URI to CVE security tracker; in bugreport.cgi, CVE-2001-0002 becomes

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index fe99f2515f8f9eda415526a224c134cfe6660e1a..29b92f72a343d3626126205aad4b3de17b4df14f 100644 (file)
--- a/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@ -181,6 +181,16 @@ sub add_recipients {
                       bug_num    => $param{data}{bug_num},
                       type       => 'bcc',
                      );
+      }
+     if (defined $config{cc_all_mails_to_addr} and
+        length $config{cc_all_mails_to_addr}
+       ) {
+        _add_address(recipients => $param{recipients},
+                     address    => $config{cc_all_mails_to},
+                     reason     => "cc_all_mails_to",
+                     bug_num    => $param{data}{bug_num},
+                     type       => 'bcc',
+                    );
      }
 
      if (length $param{data}{owner}) {