suggest: ES syntax update for newer version

Author: mickeyn

bin/suggest.pl

@@ -64,33 +64,34 @@ ($range)
 
     my $files = $es->scroll(
         scroll => '5m',
-        fields => [qw< id documentation >],
         body   => {
             query => {
                 bool => {
                     must => [
                         { exists => { field => "documentation" } }, $range
                     ],
                 }
-            }
+            },
+            _source => [qw< id documentation >],
+            size => 500,
+            sort => '_doc',
         },
     );
 
     my $bulk = $es->bulk( timeout => '5m' );
 
     while ( my $file = $files->next ) {
-        my $documentation = $file->{fields}{documentation}[0];
+        my $documentation = $file->{_source}{documentation};
         my $weight        = 1000 - length($documentation);
         $weight = 0 if $weight < 0;
 
         $bulk->update( {
-            id  => $file->{fields}{id}[0],
+            id  => $file->{_id},
             doc => {
                 suggest => {
                     input   => [$documentation],
-                    payload => { doc_name => $documentation },
                     weight  => $weight,
-                }
+                },
             },
         } );
     }