Add CAPTCHA for flag_thread

lib/PostText/Controller/Thread.pm

@@ -151,14 +151,28 @@ sub bump($self) {
 
 sub flag($self) {
     my $thread_id = $self->param('thread_id');
-    my $redirect_url = $self->url_for('threads_list')->fragment('info')->to_abs;
+    my $v         = $self->validation;
+
+    $v->optional(captcha => 'trim')->size(4, 4)->like(qr/flag/i);
+
+    if ($v->is_valid) {
+        my $redirect_url =
+            $self->url_for('threads_list')->fragment('info')->to_abs;
 
         $self->thread->flag($thread_id);
         $self->flash(
             info => "Thread #$thread_id has been flagged for moderator. 🚩"
           );
 
-    $self->redirect_to($redirect_url);
+        return $self->redirect_to($redirect_url);
+    }
+    elsif ($v->has_error) {
+        $self->stash(status => 400)
+    }
+
+    $self->stash(thread_id => $thread_id);
+
+    return $self->render;
 }
 
 1;

t/thread.t

@@ -98,9 +98,8 @@ subtest 'Flagging thread', sub {
         ->element_exists('a[href*="flag"]')
         ->text_like(h2 => qr/Thread #1/);
 
-    $t->get_ok('/thread/flag/1')->status_is(200)
+    $t->get_ok('/thread/flag/1'    )->status_is(200);
-        ->element_exists('p[class="stash-with-info"]')
+    $t->get_ok('/thread/flag/65536')->status_is(404);
-        ->text_like(p => qr/Thread #1 has been flagged/);
 };
 
 done_testing;

templates/thread/flag.html.ep

@@ -0,0 +1,17 @@
+% layout 'default';
+% title $thread_id ? "Flag Thread #$thread_id" : '?';
+<h2 class="page-title"><%= title %></h2>
+<% if ($thread_id) { =%>
+<form class="form-body">
+  <div class="form-field">
+    <% if (my $error = validation->error('captcha')) { =%>
+    <p class="field-with-error">Must be between <%= $error->[2] %>
+      and <%= $error->[3] %> characters.</p>
+    <% } =%>
+    <%= label_for captcha => "Enter the word 'flag' to confirm:" %>
+    <%= text_field captcha => id => 'captcha' %>
+  </div>
+  <button type="submit" class="form-button">Flag</button>
+  </fieldset>
+</form>
+<% } =%>