From: Don Armstrong <don@volo>
Date: Thu, 13 Jul 2006 07:19:08 +0000 (-0700)
Subject:  * Don't lc() owner or forwarder at submit time
X-Git-Tag: release/2.6.0~585^2^2~98
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=236ac44188f3a696841ca8994db653b9d8efc41b;p=debbugs.git

 * Don't lc() owner or forwarder at submit time
 * Use the pseudoheader to set PR-Source when possible; make it
   capitalized also.
---

diff --git a/debian/changelog b/debian/changelog
index 9e1d2304..45a05aee 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -120,6 +120,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
     - Indicate which bugs are blocked after blocking (closes: #367496)
     - Obey package for usertags (closes: #376528)
     - Add link to subscribe to a bug (closes: #353260)
+    - Don't lc owner or forwarded at submit time (closes: #288384)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100
diff --git a/scripts/process.in b/scripts/process.in
index 74c5308c..88256cfc 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -150,7 +150,8 @@ for my $phline (@bodylines)
     $fv =~ s/\s*$//;
     print DEBUG ">$fn|$fv|\n";
     $fn = lc $fn;
-    $fv = lc $fv;
+    # Don't lc owner or forwarded
+    $fv = lc $fv unless $fh =~ /^(?:owner|forwarded)$/;
     $pheader{$fn} = $fv;
     print DEBUG ">$fn~$fv<\n";
 }
@@ -258,12 +259,12 @@ my $source_package = '';
 if (defined $pheader{source}) {
      $source_package = $pheader{source};
 }
-elsif (defined $data->{package}) {
+elsif (defined $data->{package} or defined $pheader{package}) {
      my $pkg_src = getpkgsrc();
-     $source_package = $pkg_src->{$data->{package}};
+     $source_package = $pkg_src->{defined $data->{package}?$data->{package}:$pheader{package}};
 }
-$source_pr_header = "X-$gProject-Pr-Source: $source_package\n"
-     if length $source_package;
+$source_pr_header = "X-$gProject-PR-Source: $source_package\n"
+     if defined $source_package and length $source_package;
 
 # Done and Forwarded Bugs
 if ($codeletter eq 'D' || $codeletter eq 'F')