From eceea26677be80380c19c4134bd1904b99799df5 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Wed, 3 Jan 2018 13:25:17 +0100
Subject: [PATCH] gopher-server: link to comment page

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

diff --git a/stuff/gopher-server.pl b/stuff/gopher-server.pl
index edcb77d2..302f5e47 100755
--- a/stuff/gopher-server.pl
+++ b/stuff/gopher-server.pl
@@ -23,7 +23,8 @@ use Mojo::Log;
 use Getopt::Long;
 
 our($RunCGI, $DataDir, %IndexHash, @IndexList, $IndexFile, $TagFile,
-    %Page, $OpenPageName, $MaxPost, $ShowEdits, %Locks);
+    %Page, $OpenPageName, $MaxPost, $ShowEdits, %Locks, $CommentsPattern,
+    $CommentsPrefix);
 
 my $host;
 my $port;
@@ -397,6 +398,15 @@ sub serve_text_page_menu {
     }
   }
 
+  if (not $revision and $CommentsPattern) {
+    if ($id =~ /$CommentsPattern/) {
+      push(@links, [$1 . "/menu", $1]) if $1;
+    } else {
+      my $comments = $CommentsPrefix . $id;
+      push(@links, [$comments . "/menu", $comments]);
+    }
+  }
+  
   if (@links) {
     print_text($stream, "i\r\n");
     print_text($stream, "iLinks leaving " . NormalToFree($id) . ":\r\n");