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

gopher-server: just link to tag page

Browse Source
This commit is contained in:
Alex Schroeder
2017-12-28 12:54:54 +01:00
parent 491d23d0af
commit 7d7ff5f583
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
stuff/gopher-server.pl
View File

@@ -157,7 +157,13 @@ sub serve_tag {
$self->log(1, "Serving tag $tag\n");
if ($OddMuse::IndexHash{$tag}) {
print "This page is about the tag $tag.\r\n";
$self->serve_page_text($tag);
print join("\t",
"1" . OddMuse::NormalToFree($tag),
"$tag/menu",
$self->{server}->{sockaddr},
$self->{server}->{sockport})
. "\r\n";
print "\r\n";
}
print "Search result for tag $tag:\r\n";
for my $id (OddMuse::TagFind($tag)) {