-#!/usr/bin/perl -w
-# $Id: receive.in,v 1.9 2001/08/16 06:31:12 doogie Exp $
+#!/usr/bin/perl
+# $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;
+#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
'-maintonly', 'M',
'-quiet', 'Q',
'-forwarded', 'F',
- '-fixed', 'X',
'-done', 'D',
'-close', 'D',
+ '-request', 'R',
'-submitter', 'U');
+%withpkgaddressmap= ('-request', 'R');
+
%withoutaddressmap= ('submit', 'B',
'bugs', 'B',
'maintonly', 'M',
$bugnumber= $1;
$map= $withbugaddressmap{$_};
$addrrec= "$bugnumber$_";
+} elsif (s/^(\w+)-//) {
+ $bugnumber= $1;
+ $map= $withpkgaddressmap{"-$_"};
+ $addrrec= "$bugnumber-$_";
} else {
$bugnumber= '';
$map= $withoutaddressmap{$_};