From e475479e508dfb5fa1383725b11567bebc427769 Mon Sep 17 00:00:00 2001
From: Kayden Tebau <me@nullob.si>
Date: Sun, 5 Feb 2023 14:06:34 -0800
Subject: [PATCH] Sort users page by date joined

---
 lib/unix_dog/Controller/Main.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/unix_dog/Controller/Main.pm b/lib/unix_dog/Controller/Main.pm
index ebbd235..043bf1d 100644
--- a/lib/unix_dog/Controller/Main.pm
+++ b/lib/unix_dog/Controller/Main.pm
@@ -52,11 +52,13 @@ sub user_pages ($self) {
         $mesg = $ldap->search(
             base   => 'OU=Dogs,DC=unix,DC=dog',
             filter => '(objectClass=posixAccount)',
-            attrs  => ['uid'],
+            attrs  => ['uid', 'createTimestamp'],
         );
         $mesg->code  and  die $mesg->error;
 
-        for ($mesg->entries) {
+        my @sorted = sort {$a->get_value('createTimestamp') cmp $b->get_value('createTimestamp')} $mesg->entries;
+
+        for (@sorted) {
             push @{$users}, $_->get_value('uid');
         }
         return $users;