Added <link> elements for the related atom feeds to some pages

3 files changed, 7 insertions, 5 deletions

diff --git a/lib/VNDB/Handler/Discussions.pm b/lib/VNDB/Handler/Discussions.pm
index ed18fcaf..ee6e460d 100644
--- a/lib/VNDB/Handler/Discussions.pm
+++ b/lib/VNDB/Handler/Discussions.pm
@@ -294,7 +294,7 @@ sub board {
     sort => $type eq 'an' ? 'id' : 'lastpost', reverse => 1,
   );
 
-  $self->htmlHeader(title => $title, noindex => !@$list || $type eq 'u');
+  $self->htmlHeader(title => $title, noindex => !@$list || $type eq 'u', feeds => [ $type eq 'an' ? 'announcements' : 'posts' ]);
 
   $self->htmlMainTabs($type, $obj, 'disc') if $iid;
   div class => 'mainbox';
@@ -330,7 +330,7 @@ sub board {
 sub index {
   my $self = shift;
 
-  $self->htmlHeader(title => mt '_disindex_title');
+  $self->htmlHeader(title => mt('_disindex_title'), feeds => [ 'posts', 'announcements' ]);
   div class => 'mainbox';
    h1 mt '_disindex_title';
    p class => 'browseopts';
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index 87839730..901e25e0 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -37,7 +37,7 @@ YAWF::register(
 
 sub homepage {
   my $self = shift;
-  $self->htmlHeader(title => mt '_site_title');
+  $self->htmlHeader(title => mt('_site_title'), feeds => [ keys %{$self->{atom_feeds}} ]);
 
   div class => 'mainbox';
    h1 mt '_site_title';
@@ -216,7 +216,7 @@ sub history {
     releases => $f->{r},
   );
 
-  $self->htmlHeader(title => $title, noindex => 1);
+  $self->htmlHeader(title => $title, noindex => 1, feeds => [ 'changes' ]);
   $self->htmlMainTabs($type, $obj, 'hist') if $type;
 
   # url generator
diff --git a/lib/VNDB/Util/LayoutHTML.pm b/lib/VNDB/Util/LayoutHTML.pm
index 93a35e0e..8b2f9ef1 100644
--- a/lib/VNDB/Util/LayoutHTML.pm
+++ b/lib/VNDB/Util/LayoutHTML.pm
@@ -10,7 +10,7 @@ use VNDB::Func;
 our @EXPORT = qw|htmlHeader htmlFooter|;
 
 
-sub htmlHeader { # %options->{ title, noindex, search }
+sub htmlHeader { # %options->{ title, noindex, search, feeds }
   my($self, %o) = @_;
   my $skin = $self->reqParam('skin') || $self->authInfo->{skin} || $self->{skin_default};
   $skin = $self->{skin_default} if !$self->{skins}{$skin} || !-d "$VNDB::ROOT/static/s/$skin";
@@ -26,6 +26,8 @@ sub htmlHeader { # %options->{ title, noindex, search }
       (my $css = $self->authInfo->{customcss}) =~ s/\n/ /g;
       style type => 'text/css', $css;
     }
+    Link rel => 'alternate', type => 'application/atom+xml', href => "/feeds/$_.atom", title => $self->{atom_feeds}{$_}[1]
+      for ($o{feeds} ? @{$o{feeds}} : ());
     meta name => 'robots', content => 'noindex, follow', undef if $o{noindex};
    end;
    body;