orrg

Unnamed repository; edit this file 'description' to name the repository.
git clone git://code.clttr.info/orrg.git
Log | Files | Refs | README | LICENSE

commit 4454cc3f1b97506f166c883145dc8773de99b4be
parent a7927c64c3c34b17a034148ded8d9aacda7a56fa
Author: René Wagner <rwagner@rw-net.de>
Date:   Mon, 18 Jan 2021 20:18:19 +0100

use true relative links

update robots.txt

Diffstat:
Mindex.pl | 8++++----
Morrg.pl | 2+-
Mpopular.pl | 4++--
Mrecent.pl | 4++--
Mrobots.txt | 3++-
5 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/index.pl b/index.pl @@ -34,13 +34,13 @@ sub body '', 'orrg is your online rss/atom feed reader for gemini.', '', - '=> orrg.pl view a feed', + '=> ./orrg.pl view a feed', '', '## explore', '', - '=> orrg.pl?'. uri_escape($uri) .' random feed', - '=> recent.pl top 10 recent feeds', - '=> popular.pl top 10 popular feeds', + '=> ./orrg.pl?'. uri_escape($uri) .' random feed', + '=> ./recent.pl top 10 recent feeds', + '=> ./popular.pl top 10 popular feeds', '', '', '=> https://src.clttr.info/rwa/orrg powered by orrg'); diff --git a/orrg.pl b/orrg.pl @@ -53,7 +53,7 @@ sub create_response foreach my $it ($feed->get_item()) { push @body, @{item($it)}; } - push @body, ('', '', '=> index.pl [home]'); + push @body, ('', '', '=> ./index.pl [home]'); return @body; } diff --git a/popular.pl b/popular.pl @@ -35,7 +35,7 @@ sub create_response my $c = 0; foreach (reverse @sorted) { my ($cnt, $uri, $name) = split / /, $_, 3; - push @body, '=> orrg.pl?'. uri_escape($uri) .' '. ($name eq '' ? $uri : $name); + push @body, '=> ./orrg.pl?'. uri_escape($uri) .' '. ($name eq '' ? $uri : $name); ++$c < 10 or last; } @@ -44,6 +44,6 @@ sub create_response } - push @body, ('', '', '=> index.pl [home]'); + push @body, ('', '', '=> ./index.pl [home]'); return @body; } diff --git a/recent.pl b/recent.pl @@ -33,12 +33,12 @@ sub create_response if ( defined($recents) ) { foreach (@$recents) { my ($uri, $name) = split / /, $_, 2; - push @body, '=> orrg.pl?'. uri_escape($uri) .' '. ($name eq '' ? $uri : $name); + push @body, '=> ./orrg.pl?'. uri_escape($uri) .' '. ($name eq '' ? $uri : $name); } } else { push @body, 'No feeds found'; } - push @body, ('', '', '=> index.pl [home]'); + push @body, ('', '', '=> ./index.pl [home]'); return @body; } diff --git a/robots.txt b/robots.txt @@ -1 +1,2 @@ -Disallow:orrg.pl +User-agent: * +Disallow: /orrg.pl