- added --with-result-index

- fixed debug output (use stderr)
- added pagination support
- added more descriptive result output for humans on stderr

lib/SLUB/LZA/TA/Command/search.pm

@@ -86,6 +86,7 @@ sub opt_spec {
         [ 'with-ldp-project' => 'also returns AIP ldp-project'],
         [ 'with-location' => 'also returns AIP location' ],
         [ 'with-path' => 'also returns AIP path' ],
+        [ 'with-result-index' => 'also returns result index' ],
         [ 'with-score' => 'also returns score of Elastic Search match (higher => better)' ],
         [ 'with-size' => 'also returns AIP size' ],
         [ 'with-slubarchiv-archivalvaluedescription|with-archival-value-description' => 'also returns AIP slubarchiv-archivalvaluedescription'],
@@ -215,6 +216,7 @@ sub find_aips_by_file_pronom_id {
             }
 
         },
+        "size" => 10000,
         "_source" => {
             "includes" => 'AIPUUID'
         }
@@ -257,9 +259,10 @@ sub execute {
     }
     if (exists $opt->{debug}) {
         use Data::Printer;
-        say "------------------------";
-        say "query=",np( $aips_query);
-        say "------------------------";
+        say STDERR "query:";
+        say STDERR "------------------------";
+        say STDERR np( $aips_query);
+        say STDERR "------------------------";
     }
     #p($aips_query);
     $aips_response = SLUB::LZA::TA::Archivematica::Elasticsearch::query_elasticsearch(
@@ -269,9 +272,20 @@ sub execute {
         'aips',      # indexname
         $aips_query, # query_hash ref
     );
+    #p($aips_response);
+
+    # print pagination to STDERR
+    my $all = $aips_response->{hits}->{total};
+    my $from = $opt->{startrecord} || 1;
+    my $to = $all > $opt->{maxrecords} ? $opt->{maxrecords} : $all;
 
+    my $idx = $from;
     my @result = map {
-        line_result_mapper($_, $opt);
+        my $tmp_new = line_result_mapper($_, $opt);
+        if (defined $opt->{with_result_index}) {
+            $tmp_new->{_idx} = $idx++;
+        }
+        $tmp_new;
     } @{$aips_response->{hits}->{hits}};
     my @headers = sort keys %{$result[0]};
     my $aip_only = List::Util::none {$_ =~ m/^with/} keys %{$opt};
@@ -283,7 +297,11 @@ sub execute {
             $opt->{output_format} = 'output_as_rsv';
         }
     }
-
+    say STDERR "found $all result" . ($all != 1 ? 's'  : '');
+    if ($all > 0) {
+        my $output_format_human = $opt->{output_format}; $output_format_human =~ s/_/ /g;
+        say STDERR "reporting results". ($from != $to ? " $from … $to " : " ")."$output_format_human";
+    }
     if ($opt->{output_format} eq 'output_as_csv') {
         binmode(STDOUT, ':encoding(UTF-8)');
         say join(",", @headers);