From 627fe02bdae2c2b1f5cd8b226b406d2f50686b4b Mon Sep 17 00:00:00 2001
From: swag <swaggboi@slackware.uk>
Date: Sun, 19 Dec 2021 17:20:58 -0500
Subject: [PATCH] Change pager behavior to make more sense

---
 guestbook-ng.pl                  | 2 +-
 lib/GuestbookNg/Model/Message.pm | 6 +++++-
 templates/index.html.ep          | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/guestbook-ng.pl b/guestbook-ng.pl
index 3541afd..821876c 100755
--- a/guestbook-ng.pl
+++ b/guestbook-ng.pl
@@ -45,7 +45,7 @@ under sub ($c) {
 get '/' => sub ($c) {
     my $posts      = $c->message->get_posts();
     my $last_page  = $c->message->get_last_page(@$posts);
-    my $this_page  = $c->param('page') || $last_page;
+    my $this_page  = $c->param('page') || 1;
     my @view_posts = $c->message->view_posts($this_page, $last_page, @$posts);
 
     $c->stash(
diff --git a/lib/GuestbookNg/Model/Message.pm b/lib/GuestbookNg/Model/Message.pm
index e0d9f27..bb385e0 100644
--- a/lib/GuestbookNg/Model/Message.pm
+++ b/lib/GuestbookNg/Model/Message.pm
@@ -14,7 +14,11 @@ sub new($class, $pg, $pg_object) {
 }
 
 sub get_posts($self) {
-    $self->pg->db->query('SELECT date, name, msg FROM messages;')->arrays()
+    $self->pg->db
+        ->query('SELECT to_char(date, \'Dy Mon DD HH:MI:SS AM TZ YYYY\'),
+                        name, msg
+                   FROM messages
+                  ORDER BY date DESC;')->arrays()
 }
 
 sub send_post($self, $name, $msg) {
diff --git a/templates/index.html.ep b/templates/index.html.ep
index 806f580..e5aa689 100644
--- a/templates/index.html.ep
+++ b/templates/index.html.ep
@@ -2,7 +2,7 @@
 % title 'Home';
 <h2>Messages from the World Wide Web</h2>
 <table>
-<% for my $row (reverse @$view_posts) { %>
+<% for my $row (@$view_posts) { %>
 <tr>
   <th>Date:</th>
   <td><%= @$row[0] %></td>