disallow forwarded being set to a $gEmailDomain address

diff --git a/debian/changelog b/debian/changelog
index 3bb240c9f54f0cc8d5659dd0e839cfe79b88df5d..a673145705c0166bd797714f57ba3a4bdb4bd9f1 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -139,6 +139,8 @@ debbugs (2.4.2) UNRELEASED; urgency=low
       be archived. (closes: #153536)
     - my_url in pkgreport.cgi now returns the complete url (closes: #378566)
     - Document precisely how forwarded works (closes: #228049)
+    - Dissallow forwarded being set to a $gEmailDomain address
+      (closes: #397486)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100

diff --git a/scripts/process.in b/scripts/process.in
index 6569260f0514b5fa920433f71b75285c3411f582..bdeec7f72609d990e10b20ebc5023ee95eb99819 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -283,6 +283,10 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
         $receivedat= "forwarded\@$gEmailDomain";
         $markaswhat= 'forwarded';
         $set_forwarded= $header{'to'};
+       # Dissallow forwarded being set to this bug tracking system
+       if (defined $set_forwarded and $set_forwarded =~ /\Q$gEmailDomain\E/) {
+            undef $set_forwarded;
+       }
        if ( length( $gListDomain ) > 0 && length( $gForwardList ) > 0 ) {
            push @generalcc, "$gForwardList\@$gListDomain";
            $generalcc= "$gForwardList\@$gListDomain";