my $top = "<b>$title</b> (<a\nhref=\"$atom_url\">Atom feed</a>)";
if ($srch) {
- $top = qq{<form\naction=""><tt>$top} .
+ $top = qq{<form\naction=""><pre>$top} .
qq{ <input\nname=q\ntype=text />} .
qq{<input\ntype=submit\nvalue=search />} .
- qq{</tt></form>} .
- PublicInbox::Hval::PRE;
+ q{</pre></form><pre>}
} else {
- $top = PublicInbox::Hval::PRE . $top . "\n";
+ $top = '<pre>' . $top . "\n";
}
$fh->write("<html><head><title>$title</title>" .
"<link\nrel=alternate\ntitle=\"Atom feed\"\n".
"href=\"$atom_url\"\ntype=\"application/atom+xml\"/>" .
+ PublicInbox::Hval::STYLE .
"</head><body>$top");
# if the 'r' query parameter is given, it is a legacy permalink
}
headers_to_html_header($mime, $full_pfx, $ctx) .
multipart_text_as_html($mime, $full_pfx) .
- '</pre><hr />' . PublicInbox::Hval::PRE .
+ '</pre><hr /><pre>' .
html_footer($mime, 1, $full_pfx, $ctx) .
$footer .
'</pre></body></html>';
sub feed_entry {
my ($class, $mime, $full_pfx) = @_;
+ # no <head> here for <style>...
PublicInbox::Hval::PRE .
multipart_text_as_html($mime, $full_pfx) . '</pre>';
}
if ($level) {
$rv .= '<td><pre>' . (INDENT x $level) . '</pre></td>';
}
- $rv .= "<td\nid=s$midx>" . PublicInbox::Hval::PRE;
+ $rv .= "<td\nid=s$midx><pre>";
$rv .= "<b\nid=$id>$subj</b>\n";
$rv .= "- $from @ $ts UTC - ";
$rv .= "<a\nhref=\"#s$next\">next</a>";
$next .= "\ndownload thread: ";
$next .= "<a\n$MBOX_TITLE\nhref=\"../t.mbox.gz\">mbox.gz</a>";
$next .= " / follow: <a\nhref=\"../t.atom\">Atom feed</a>";
- $cb->write("<hr />" . PublicInbox::Hval::PRE . $next . "\n\n".
- $foot . "</pre></body></html>");
+ $cb->write('<hr /><pre>' . $next . "\n\n".
+ $foot . '</pre></body></html>');
$cb->close;
}
}
$rv .= "\n";
- ("<html><head><title>". join(' - ', @title) .
- "</title>$atom</head><body>" . PublicInbox::Hval::PRE . $rv);
+ ("<html><head><title>". join(' - ', @title) . "</title>$atom".
+ PublicInbox::Hval::STYLE . "</head><body><pre>" . $rv);
}
sub thread_inline {
$$cb->write("<html><head><title>$s</title>".
qq{<link\nrel=alternate\ntitle="Atom feed"\n} .
qq!href="../t.atom"\ntype="application/atom+xml"/>! .
+ PublicInbox::Hval::STYLE .
"</head><body>");
}
sub ghost_table {
my ($upfx, $mid, $level) = @_;
"<table\nsummary=ghost><tr><td>" .
- (INDENT x $level) . "</td><td>" .
- PublicInbox::Hval::PRE . ghost_parent($upfx, $mid) .
+ (INDENT x $level) . '</td><td><pre>' .
+ ghost_parent($upfx, $mid) .
'</pre></td></table>';
}