suggest - mode + removed type

Author: mickeyn

bin/suggest.pl

@@ -9,12 +9,16 @@
 use MetaCPAN::ES;
 
 # args
-my $all;
 my $days = 1;
+my ( $all, $mode );
 GetOptions(
     "all"    => \$all,
-    "days=i" => \$days
+    "days=i" => \$days,
+    "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');
 
 if ($all) {
     update_all();
@@ -60,7 +64,7 @@ ()
 }
 
 sub _update_slice ($range) {
-    my $es = MetaCPAN::ES->new( type => "file" );
+    my $es = MetaCPAN::ES->new( index => "file", @es_mode );
 
     my $files = $es->scroll(
         scroll => '5m',