[project @ 2002-11-17 22:45:15 by cjwatson]

[debbugs.git] / scripts / receive.in

diff --git a/scripts/receive.in b/scripts/receive.in
index c1d4cedea5e2e01d4438ff98fa4b2b1962f5d84c..2fe600fe55777adeb638edd3b4c3478028673179 100755 (executable)
--- a/scripts/receive.in
+++ b/scripts/receive.in
@@ -1,9 +1,16 @@
 #!/usr/bin/perl
-# $Id: receive.in,v 1.2 1999/09/02 22:27:29 gecko Exp $
+# $Id: receive.in,v 1.14 2002/11/17 22:45:16 cjwatson Exp $
 # usage: mail is piped directly into program
 
+#set umask in order to have group-writable incoming/*
+#umask(002);
+
 #load configuration file
-require( '/etc/debbugs/config' );
+$config_path = '/etc/debbugs';
+#$lib_path = '/usr/lib/debbugs';
+
+require "$config_path/config";
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 
 #set source of mail delivery
 #sets any prefix needed to get mailer to add it to error mail
@@ -21,7 +28,7 @@ if ( $gMailer eq 'exim' )
        s/\>//;
        s/\<//;
 }
-
+require("/etc/debbugs/text");
 
 #remove everything from @ to end of line
 s/\@.*$//;
@@ -30,16 +37,19 @@ s/\@.*$//;
 y/A-Z/a-z/;
 
 #set up to determine command
-%withnaddressmap= ('-submit',     'B',
+%withbugaddressmap= ('-submit',     'B',
                    '',            'B',
                    '-maintonly',  'M',
                    '-quiet',      'Q',
                    '-forwarded',  'F',
                    '-done',       'D',
                    '-close',      'D',
+                  '-request',    'R',
                    '-submitter',  'U');
 
-%withoutnaddressmap= ('submit',     'B',
+%withpkgaddressmap= ('-request',     'R');
+
+%withoutaddressmap= ('submit',     'B',
                       'bugs',       'B',
                       'maintonly',  'M',
                       'quiet',      'Q',
@@ -53,11 +63,15 @@ y/A-Z/a-z/;
 #determine command
 if (s/^(\d{1,9})\b//) {
     $bugnumber= $1;
-    $map= $withnaddressmap{$_};
+    $map= $withbugaddressmap{$_};
     $addrrec= "$bugnumber$_";
+} elsif (s/^(\w+)-//) {
+    $bugnumber= $1;
+    $map= $withpkgaddressmap{"-$_"};
+    $addrrec= "$bugnumber-$_";
 } else {
     $bugnumber= '';
-    $map= $withoutnaddressmap{$_};
+    $map= $withoutaddressmap{$_};
     $addrrec= "$_";
 }
 
@@ -84,7 +98,7 @@ $gBadEmailPrefix   http://$gWebDomain/
 $gBadEmailPrefix   http://$gWebDomain/Reporting.html
 $gBadEmailPrefix   http://$gWebDomain/Developer.html
 $gBadEmailPrefix   http://$gWebDomain/Access.html
-$gBadEmailPrefix $gTextInstructions
+$gTextInstructions
 $gBadEmailPrefix For details of how to access $gBug report logs by email:
 $gBadEmailPrefix   send \`request\@$gEmailDomain' the word \`help'
 $gBadEmailPrefix