#!/usr/bin/perl -w
-# $Id: receive.in,v 1.8 2000/10/10 23:39:12 joy Exp $
+# $Id: receive.in,v 1.9 2001/08/16 06:31:12 doogie Exp $
# usage: mail is piped directly into program
#set umask in order to have group-writable incoming/*
y/A-Z/a-z/;
#set up to determine command
-%withnaddressmap= ('-submit', 'B',
+%withbugaddressmap= ('-submit', 'B',
'', 'B',
'-maintonly', 'M',
'-quiet', 'Q',
'-close', 'D',
'-submitter', 'U');
-%withoutnaddressmap= ('submit', 'B',
+%withoutaddressmap= ('submit', 'B',
'bugs', 'B',
'maintonly', 'M',
'quiet', 'Q',
#determine command
if (s/^(\d{1,9})\b//) {
$bugnumber= $1;
- $map= $withnaddressmap{$_};
+ $map= $withbugaddressmap{$_};
$addrrec= "$bugnumber$_";
} else {
$bugnumber= '';
- $map= $withoutnaddressmap{$_};
+ $map= $withoutaddressmap{$_};
$addrrec= "$_";
}