my $title = $feed_opts->{description} || '';
$title = PublicInbox::Hval->new_oneline($title)->as_html;
my $atom_url = $feed_opts->{atomurl};
- my ($footer, $param, $last, $srch);
+ my ($footer, $param, $last);
my $state = { ctx => $ctx, seen => {}, anchor_idx => 0 };
+ my $srch = $ctx->{srch};
+
+ my $top = "<b>$title</b> (<a\nhref=\"$atom_url\">Atom feed</a>)";
+
+ if ($srch) {
+ $top = qq{<form\naction=""><tt>$top} .
+ qq{ <input\nname=q\ntype=text />} .
+ qq{<input\ntype=submit\nvalue=search />} .
+ qq{</tt></form>} .
+ PublicInbox::View::PRE_WRAP;
+ } else {
+ $top = PublicInbox::View::PRE_WRAP . $top . "\n";
+ }
$fh->write("<html><head><title>$title</title>" .
"<link\nrel=alternate\ntitle=\"Atom feed\"\n".
"href=\"$atom_url\"\ntype=\"application/atom+xml\"/>" .
- '</head><body>' . PublicInbox::View::PRE_WRAP .
- "<b>$title</b> (<a\nhref=\"$atom_url\">Atom feed</a>)\n");
+ "</head><body>$top");
# if the 'r' query parameter is given, it is a legacy permalink
# which we must continue supporting:
my $cgi = $ctx->{cgi};
- if ($cgi && !$cgi->param('r') && ($srch = $ctx->{srch})) {
+ if ($cgi && !$cgi->param('r') && $srch) {
$state->{srch} = $srch;
$last = PublicInbox::View::emit_index_topics($state, $fh);
$param = 'o';
$opts ||= {};
unless ($query_string eq '') {
$query = $self->qp->parse_query($query_string, QP_FLAGS);
- $opts->{relevance} = 1;
+ $opts->{relevance} = 1 unless exists $opts->{relevance};
}
$self->do_enquire($query, $opts);
my $offset = $opts->{offset} || 0;
my $limit = $opts->{limit} || 50;
my $mset = $enquire->get_mset($offset, $limit);
+ return $mset if $opts->{mset};
my @msgs = map {
PublicInbox::SearchMsg->load_doc($_->get_document);
} $mset->items;
--- /dev/null
+# Copyright (C) 2015 all contributors <meta@public-inbox.org>
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+package PublicInbox::SearchView;
+use strict;
+use warnings;
+use PublicInbox::SearchMsg;
+use PublicInbox::Hval;
+use PublicInbox::View;
+use POSIX qw/strftime/;
+
+sub sres_top_html {
+ my ($ctx, $q) = @_;
+ my $cgi = $ctx->{cgi};
+ # $q ||= $cgi->param('q');
+ my $o = int($cgi->param('o') || 0);
+ my $r = $cgi->param('r');
+ $r = (defined $r && $r ne '0');
+ my $opts = { offset => $o, mset => 1, relevance => $r };
+ my $mset = $ctx->{srch}->query($q, $opts);
+ my $total = $mset->get_matches_estimated;
+ my $query = PublicInbox::Hval->new_oneline($q);
+ my $qh = $query->as_html;
+ my $res = "<html><head><title>$qh - search results</title></head>" .
+ qq{<body><form\naction="">} .
+ qq{<input\nname=q\nvalue="$qh"\ntype=text />};
+
+ $res .= qq{<input\ntype=hidden\nname=r />} if $r;
+
+ $res .= qq{<input\ntype=submit\nvalue=search /></form>} .
+ PublicInbox::View::PRE_WRAP;
+
+ my $foot = $ctx->{footer};
+ if ($total == 0) {
+ $foot ||= '';
+ $res .= "\n\n[No results found]</pre><hr /><pre>$foot";
+ } else {
+ $q = $query->as_href;
+ $q =~ s/%20/+/g; # improve URL readability
+ my $qp = "?q=$q";
+ $qp .= "&o=$o" if $o;
+
+ $res .= "Search results ordered by [";
+ if ($r) {
+ $res .= qq{<a\nhref="$qp">date</a>|<b>relevance</b>};
+ } else {
+ $qp .= '&r';
+ $res .= qq{<b>date</b>|<a\nhref="$qp">relevance</a>};
+ }
+ $res .= "]\n\n";
+
+ my $pad = length("$total");
+ my $pfx = ' ' x $pad;
+ foreach my $m ($mset->items) {
+ my $rank = sprintf("%${pad}d", $m->get_rank + 1);
+ my $pct = $m->get_percent;
+ my $smsg = $m->get_document;
+ $smsg = PublicInbox::SearchMsg->load_doc($smsg);
+ my $s = PublicInbox::Hval->new_oneline($smsg->subject);
+ my $f = $smsg->from_name;
+ $f = PublicInbox::Hval->new_oneline($f)->as_html;
+ my $d = strftime('%Y-%m-%d %H:%M', gmtime($smsg->ts));
+ my $mid = $smsg->mid;
+ $mid = PublicInbox::Hval->new_msgid($mid)->as_href;
+ $res .= qq{$rank. <b><a\nhref="$mid/t/#u">}.
+ $s->as_html . "</a></b>\n";
+ $res .= "$pfx - by $f @ $d UTC [$pct%]\n\n";
+ }
+ my $nr = scalar $mset->items;
+ my $end = $o + $nr;
+ my $beg = $o + 1;
+ $res .= "<hr /><pre>";
+ $res .= "Results $beg-$end of $total.";
+ if ($nr < $total) {
+ $o = $o + $nr;
+ $qp = "q=$q&o=$o";
+ $qp .= "&r" if $r;
+ $res .= qq{ <a\nhref="?$qp">more</a>}
+ }
+ $res .= "\n\n".$foot if $foot;
+ }
+
+ $res .= "</pre></body></html>";
+ [200, ['Content-Type'=>'text/html; charset=UTF-8'], [$res]];
+}
+
+sub sres_top_atom {
+}
+
+sub sres_top_thread {
+}
+
+1;
eval {
require PublicInbox::Search;
+ require PublicInbox::SearchView;
require PublicInbox::Mbox;
require IO::Compress::Gzip;
};
my ($ctx) = @_;
require PublicInbox::Feed;
my $srch = searcher($ctx);
+ my $q = $ctx->{cgi}->param('q');
footer($ctx);
- PublicInbox::Feed::generate_html_index($ctx);
+ if (defined $q) {
+ require PublicInbox::SearchView;
+ PublicInbox::SearchView::sres_top_html($ctx, $q);
+ } else {
+ PublicInbox::Feed::generate_html_index($ctx);
+ }
}
# just returns a string ref for the blob in the current ctx