use PublicInbox::ConfigIter;
use PublicInbox::WwwStream;
use URI::Escape qw(uri_escape_utf8);
+use PublicInbox::MID qw(mid_escape);
sub ibx_entry {
my ($ctx, $ibx, $ce) = @_;
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);
$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>
+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'})) {
} else {
$gzf->zmore('<pre>no inboxes, yet');
}
- my $out = $gzf->zflush('</pre></body></html>');
+ my $out = $gzf->zflush('</pre><hr><pre>'.
+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] = length($out);
[ $code, $h, [ $out ] ];
}