From dbcf614b0fc1a4faded7a57f2d2e4ad8034d2f0a Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Thu, 28 Dec 2017 13:15:44 +0100
Subject: [PATCH] Sort tag searches newest first

---
 stuff/gopher-server.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/stuff/gopher-server.pl b/stuff/gopher-server.pl
index 5b39c210..496ecad4 100755
--- a/stuff/gopher-server.pl
+++ b/stuff/gopher-server.pl
@@ -151,6 +151,15 @@ sub serve_page_text {
   print $text;
 }
 
+sub newest_first {
+  my ($A, $B) = ($a, $b);
+  if ($A =~ /^\d\d\d\d-\d\d-\d\d/ and $B =~ /^\d\d\d\d-\d\d-\d\d/) {
+    return $B cmp $A;
+  }
+  $A cmp $B;
+}
+
+
 sub serve_tag {
   my $self = shift;
   my $tag = shift;
@@ -166,7 +175,7 @@ sub serve_tag {
     print "\r\n";
   }
   print "Search result for tag $tag:\r\n";
-  for my $id (OddMuse::TagFind($tag)) {
+  for my $id (sort newest_first OddMuse::TagFind($tag)) {
     print join("\t",
 	       "1" . OddMuse::NormalToFree($id),
 	       "$id/menu",