The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
  [% IF Project %]
    [%-
      has_branch = c.req.param('h').match('^(refs/heads/.*)') || c.req.param('hb').match('^(refs/heads/.*)');
      branch     = has_branch.0 || '';
      feed_title = 'log';
      feed_fn    = c.req.param('f');
      IF feed_fn;
        title = 'history of ' _ c.req.param('filename');
        title = title _ (branch ? ' on ' _ branch : '');
      ELSE;
        title = title _ (branch ? ' of ' _ branch : '');
      END;

      feed_args = { h = branch || c.req.param('h') || c.req.param('hb') || 'HEAD' };
      IF feed_fn; feed_args.f = feed_fn; END;
    -%]
    <a
      class="rss_logo"
      title="[% feed_title %]"
      href="[% c.uri_for('rss', feed_args) %]">RSS</a>
    <a
      class="rss_logo"
      title="[% feed_title %]"
      href="[% c.uri_for('atom', feed_args) %]">Atom</a>
  [% ELSE %]
    <a
      class="rss_logo"
      href="[% c.uri_for('opml') %]">OPML</a>
    <a
      class="rss_logo"
      href="[% c.uri_for('project_index') %]">TXT</a>
  [% END %]