Back-end stuff to get the URL field working

guestbook-ng.pl

@@ -63,10 +63,11 @@ get '/' => sub ($c) {
 any [qw{GET POST}], '/sign' => sub ($c) {
     if ($c->req->method() eq 'POST' && $c->param('message')) {
         my $name    = $c->param('name') || 'Anonymous';
+        my $url     = $c->param('url');
         my $message = $c->param('message');
         my $answer  = $c->param('answer');
 
-        $c->message->create_post($name, $message) if $answer;
+        $c->message->create_post($name, $message, $url) if $answer;
         $c->redirect_to('index');
     }
     else {
@@ -93,7 +94,7 @@ 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(3);
+app->pg->migrations->from_dir('migrations')->migrate(4);
 
 app->asset->store->paths(['assets']);
 app->asset->process('swagg.css', 'css/swagg.css');

lib/GuestbookNg/Model/Message.pm

@@ -38,11 +38,19 @@ sub get_posts($self, $this_page = undef) {
     }
 }
 
-sub create_post($self, $name, $message) {
+sub create_post($self, $name, $message, $url = undef) {
+    if ($url) {
+        $self->pg->db->query(<<~'END_SQL', $name, $url, $message)
+            INSERT INTO messages (message_date, visitor_name, homepage_url, message)
+            VALUES (NOW(), ?, ?, ?);
+           END_SQL
+    }
+    else {
         $self->pg->db->query(<<~'END_SQL', $name, $message)
             INSERT INTO messages (message_date, visitor_name, message)
             VALUES (NOW(), ?, ?);
            END_SQL
+    }
 }
 
 sub max_posts($self, $value = undef) {

migrations/4/down.sql

@@ -0,0 +1,2 @@
+ALTER TABLE messages
+ DROP COLUMN homepage_url;

migrations/4/up.sql

@@ -0,0 +1,2 @@
+ALTER TABLE messages
+  ADD homepage_url VARCHAR(256);

t/basic.t

@@ -10,6 +10,7 @@ my $script = curfile->dirname->sibling('guestbook-ng.pl');
 my $t      = Test::Mojo->new($script);
 my %form   = (
     name    => 'swagg boi',
+    url     => 'http://localhost',
     message => 'Ayy... lmao',
     answer  => 'false'
     );