archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

gopher-server: link to comment page

Browse Source
This commit is contained in:
Alex Schroeder
2018-01-03 13:25:17 +01:00
parent 783325509a
commit e01b39edf6
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
stuff/gopher-server.pl
View File

@@ -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");