From fa9b63f55b3118a30ff641d0e386266eb877e258 Mon Sep 17 00:00:00 2001 From: "mkanat%kerio.com" <> Date: Fri, 25 Feb 2005 07:42:47 +0000 Subject: Bug 283237: Move DBname_to_id out of globals.pl Patch By Max Kanat-Alexander r=wurblzap, a=myk --- contrib/bug_email.pl | 7 ++++--- contrib/sendbugmail.pl | 5 +++-- 2 files changed, 7 insertions(+), 5 deletions(-) (limited to 'contrib') diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl index 7fb6b533c..ed7e8143a 100755 --- a/contrib/bug_email.pl +++ b/contrib/bug_email.pl @@ -38,7 +38,7 @@ # # You need to work with bug_email.pl the MIME::Parser installed. # -# $Id: bug_email.pl,v 1.24 2005/02/18 16:01:48 mkanat%kerio.com Exp $ +# $Id: bug_email.pl,v 1.25 2005/02/24 23:42:48 mkanat%kerio.com Exp $ ############################################################### # 02/12/2000 (SML) @@ -94,6 +94,7 @@ use lib "."; use lib "../"; use Bugzilla::Constants; use Bugzilla::BugMail; +use Bugzilla::User; my @mailerrors = (); # Buffer for Errors in the mail my @mailwarnings = (); # Buffer for Warnings found in the mail @@ -920,7 +921,7 @@ $Control{'component'} = $Component; # otherwise, retrieve it from the database. if ( defined($Control{'assigned_to'}) && $Control{'assigned_to'} !~ /^\s*$/ ) { - $Control{'assigned_to'} = DBname_to_id($Control{'assigned_to'}); + $Control{'assigned_to'} = login_to_id($Control{'assigned_to'}); } else { SendSQL("select initialowner from components, products where " . " components.product_id=products.id AND products.name=" . @@ -940,7 +941,7 @@ if ( $Control{'assigned_to'} == 0 ) { } -$Control{'reporter'} = DBname_to_id($Control{'reporter'}); +$Control{'reporter'} = login_to_id($Control{'reporter'}); if ( ! $Control{'reporter'} ) { BugMailError( 1, "Could not resolve reporter !\n" ); } diff --git a/contrib/sendbugmail.pl b/contrib/sendbugmail.pl index 8e00ff49c..ad9642895 100644 --- a/contrib/sendbugmail.pl +++ b/contrib/sendbugmail.pl @@ -4,7 +4,7 @@ # # Nick Barnes, Ravenbrook Limited, 2004-04-01. # -# $Id: sendbugmail.pl,v 1.2 2004/11/20 12:35:17 jocuri%softhome.net Exp $ +# $Id: sendbugmail.pl,v 1.3 2005/02/24 23:42:48 mkanat%kerio.com Exp $ # # Bugzilla email script for Bugzilla 2.17.4 and later. Invoke this to send # bugmail for a bug which has been changed directly in the database. @@ -18,6 +18,7 @@ use lib qw(.); require "globals.pl"; use Bugzilla::BugMail; +use Bugzilla::User; sub usage { print STDERR "Usage: $0 bug_id user_email\n"; @@ -53,7 +54,7 @@ if ($changer !~ /$match/) { print STDERR "Changer \"$changer\" doesn't match email regular expression.\n"; usage(); } -if(!DBname_to_id($changer)) { +if(!login_to_id($changer)) { print STDERR "\"$changer\" is not a login ID.\n"; usage(); } -- cgit v1.2.3-24-g4f1b