swaggboi/guestbook-ng
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Consolidate /view and /spam base paths

Browse source
This commit is contained in:
swagg boi 2022-04-07 23:04:09 -04:00
parent 36d1fcd7fa
commit 5583b9f608
1 changed files with 9 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
guestbook-ng.pl
View file

@ -84,7 +84,7 @@ any [qw{GET POST}], '/sign' => sub ($c) {
$c->flash(error => 'This message was flagged as spam') if $spam; $c->flash(error => 'This message was flagged as spam') if $spam;
return $c->redirect_to('index'); return $c->redirect_to('view');
} }
} }
@ -124,13 +124,17 @@ group {
}; };
group { group {
under '/spam'; under '/:page', [page => ['spam', 'view']];
get '/:number', [number => qr/[0-9]+/], {number => 1} => sub ($c) { get '/:number', [number => qr/[0-9]+/], {number => 1} => sub ($c) {
my $this_page = $c->param('number');
my $last_page = $c->message->get_last_page('spam');
my $view_posts = $c->message->get_spam($this_page);
my $base_path = $c->url_for(number => undef); my $base_path = $c->url_for(number => undef);
my $this_page = $c->param('number');
my $last_page =
$base_path eq '/view' ? $c->message->get_last_page()
: $c->message->get_last_page(1);
my $view_posts =
$base_path eq '/view' ? $c->message->get_posts($this_page)
: $c->message->get_spam($this_page);
$c->stash( $c->stash(
view_posts => $view_posts, view_posts => $view_posts,
@ -143,26 +147,6 @@ group {
}; };
}; };
group {
under '/view';
get '/:number', [number => qr/[0-9]+/], {number => 1} => sub ($c) {
my $this_page = $c->param('number');
my $last_page = $c->message->get_last_page('spam');
my $view_posts = $c->message->get_spam($this_page);
my $base_path = $c->url_for(number => undef);
$c->stash(
view_posts => $view_posts,
this_page => $this_page,
last_page => $last_page,
base_path => $base_path
);
$c->render();
};
};
# Send it # Send it
app->secrets(app->config->{'secrets'}) || die $@; app->secrets(app->config->{'secrets'}) || die $@;