#!/usr/local/bin/perl -w
###########################################
# fs-search - full text search on index
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use Elasticsearch;

my $idx = "fs";

my( $query ) = @ARGV;
die "usage: $0 query" if !defined $query;

my $es = Elasticsearch->new( );

my $results = $es->search(
  index => $idx,
  body  => {
    query => {
      query_string => {
        query => $query } } }
);

for my $result ( 
    @{ $results->{ hits }->{ hits } } ) {

  print $result->{ _source }->{ file }, 
        "\n";
}