* 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 9e1d23045b726c70de9c959448d67bc7f5abd4fd..45a05aee7adfdfe56dcd73bba842100bee16a8cd 100644 (file)
--- 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 74c5308ca89b53c2414f353427294aa23e01f5ee..88256cfc87abda48219d7ad2c13f74f54c49b0c5 100755 (executable)
--- 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')