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

Merge branch 'master' of github.com:kensanata/oddmuse

Browse Source
This commit is contained in:
Alex Schroeder
2017-12-28 19:43:56 +01:00
parent 6ae93a09d4 dbcf614b0f
commit d5c77e9747
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
stuff/gopher-server.pl
View File

@@ -216,6 +216,14 @@ sub serve_page_html {
exit;
}
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;
@@ -231,7 +239,7 @@ sub serve_tag {
print "i\r\n";
}
print "iSearch 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",