swaggboi/PostText
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add routes + tests for the unflag, hide and unhide actions

Browse source
This commit is contained in:
swagg boi 2022-12-07 20:18:48 -06:00
parent 34f2ec7033
commit 452229780e
5 changed files with 86 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/PostText.pm
View file

@ -145,14 +145,25 @@ sub startup($self) {
my $moderator = $r->under('/moderator', sub ($c) {
return 1 if $c->is_mod;
$c->redirect_to('mod_login');
# Return false otherwise a body is rendered with the redirect...
return undef;
return $c->redirect_to('mod_login'), undef;
});
$moderator->get('/flagged')
->to('moderator#flagged')
->name('flagged_list');
$moderator->get('/unflag/:thread_id', [thread_id => qr/\d+/])
->to('moderator#unflag')
->name('unflag_thread');
$moderator->get('/hide/:thread_id', [thread_id => qr/\d+/])
->to('moderator#hide')
->name('hide_thread');
$moderator->get('/unhide/:thread_id', [thread_id => qr/\d+/])
->to('moderator#unhide')
->name('unhide_thread');
}
1;

31
lib/PostText/Controller/Moderator.pm
View file

@ -57,4 +57,35 @@ sub logout($self) {
$self->redirect_to('threads_list');
}
sub unflag($self) {
my $thread_id = $self->param('thread_id');
my $redirect_url = $self->url_for('threads_list')->fragment('info')->to_abs;
$self->moderator->unflag($thread_id);
$self->flash(info => "Thread #$thread_id has been unflagged. ◀️");
$self->redirect_to($redirect_url);
}
sub hide($self) {
my $thread_id = $self->param('thread_id');
my $redirect_url = $self->url_for(single_thread => thread_id => $thread_id)
->fragment('info')->to_abs;
$self->moderator->hide($thread_id);
$self->flash(info => "Thread #$thread_id has been hidden. 🫥");
$self->redirect_to($redirect_url);
}
sub unhide($self) {
my $thread_id = $self->param('thread_id');
my $redirect_url = $self->url_for('threads_list')->fragment('info')->to_abs;
$self->moderator->unhide($thread_id);
$self->flash(info => "Thread #$thread_id has been unhidden. ⏪");
$self->redirect_to($redirect_url);
}
1;

25
lib/PostText/Model/Moderator.pm
View file

@ -35,4 +35,29 @@ sub get_name($self, $mod_id) {
END_SQL
}
sub unflag($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)
UPDATE threads
SET flagged_status = FALSE
WHERE thread_id = ?;
END_SQL
}
sub hide($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)
UPDATE threads
SET hidden_status = TRUE,
flagged_status = FALSE
WHERE thread_id = ?;
END_SQL
}
sub unhide($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)
UPDATE threads
SET hidden_status = FALSE
WHERE thread_id = ?;
END_SQL
}
1;

8
lib/PostText/Model/Thread.pm
View file

@ -95,12 +95,4 @@ sub flag($self, $thread_id) {
END_SQL
}
sub unflag($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)
UPDATE threads
SET flagged_status = FALSE
WHERE thread_id = ?;
END_SQL
}
1;

17
t/moderator.t
View file

@ -39,6 +39,23 @@ subtest Login => sub {
->status_is(302)
->header_like(Location => qr{moderator/flagged});
# Do these subs while logged in
subtest Flag => sub {
$t->get_ok('/moderator/unflag/1')
->status_is(302)
->header_like(Location => qr{thread/list});
};
subtest Hide => sub {
$t->get_ok('/moderator/hide/1')
->status_is(302)
->header_like(Location => qr{thread/single/1});
$t->get_ok('/moderator/unhide/1')
->status_is(302)
->header_like(Location => qr{thread/list});
};
$t->get_ok('/logout')
->status_is(302)
->header_like(Location => qr{thread/list});