PostText/PostText.pl

104 lines
2.2 KiB
Perl
Raw Normal View History

#!/usr/bin/env perl
# PostText v0.1
# Jul 22
use Mojolicious::Lite -signatures;
2022-07-28 21:13:26 -04:00
use Mojo::Pg;
use Data::Dumper; # For your debugging pleasure
2022-07-28 21:13:26 -04:00
# Load the local modules too
use lib 'lib';
use PostText::Model::Thread;
# Load Mojo plugins
plugin 'Config';
plugin 'TagHelpers::Pagination';
2022-08-15 18:35:30 -04:00
plugin AssetPack => {pipes => [qw{Css Combine}]};
2022-07-28 21:13:26 -04:00
# Helpers
helper pg => sub {
state $pg = Mojo::Pg->new(app->config->{app->mode}{'pg_string'})
};
2022-08-03 23:44:34 -04:00
helper thread => sub {
state $thread = PostText::Model::Thread->new(pg => shift->pg)
};
2022-07-28 21:13:26 -04:00
# Begin routing
under sub ($c) {
2022-07-31 23:17:15 -04:00
$c->session(expires => time() + 31536000);
2022-07-28 21:13:26 -04:00
1;
};
# Root
get '/', sub ($c) { $c->redirect_to('view') };
# View
group {
under 'view';
get '/:page', [page => qr/[0-9]+/], {page => 1}, sub ($c) {
my $base_path = '/view';
my $this_page = $c->param('page');
my $last_page = $c->thread->get_last_page();
my $threads = $c->thread->get_threads_by_page($this_page);
$c->stash(
threads => $threads,
this_page => $this_page,
last_page => $last_page,
base_path => $base_path
);
$c->render();
};
};
# Post
any [qw{GET POST}], '/post', sub ($c) {
2022-08-06 02:26:53 -04:00
my $v;
2022-08-03 23:44:34 -04:00
2022-08-06 02:26:53 -04:00
$v = $c->validation() if $c->req->method eq 'POST';
if ($v && $v->has_data) {
my $thread_author = $c->param('name' ) || 'Anonymous';
my $thread_title = $c->param('title');
my $thread_body = $c->param('post' );
$v->required('name' )->size(1, 63 );
$v->required('title')->size(1, 127 );
$v->required('post' )->size(2, 4000);
2022-08-15 17:11:14 -04:00
if ($v->has_error) {
2022-08-15 17:48:58 -04:00
$c->stash(status => 400)
2022-08-15 17:11:14 -04:00
}
else {
$c->thread->create_thread(
$thread_author,
$thread_title,
$thread_body
2022-08-15 17:48:58 -04:00
);
2022-08-03 23:44:34 -04:00
2022-08-15 17:48:58 -04:00
return $c->redirect_to('view');
}
2022-08-03 23:44:34 -04:00
}
return $c->render();
};
# Configure things
2022-07-28 21:13:26 -04:00
app->secrets(app->config->{'secrets'}) || die $@;
app->pg->migrations->from_dir('migrations')->migrate(3);
2022-07-29 22:15:14 -04:00
if (my $threads_per_page = app->config->{'threads_per_page'}) {
app->thread->threads_per_page($threads_per_page)
}
2022-08-15 18:35:30 -04:00
app->asset->process('main.css', 'css/PostText.css');
# Send it
app->start();