summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjustdave%syndicomm.com <>2004-01-20 15:03:38 +0100
committerjustdave%syndicomm.com <>2004-01-20 15:03:38 +0100
commit9e2b80ff52b6c59ef5d03c7897ac45a80421e88e (patch)
tree98ffcd49a3fa6416fbacd4a7100048e3f1b100dc
parent7edaf38425ca7e3789b8b664fa287085273fdde1 (diff)
downloadbugzilla-9e2b80ff52b6c59ef5d03c7897ac45a80421e88e.tar.gz
bugzilla-9e2b80ff52b6c59ef5d03c7897ac45a80421e88e.tar.xz
Bug 36379: adds command-line switches for default product, component, and version to bug_email.pl
Patch by Ludovic Dubost <ludovic@pobox.xom> (no r= for contrib) a= justdave
-rwxr-xr-xcontrib/bug_email.pl32
1 files changed, 30 insertions, 2 deletions
diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl
index e26b9a68c..a8b89714d 100755
--- a/contrib/bug_email.pl
+++ b/contrib/bug_email.pl
@@ -21,6 +21,7 @@
# Gregor Fischer <fischer@suse.de>
# Klaas Freitag <freitag@suse.de>
# Seth Landsman <seth@dworkin.net>
+# Ludovic Dubost <ludovic@pobox.com>
###############################################################
# Bugzilla: Create a new bug via email
###############################################################
@@ -37,7 +38,7 @@
#
# You need to work with bug_email.pl the MIME::Parser installed.
#
-# $Id: bug_email.pl,v 1.17 2003/11/22 03:50:41 bbaetz%acm.org Exp $
+# $Id: bug_email.pl,v 1.18 2004/01/20 06:03:38 justdave%syndicomm.com Exp $
###############################################################
# 02/12/2000 (SML)
@@ -58,6 +59,16 @@
# any email submitted bug will be entered with a product of PENDING, if no other product is
# specified in the email.
+# 10/21/2003 (Ludovic)
+# - added $DEFAULT_VERSION, similar to product and component above
+# - added command line switches to override version, product, and component, so separate
+# email addresses can be used for different product/component/version combinations.
+# Example for procmail:
+# # Feed mail to stdin of bug_email.pl
+# :0 Ec
+# * !^Subject: .*[Bug .*]
+# RESULT=|(cd $BUGZILLA_HOME/contrib && ./bug_email.pl -p='Tier_3_Operations' -c='General' )
+
# Next round of revisions :
# - querying a bug over email
# - appending a bug over email
@@ -103,6 +114,7 @@ my $Message_ID;
# change to use default product / component functionality
my $DEFAULT_PRODUCT = "PENDING";
my $DEFAULT_COMPONENT = "PENDING";
+my $DEFAULT_VERSION = "unspecified";
###############################################################
# storeAttachments
@@ -673,6 +685,22 @@ sub extractControls( $ )
foreach( @ARGV ) {
$restricted = 1 if ( /-r/ );
$test = 1 if ( /-t/ );
+
+ if ( /-p=['"]?(.+)['"]?/ )
+ {
+ $DEFAULT_PRODUCT = $1;
+ }
+
+ if ( /-c=['"]?(.+)["']?/ )
+ {
+ $DEFAULT_COMPONENT = $1;
+ }
+
+ if ( /-v=['"]?(.+)["']?/ )
+ {
+ $DEFAULT_VERSION = $1;
+ }
+
}
#
@@ -928,7 +956,7 @@ CheckSystem( );
### Check values ...
# Version
-my $Version = "";
+my $Version = "$DEFAULT_VERSION";
$Version = CheckVersion( $Control{'product'}, $Control{'version'} ) if( defined( $Control{'version'}));
if ( $Version eq "" ) {
my $Text = "You did not send a value for the required key \@version!\n\n";