]> Sergey Matveev's repositories - public-inbox.git/blobdiff - lib/PublicInbox/WwwListing.pm
www: move mirror instructions to /text/
[public-inbox.git] / lib / PublicInbox / WwwListing.pm
index 1bb5fbd041587cbc3931d370fcecde9519d5ff6e..c37796195e681441106c5e6218041ecbacdae2b5 100644 (file)
@@ -17,7 +17,7 @@ sub ibx_entry {
        my $desc = ascii_html($ce->{description} //= $ibx->description);
        my $ts = fmt_ts($ce->{-modified} //= $ibx->modified);
        my ($url, $href);
-       if (defined($ibx->{url})) {
+       if (scalar(@{$ibx->{url} // []})) {
                $url = $href = ascii_html(prurl($ctx->{env}, $ibx->{url}));
        } else {
                $href = ascii_html(uri_escape_utf8($ibx->{name})) . '/';
@@ -41,7 +41,7 @@ sub list_match_i { # ConfigIter callback
                return if $section !~ m!\Apublicinbox\.([^/]+)\z!;
                my $ibx = $cfg->lookup_name($1) or return;
                if (!$ibx->{-hide}->{$ctx->hide_key} &&
-                                       grep(/$re/, @{$ibx->{url}})) {
+                                       grep(/$re/, @{$ibx->{url} // []})) {
                        $ctx->ibx_entry($ibx);
                }
        } else { # undef == "EOF"
@@ -226,9 +226,7 @@ sub psgi_triple {
        } else {
                $gzf->zmore('<pre>no inboxes, yet');
        }
-       my $out = $gzf->zflush('</pre><hr><pre>'.
-                       PublicInbox::WwwStream::code_footer($ctx->{env}) .
-                       '</pre></body></html>');
+       my $out = $gzf->zflush('</pre></body></html>');
        $h->[3] = length($out);
        [ $code, $h, [ $out ] ];
 }