# Used by PublicInbox::WWW
package PublicInbox::WwwListing;
use strict;
+use v5.10.1;
use PublicInbox::Hval qw(prurl fmt_ts ascii_html);
-use PublicInbox::Linkify;
use PublicInbox::GzipFilter qw(gzf_maybe);
use PublicInbox::ConfigIter;
use PublicInbox::WwwStream;
-use bytes (); # bytes::length
+use URI::Escape qw(uri_escape_utf8);
+use PublicInbox::MID qw(mid_escape);
sub ibx_entry {
my ($ctx, $ibx, $ce) = @_;
- $ce->{description} //= $ibx->description;
+ my $desc = ascii_html($ce->{description} //= $ibx->description);
my $ts = fmt_ts($ce->{-modified} //= $ibx->modified);
- my $url = prurl($ctx->{env}, $ibx->{url});
- my $tmp = <<"";
-* $ts - $url
- $ce->{description}
-
- if (defined(my $info_url = $ibx->{infourl})) {
- $tmp .= ' ' . prurl($ctx->{env}, $info_url) . "\n";
+ my ($url, $href);
+ if (scalar(@{$ibx->{url} // []})) {
+ $url = $href = ascii_html(prurl($ctx->{env}, $ibx->{url}));
+ } else {
+ $href = ascii_html(uri_escape_utf8($ibx->{name})) . '/';
+ $url = ascii_html($ibx->{name});
+ }
+ my $tmp = <<EOM;
+* $ts - <a\nhref="$href">$url</a>
+ $desc
+EOM
+ if (defined($url = $ibx->{infourl})) {
+ $url = ascii_html(prurl($ctx->{env}, $url));
+ $tmp .= qq( <a\nhref="$url">$url</a>\n);
}
push(@{$ctx->{-list}}, (scalar(@_) == 3 ? # $misc in use, already sorted
$tmp : [ $ce->{-modified}, $tmp ] ));
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"
} elsif ($v eq 'all') {
(qr/./, undef);
} elsif ($v eq '404') {
- undef;
+ (undef, undef);
} else {
warn <<EOF;
`$v' is not a valid value for `$key'
limit => $q->{l}
};
$qs .= ' type:inbox';
- if (my $user_query = $q->{'q'}) {
+
+ delete $ctx->{-list}; # reset if retried
+ my $pi_cfg = $ctx->{www}->{pi_cfg};
+ my $user_query = $q->{'q'} // '';
+ if ($user_query =~ /\S/) {
$qs = "( $qs ) AND ( $user_query )";
+ } else { # special case for ALL
+ $ctx->ibx_entry($pi_cfg->ALL // die('BUG: ->ALL expected'), {});
}
my $mset = $misc->mset($qs, $opt); # sorts by $MODIFIED (mtime)
- delete $ctx->{-list}; # reset if retried
- my $pi_cfg = $ctx->{www}->{pi_cfg};
+ my $hide_key = $ctx->hide_key;
+
for my $mi ($mset->items) {
my $doc = $mi->get_document;
my ($eidx_key) = PublicInbox::Search::xap_terms('Q', $doc);
$eidx_key // next;
my $ibx = $pi_cfg->lookup_eidx_key($eidx_key) // next;
- next if $ibx->{-hide}->{$ctx->hide_key};
- grep(/$re/, @{$ibx->{url}}) or next;
+ next if $ibx->{-hide}->{$hide_key};
+ grep(/$re/, @{$ibx->{url} // []}) or next;
$ctx->ibx_entry($ibx, $misc->doc2ibx_cache_ent($doc));
if ($r) { # for descriptions in search_nav_bot
my $pct = PublicInbox::Search::get_pct($mi);
my ($re, $qs) = $ctx->url_filter;
$re // return $ctx->psgi_triple;
if (my $ALL = $ctx->{www}->{pi_cfg}->ALL) { # fast path
+ if ($ctx->{qp}->{a} && # "search all inboxes"
+ $ctx->{qp}->{'q'}) {
+ my $u = 'all/?q='.mid_escape($ctx->{qp}->{'q'});
+ return [ 302, [ 'Location' => $u,
+ qw(Content-Type text/plain) ],
+ [ "Redirecting to $u\n" ] ];
+ }
# FIXME: test this in t/
$ALL->misc->reopen->retry_reopen(\&add_misc_ibx,
$ctx, $re, $qs);
# no footer if too few matches
return '' if $mset->get_matches_estimated == $mset->size;
require PublicInbox::SearchView;
- PublicInbox::SearchView::search_nav_bot($mset, $ctx->{-sq});
+ PublicInbox::SearchView::search_nav_bot($ctx, $mset, $ctx->{-sq});
}
sub mset_nav_top {
my ($ctx, $mset) = @_;
my $q = $ctx->{-sq};
my $qh = $q->{'q'} // '';
- utf8::decode($qh);
- $qh = ascii_html($qh);
- $qh = qq[\nvalue="$qh"] if $qh ne '';
- my $rv = <<EOM;
-<form
-action="./"><pre><input
-name=q
-type=text$qh /><input
-type=submit
-value="locate inbox" /></pre></form><pre>
+ if ($qh ne '') {
+ utf8::decode($qh);
+ $qh = qq[\nvalue="].ascii_html($qh).'"';
+ }
+ chop(my $rv = <<EOM);
+<form action="./"><pre><input name=q type=text$qh/><input
+type=submit value="locate inbox"/><input type=submit name=a
+value="search all inboxes"/></pre></form><pre>
EOM
- chomp $rv;
if (defined($q->{'q'})) {
my $initial_q = $ctx->{-uxs_retried};
if (defined $initial_q) {
my $h = [ 'Content-Type', 'text/html; charset=UTF-8',
'Content-Length', undef ];
my $gzf = gzf_maybe($h, $ctx->{env});
- $gzf->zmore('<html><head><title>' .
- 'public-inbox listing</title>' .
- '</head><body>');
+ my $zfh = $gzf->zfh;
+ print $zfh '<html><head><title>public-inbox listing</title>',
+ $ctx->{www}->style('+/'),
+ '</head><body>';
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;
}
- $list = join("\n", @$list);
- my $l = PublicInbox::Linkify->new;
- $gzf->zmore('<pre>'.$l->to_html($list));
- $gzf->zmore(mset_footer($ctx, $mset)) if $mset;
+ print $zfh '<pre>', join("\n", @$list); # big
+ print $zfh mset_footer($ctx, $mset) if $mset;
+ } elsif (my $mset = delete $ctx->{-mset}) {
+ print $zfh mset_nav_top($ctx, $mset),
+ '<pre>no matching inboxes',
+ mset_footer($ctx, $mset);
} else {
- $gzf->zmore('<pre>no inboxes, yet');
+ print $zfh '<pre>no inboxes, yet';
}
my $out = $gzf->zflush('</pre><hr><pre>'.
- PublicInbox::WwwStream::code_footer($ctx->{env}) .
+qq(This is a listing of public inboxes, see the `mirror' link of each inbox
+for instructions on how to mirror all the data and code on this site.) .
'</pre></body></html>');
- $h->[3] = bytes::length($out);
+ $h->[3] = length($out);
[ $code, $h, [ $out ] ];
}