39 lines
1.0 KiB
Perl
39 lines
1.0 KiB
Perl
package BurguillosInfo::Controller::Search;
|
|
|
|
use v5.34.1;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
use Mojo::Base 'Mojolicious::Controller', '-signatures';
|
|
use Mojo::UserAgent;
|
|
|
|
sub search ($self) {
|
|
my $ua = Mojo::UserAgent->new;
|
|
my $query = $self->param('q');
|
|
my $config = $self->config;
|
|
my $search_backend = $config->{search_backend};
|
|
my $search_index = $config->{search_index};
|
|
my $tx = $ua->get( $search_backend . '/search/' . $search_index,
|
|
{}, form => { q => $query } );
|
|
my $result = $tx->result;
|
|
my $output = $result->json;
|
|
|
|
if ( !defined $output ) {
|
|
return $self->render( status => 500, json => { ok => 0 } );
|
|
}
|
|
my $ok = $output->{ok};
|
|
my $reason = $output->{reason};
|
|
if ( !$ok ) {
|
|
return $self->render( status => 400, json => { ok => 0 } );
|
|
}
|
|
my $searchObjects = $output->{searchObjects};
|
|
return $self->render(
|
|
status => 200,
|
|
json => { ok => 1, searchObjects => $searchObjects }
|
|
);
|
|
}
|
|
1;
|