#!/usr/bin/env perl # Dec 2021 # Daniel Bowling use Mojolicious::Lite -signatures; use Mojo::Pg; use lib 'lib'; use GuestbookNg::Model::Message; use Data::Dumper; # Uncomment for debugging # Plugins plugin 'Config'; plugin 'TagHelpers::Pagination'; # Helpers helper pg => sub { my $env = app->mode() eq 'development' ? 'dev_env' : 'prod_env'; state $pg = Mojo::Pg->new( 'postgres://' . app->config->{$env}->{'pg_user'} . ':' . app->config->{$env}->{'pg_pw'} . '@' . app->config->{$env}->{'pg_host'} . '/' . app->config->{$env}->{'pg_db'} ); }; helper message => sub { state $message = GuestbookNg::Model::Message->new(pg => shift->pg) }; # Routes under sub ($c) { # Opt out of Google FLoC # https://paramdeo.com/blog/opting-your-website-out-of-googles-floc-network $c->res->headers->header('Permissions-Policy', 'interest-cohort=()'); 1; }; get '/' => sub ($c) { my $posts = $c->message->get_posts(); my $last_page = $c->message->get_last_page(@$posts); my $this_page = $c->param('page') || 1; my @view_posts = $c->message->view_posts($this_page, $last_page, @$posts); $c->stash( view_posts => \@view_posts, this_page => $this_page, last_page => $last_page ); $c->render(); } => 'index'; any [qw{GET POST}], '/sign' => sub ($c) { if ($c->req->method() eq 'POST') { my $name = $c->param('name'); my $message = $c->param('message'); my $answer = $c->param('answer'); $c->message->send_post($name, $message) if $answer; $c->redirect_to('index'); } else { $c->render() } }; # Send it app->secrets(app->config->{'secrets'}) || die $@; app->message->max_posts(app->config->{'max_posts'}) if app->config->{'max_posts'}; app->pg->migrations->from_dir('migrations')->migrate(1); app->start();