diff options
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/bug_email.pl | 7 | ||||
| -rw-r--r-- | contrib/sendbugmail.pl | 5 |
2 files changed, 7 insertions, 5 deletions
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(); } |