Re: Mojo database routing

in reply to Mojo database routing

How to get form parameters and placeholders is covered in Mojolicious::Guides::Tutorial. I see you've commented out Mojo::SQLite, but I personally like these Mojo-style DB adapters.

Form parameters don't normally get put in the URL in the way you seem to be hoping. One possible solution would be JavaScript, but here is a solution without it: the HTML form gets submitted to a handler at /search, which then just redirects to the corresponding URL. Note I'm generating the form via Mojolicious::Plugin::TagHelpers.

#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::SQLite;

helper sqlite =>
    sub { state $sql = Mojo::SQLite->new('sqlite:mydb.db') };

# disable template cache when running under morbo
app->renderer->cache->max_keys(0) if app->mode eq 'development';

app->sqlite->migrations->from_string(<<'END_MIGR')->migrate;
-- 1 up
CREATE TABLE contacts (
    id INTEGER PRIMARY KEY AUTOINCREMENT,
    name TEXT,
    department TEXT
);
INSERT INTO contacts (name,department) VALUES ('John Doe','Perl');
-- 1 down
DROP TABLE IF EXISTS contacts;
END_MIGR

get '/' => sub {
    my $c = shift;
    $c->render('main');
} => 'index';

post '/search' => sub {
    my $c = shift;
    $c->redirect_to(
        $c->url_for('name_query', query => $c->param('name') ) );
} => 'search';

get '/name/:query' => sub {
    my $c = shift;
    $c->stash( rows =>
        $c->sqlite->db->select(
            'contacts',
            ['id','name','department'],
            { name => $c->stash('query') }
        )->arrays );
    $c->render('main');
} => 'name_query';

app->start;

__DATA__

@@ main.html.ep
<!DOCTYPE html>
<html>
<head><title>Hello Mojo!</title></head>
<body>

<div>
%= form_for search => ( method => 'post' ) => begin
%= label_for name => 'Name'
%= text_field 'name', required=>'required';
%= submit_button 'Query'
%= end
</div>

% if ( my $rows = stash 'rows' ) {
    % if (@$rows) {
        <div><table border="1">
        <tr>
            <th>id</th>
            <th>name</th>
            <th>department</th>
        </tr>
        % foreach my $row (@$rows) {
            <tr>
            % foreach my $text (@$row) {
                <td><%= $text %></td>
            % }
            </tr>
        % }
        </table></div>
    % } else {
        <div><b>No records found!</b></div>
    % }
% }

</body>
</html>
[download]

In Section Seekers of Perl Wisdom