Some user agents will advertise the presence of a feed this
way for users to subscribe to individual topics.
$rv .= 'Message-ID: <' . $mid->as_html . '> ';
my $upfx = $full_pfx ? '' : '../';
$rv .= "(<a\nhref=\"${upfx}raw\">raw</a>)\n";
$rv .= 'Message-ID: <' . $mid->as_html . '> ';
my $upfx = $full_pfx ? '' : '../';
$rv .= "(<a\nhref=\"${upfx}raw\">raw</a>)\n";
if ($srch) {
$rv .= "<a\nhref=\"${upfx}t/\">References: [expand]</a>\n";
if ($srch) {
$rv .= "<a\nhref=\"${upfx}t/\">References: [expand]</a>\n";
+ $atom = qq{<link\nrel=alternate\ntitle="Atom feed"\n} .
+ qq!href="${upfx}t.atom"\ntype="application/atom+xml"/>!;
} else {
$rv .= _parent_headers_nosrch($header_obj);
} else {
$rv .= _parent_headers_nosrch($header_obj);
}
$rv .= "\n";
("<html><head><title>". join(' - ', @title) .
}
$rv .= "\n";
("<html><head><title>". join(' - ', @title) .
- '</title></head><body>' . PRE_WRAP . $rv);
+ "</title>$atom</head><body>" . PRE_WRAP . $rv);
+ my ($cb, $header, $state) = @_;
$$cb = $$cb->([200, ['Content-Type'=> 'text/html; charset=UTF-8']]);
$$cb = $$cb->([200, ['Content-Type'=> 'text/html; charset=UTF-8']]);
- my $s = PublicInbox::Hval->new_oneline($mime->header('Subject'));
+ my $s = PublicInbox::Hval->new_oneline($header->header('Subject'));
- $$cb->write("<html><head><title>$s</title></head><body>");
+ $$cb->write("<html><head><title>$s</title>".
+ qq{<link\nrel=alternate\ntitle="Atom feed"\n} .
+ qq!href="../t.atom"\ntype="application/atom+xml"/>! .
+ "</head><body>");