From 50fc9d77128db4f8565265047166c6ef61bac5c5 Mon Sep 17 00:00:00 2001
From: Dylan William Hardison <dylan@hardison.net>
Date: Tue, 7 Mar 2017 17:47:36 -0500
Subject: Bug 1307485 - Add code to run a subset of buglist.cgi search queries
 against the ES backend

---
 scripts/search.pl       | 13 +++++++++++++
 scripts/suggest-user.pl | 20 ++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 scripts/search.pl
 create mode 100644 scripts/suggest-user.pl

(limited to 'scripts')

diff --git a/scripts/search.pl b/scripts/search.pl
new file mode 100644
index 000000000..6e0f7245d
--- /dev/null
+++ b/scripts/search.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Bugzilla;
+use JSON '-convert_blessed_universally';
+
+print JSON->new->pretty->encode(
+    Bugzilla::Elastic::Search->new(
+        quicksearch => "@ARGV",
+        fields => ['bug_id', 'short_desc'],
+        order => ['bug_id'],
+    )->es_query
+);
diff --git a/scripts/suggest-user.pl b/scripts/suggest-user.pl
new file mode 100644
index 000000000..dcf24da87
--- /dev/null
+++ b/scripts/suggest-user.pl
@@ -0,0 +1,20 @@
+#!/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;
-- 
cgit v1.2.3-24-g4f1b