diff options
author | Eric Wong <e@80x24.org> | 2014-04-15 06:51:41 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-04-15 06:51:41 +0000 |
commit | 365d97757f464a4e1deb6c149563f344b0ebf4a7 (patch) | |
tree | 00da4b876657a6ffab517e9ddf4b20df4434be9f /lib/PublicInbox | |
parent | 165b8046310d5696a1877b267f5eb74b5a431466 (diff) | |
download | public-inbox-365d97757f464a4e1deb6c149563f344b0ebf4a7.tar.gz |
Maybe this increases readability for now.
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/Feed.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm index 92bbf92d..1c205631 100644 --- a/lib/PublicInbox/Feed.pm +++ b/lib/PublicInbox/Feed.pm @@ -121,8 +121,9 @@ sub get_feedopts { my $cgi_url = $cgi->url(-path=>1, -query=>1, -relative=>1); my $base = $cgi->url(-base); $url_base = $cgi_url; - if ($url_base =~ s!/(?:|index\.html)?\z!!) { - $rv{atomurl} = "$base$url_base/index.atom.xml"; + if ($url_base =~ s!/(?:|(index|all)\.html)?\z!!) { + my $ia = $1 || 'index'; + $rv{atomurl} = "$base$url_base/$ia.atom.xml"; } else { $url_base =~ s!/?(?:index|all)\.atom\.xml\z!!; $rv{atomurl} = $base . $cgi_url; |