tickets - mode + removed type

Author: mickeyn

bin/tickets.pl

@@ -4,6 +4,7 @@
 
 use MetaCPAN::Logger qw< :log :dlog >;
 
+use Getopt::Long;
 use Ref::Util             qw< is_hashref is_ref >;
 use HTTP::Request::Common qw< GET >;
 use URI::Escape           qw< uri_escape >;
@@ -17,6 +18,15 @@
     ua
 >;
 
+# args
+my ( $mode );
+GetOptions(
+    "mode=s" => \$mode,
+);
+# TODO: find a better way
+my @es_mode = ( $mode ? (mode => $mode) : () );
+$mode and $mode eq 'test' and Log::Log4perl::init('log4perl_test.conf');
+
 # setup
 my $rt_summary_url //= 'https://rt.cpan.org/Public/bugs-per-dist.tsv';
 
@@ -30,7 +40,7 @@
 my $gh_graphql = Net::GitHub::V4->new(
     ( $gh_token ? ( access_token => $gh_token ) : () ) );
 
-my $es   = MetaCPAN::ES->new( index => "cpan", type => "distribution" );
+my $es   = MetaCPAN::ES->new( index => "distribution", @es_mode );
 my $bulk = $es->bulk();
 
 check_all_distributions();
@@ -43,7 +53,7 @@
 
 # make sure all distributions have an entry
 sub check_all_distributions () {
-    my $es_release     = MetaCPAN::ES->new( type => "release" );
+    my $es_release     = MetaCPAN::ES->new( index => "release", @es_mode );
     my $scroll_release = $es_release->scroll(
         body => {
             query => {
@@ -123,7 +133,7 @@ ($d)
 sub index_github_bugs () {
     log_debug {'Fetching GitHub issues'};
 
-    my $es_release     = MetaCPAN::ES->new( type => "release" );
+    my $es_release     = MetaCPAN::ES->new( index => "release", @es_mode );
     my $scroll_release = $es_release->scroll(
         body => {
             query => {