48 lines
725 B
Perl
Executable file
48 lines
725 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
# PostText v0.1
|
|
# Jul 22
|
|
|
|
use Mojolicious::Lite -signatures;
|
|
use Mojo::Pg;
|
|
|
|
# Load the local modules too
|
|
use lib 'lib';
|
|
use PostText::Model::Thread;
|
|
|
|
# Load Mojo plugins
|
|
plugin 'Config';
|
|
|
|
# Helpers
|
|
helper pg => sub {
|
|
state $pg = Mojo::Pg->new(app->config->{app->mode}{'pg_string'})
|
|
};
|
|
|
|
# Begin routing
|
|
under sub ($c) {
|
|
$c->session(expires => time() + 1800);
|
|
|
|
1;
|
|
};
|
|
|
|
# Root
|
|
get '/', sub ($c) { $c->redirect_to('view') };
|
|
|
|
# View
|
|
get '/view', sub ($c) {
|
|
$c->render()
|
|
};
|
|
|
|
# Post
|
|
any [qw{GET POST}], '/post', sub ($c) {
|
|
$c->render()
|
|
};
|
|
|
|
# Configure things
|
|
app->secrets(app->config->{'secrets'}) || die $@;
|
|
|
|
app->pg->migrations->from_dir('migrations')->migrate();
|
|
|
|
# Send it
|
|
app->start();
|