orrg

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:
M
index.pl
 | 
8
++++----
M
orrg.pl
 | 
2
+-
M
popular.pl
 | 
4
++--
M
recent.pl
 | 
4
++--
M
robots.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