Browse Source

use true relative links

update robots.txt
master
René Wagner 5 months ago
parent
commit
4454cc3f1b
  1. 8
      index.pl
  2. 2
      orrg.pl
  3. 4
      popular.pl
  4. 4
      recent.pl
  5. 3
      robots.txt

8
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');

2
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;
}

4
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;
}

4
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;
}

3
robots.txt

@ -1 +1,2 @@
Disallow:orrg.pl
User-agent: *
Disallow: /orrg.pl
Loading…
Cancel
Save