From: doogie <>
Date: Thu, 16 Aug 2001 13:39:59 +0000 (-0800)
Subject: [project @ 2001-08-16 06:39:59 by doogie]
X-Git-Tag: release/2.6.0~1125
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1f4c3734477834c6a2cbe40a640eb93c629b5137;p=debbugs.git

[project @ 2001-08-16 06:39:59 by doogie]
Add preliminary support for ###-request, in the hopes that email
subscription support will soon follow.
---

diff --git a/scripts/receive.in b/scripts/receive.in
index d99664ba..4f27fc76 100755
--- a/scripts/receive.in
+++ b/scripts/receive.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: receive.in,v 1.9 2001/08/16 06:31:12 doogie Exp $
+# $Id: receive.in,v 1.10 2001/08/16 06:39:59 doogie Exp $
 # usage: mail is piped directly into program
 
 #set umask in order to have group-writable incoming/*
@@ -41,8 +41,11 @@ y/A-Z/a-z/;
 		   '-fixed',      'X',
                    '-done',       'D',
                    '-close',      'D',
+		   '-request',    'R',
                    '-submitter',  'U');
 
+%withpkgaddressmap= ('-request',     'R');
+
 %withoutaddressmap= ('submit',     'B',
                       'bugs',       'B',
                       'maintonly',  'M',
@@ -59,6 +62,10 @@ if (s/^(\d{1,9})\b//) {
     $bugnumber= $1;
     $map= $withbugaddressmap{$_};
     $addrrec= "$bugnumber$_";
+} elsif (s/^(\w+)-//) {
+    $bugnumber= $1;
+    $map= $withpkgaddressmap{"-$_"};
+    $addrrec= "$bugnumber-$_";
 } else {
     $bugnumber= '';
     $map= $withoutaddressmap{$_};