lib/PublicInbox/WwwListing.pm | 21 +++++++++++----------
diff --git a/lib/PublicInbox/WwwListing.pm b/lib/PublicInbox/WwwListing.pm
index 35abf05030d8f05d8d40ea6845536d0e59c3046a..72c940ddc406184cc938d48ce649f319bfac6e65 100644
--- a/lib/PublicInbox/WwwListing.pm
+++ b/lib/PublicInbox/WwwListing.pm
@@ -208,27 +208,28 @@ my ($ctx) = @_;
my $h = [ 'Content-Type', 'text/html; charset=UTF-8',
'Content-Length', undef ];
my $gzf = gzf_maybe($h, $ctx->{env});
- $gzf->zmore('public-inbox listing' .
- $ctx->{www}->style('+/') .
- '');
+ my $zfh = $gzf->zfh;
+ print $zfh 'public-inbox listing',
+ $ctx->{www}->style('+/'),
+ '';
my $code = 404;
if (my $list = delete $ctx->{-list}) {
my $mset = delete $ctx->{-mset};
$code = 200;
if ($mset) { # already sorted, so search bar:
- $gzf->zmore(mset_nav_top($ctx, $mset));
+ print $zfh mset_nav_top($ctx, $mset);
} else { # sort config dump by ->modified
@$list = map { $_->[1] }
sort { $b->[0] <=> $a->[0] } @$list;
}
- $gzf->zmore('', join("\n", @$list)); # big
- $gzf->zmore(mset_footer($ctx, $mset)) if $mset;
+ print $zfh '', join("\n", @$list); # big
+ print $zfh mset_footer($ctx, $mset) if $mset;
} elsif (my $mset = delete $ctx->{-mset}) {
- $gzf->zmore(mset_nav_top($ctx, $mset) .
- 'no matching inboxes' .
- mset_footer($ctx, $mset));
+ print $zfh mset_nav_top($ctx, $mset),
+ 'no matching inboxes',
+ mset_footer($ctx, $mset);
} else {
- $gzf->zmore('no inboxes, yet');
+ print $zfh 'no inboxes, yet';
}
my $out = $gzf->zflush('
'.
qq(This is a listing of public inboxes, see the `mirror' link of each inbox