blob: 18cec7da2ed602e279fb2d5777fc50a722044108 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw($RealBin);
use lib ($RealBin);
use Bugzilla;
use Search::Elasticsearch;
use Bugzilla::Elastic;
my $elastic = Bugzilla::Elastic->new(es_client => Search::Elasticsearch->new());
my $user = Bugzilla::User->check({name => 'dylan@mozilla.com'});
Bugzilla->set_user($user);
my $users;
for (1 .. 4) {
$users = $elastic->suggest_users($ARGV[0]);
}
print "$_->{name}\n" for @$users;
|
