burguillos.info/lib/BurguillosInfo/Controller/Search.pm

package BurguillosInfo::Controller::Search;

use v5.34.1;

use strict;
use warnings;

use Data::Dumper;

use Mojo::Base 'Mojolicious::Controller', '-signatures';
use Mojo::UserAgent;

use BurguillosInfo::IndexUtils;

my $index_utils = BurguillosInfo::IndexUtils->new;

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};
    $query =~ s/\btitle:/titleNormalized:/g;
    $query =~ s/\bcontent:/contentNormalized:/g;
    my $tx             = $ua->get( $search_backend . '/search/' . $search_index,
        {}, form => { q => $index_utils->n($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;