How can I authenticate when using the Bugzilla Perl API in a script?

Question

Working from the Bugzilla API, I\'ve written a quick Perl script to clone a Bugzilla Product (recreating all the Components under their new Product). The Bugzilla Perl API i

Answer 1

The following code snippet might enter the question. Here we check also that the user has the correct "editcomponents" credential.

my $user = new Bugzilla::User({ name => $login })
  || ThrowUserError('invalid_username', { name => $login });


# Authenticate using this user account.
Bugzilla->set_user($user);
$user->in_group('editcomponents')
      || ThrowUserError("auth_failure", {group  => "editcomponents",
                                         action => "add",
                                         object => "products"});