package PostText; # Sep 22 use Mojo::Base 'Mojolicious', -signatures; use Mojo::Pg; use PostText::Model::Thread; use PostText::Model::Remark; sub startup($self) { $self->plugin('Config'); $self->plugin('TagHelpers::Pagination'); $self->plugin(AssetPack => {pipes => [qw{Css Combine}]}); # Helpers $self->helper(pg => sub { state $pg = Mojo::Pg->new(shift->config->{$self->mode}{'pg_string'}) }); $self->helper(thread => sub { state $thread = PostText::Model::Thread->new(pg => shift->pg) }); $self->helper(remark => sub { state $remark = PostText::Model::Remark->new(pg => shift->pg) }); $self->helper(truncate_text => sub ($c, $input_text) { my $truncated_text = 500 < length($input_text) ? substr($input_text, 0, 500) . '...' : $input_text; return $truncated_text; }); # Finish configuring some things $self->secrets($self->config->{'secrets'}) || die $@; $self->pg->migrations->from_dir('migrations')->migrate(6); if (my $threads_per_page = $self->config->{'threads_per_page'}) { $self->thread->per_page($threads_per_page) } if (my $remarks_per_page = $self->config->{'remarks_per_page'}) { $self->remark->per_page($remarks_per_page) } $self->asset->process('main.css', 'css/PostText.css'); # Begin routing my $r = $self->routes->under(sub ($c) { $c->session(expires => time + 31536000); $c->session(author => 'Anonymous') unless $c->session('author'); 1; }); # Root redirect $r->get('/', sub ($c) { $c->redirect_to('threads_list') }); # Thread my $threads_list = $r->under('/list'); $threads_list ->get('/:list_page', [list_page => qr/[0-9]+/], {list_page => 1}) ->to('thread#by_page') ->name('threads_list'); my $post_thread = $r->under; $post_thread->any([qw{GET POST}], '/post') ->to('thread#create') ->name('post_thread'); my $single_thread = $r->under('/thread/:thread_id', [thread_id => qr/[0-9]+/]); $single_thread ->get('/:thread_page', [thread_page => qr/[0-9]+/], {thread_page => 1}) ->to('thread#by_id') ->name('single_thread'); my $bump_thread = $r->under('/bump'); $bump_thread->get('/:thread_id', [thread_id => qr/[0-9]+/]) ->to('thread#bump') ->name('bump_thread'); # Remark my $remark = $r->under('/remark'); $remark->under('/post') ->any([qw{GET POST}], '/:thread_id', [thread_id => qr/[0-9]+/]) ->to('remark#create') ->name('post_remark'); $remark->under('/single') ->get('/:remark_id', [remark_id => qr/[0-9]+/]) ->to('remark#by_id') ->name('single_remark'); } 1;