1 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
2 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
3 package PublicInbox::SearchView;
6 use PublicInbox::SearchMsg;
9 use POSIX qw/strftime/;
13 my $cgi = $ctx->{cgi};
14 # $q ||= $cgi->param('q');
15 my $o = int($cgi->param('o') || 0);
16 my $r = $cgi->param('r');
17 $r = (defined $r && $r ne '0');
18 my $opts = { offset => $o, mset => 1, relevance => $r };
19 my $mset = $ctx->{srch}->query($q, $opts);
20 my $total = $mset->get_matches_estimated;
21 my $query = PublicInbox::Hval->new_oneline($q);
22 my $qh = $query->as_html;
23 my $res = "<html><head><title>$qh - search results</title></head>" .
24 qq{<body><form\naction="">} .
25 qq{<input\nname=q\nvalue="$qh"\ntype=text />};
27 $res .= qq{<input\ntype=hidden\nname=r />} if $r;
29 $res .= qq{<input\ntype=submit\nvalue=search /></form>} .
30 PublicInbox::View::PRE_WRAP;
32 my $foot = $ctx->{footer};
35 $res .= "\n\n[No results found]</pre><hr /><pre>$foot";
38 $q =~ s/%20/+/g; # improve URL readability
40 $qp .= "&o=$o" if $o;
42 $res .= "Search results ordered by [";
44 $res .= qq{<a\nhref="$qp">date</a>|<b>relevance</b>};
47 $res .= qq{<b>date</b>|<a\nhref="$qp">relevance</a>};
51 my $pad = length("$total");
53 foreach my $m ($mset->items) {
54 my $rank = sprintf("%${pad}d", $m->get_rank + 1);
55 my $pct = $m->get_percent;
56 my $smsg = $m->get_document;
57 $smsg = PublicInbox::SearchMsg->load_doc($smsg);
58 my $s = PublicInbox::Hval->new_oneline($smsg->subject);
59 my $f = $smsg->from_name;
60 $f = PublicInbox::Hval->new_oneline($f)->as_html;
61 my $d = strftime('%Y-%m-%d %H:%M', gmtime($smsg->ts));
63 $mid = PublicInbox::Hval->new_msgid($mid)->as_href;
64 $res .= qq{$rank. <b><a\nhref="$mid/t/#u">}.
65 $s->as_html . "</a></b>\n";
66 $res .= "$pfx - by $f @ $d UTC [$pct%]\n\n";
68 my $nr = scalar $mset->items;
71 $res .= "<hr /><pre>";
72 $res .= "Results $beg-$end of $total.";
75 $qp = "q=$q&o=$o";
76 $qp .= "&r" if $r;
77 $res .= qq{ <a\nhref="?$qp">more</a>}
79 $res .= "\n\n".$foot if $foot;
82 $res .= "</pre></body></html>";
83 [200, ['Content-Type'=>'text/html; charset=UTF-8'], [$res]];