PostText/PostText.pl

38 lines
573 B
Perl
Raw Normal View History

#!/usr/bin/env perl
# PostText v0.1
# Jul 22
use Mojolicious::Lite -signatures;
2022-07-29 01:13:26 +00:00
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 redirect
get '/', sub ($c) { $c->redirect_to('view') };
get '/view', sub ($c) {
$c->render()
};
2022-07-29 01:13:26 +00:00
app->secrets(app->config->{'secrets'}) || die $@;
app->start();