lib/PublicInbox/SearchView.pm

   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;
   4 use strict;
   5 use warnings;
   6 use PublicInbox::SearchMsg;
   7 use PublicInbox::Hval;
   8 use PublicInbox::View;
   9 use POSIX qw/strftime/;
  10
  11 sub sres_top_html {
  12         my ($ctx, $q) = @_;
  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 />};
  26
  27         $res .= qq{<input\ntype=hidden\nname=r />} if $r;
  28
  29         $res .= qq{<input\ntype=submit\nvalue=search /></form>} .
  30                   PublicInbox::View::PRE_WRAP;
  31
  32         my $foot = $ctx->{footer};
  33         if ($total == 0) {
  34                 $foot ||= '';
  35                 $res .= "\n\n[No results found]</pre><hr /><pre>$foot";
  36         } else {
  37                 $q = $query->as_href;
  38                 $q =~ s/%20/+/g; # improve URL readability
  39                 my $qp = "?q=$q";
  40                 $qp .= "&amp;o=$o" if $o;
  41
  42                 $res .= "Search results ordered by [";
  43                 if ($r) {
  44                         $res .= qq{<a\nhref="$qp">date</a>|<b>relevance</b>};
  45                 } else {
  46                         $qp .= '&amp;r';
  47                         $res .= qq{<b>date</b>|<a\nhref="$qp">relevance</a>};
  48                 }
  49                 $res .= "]\n\n";
  50
  51                 my $pad = length("$total");
  52                 my $pfx = ' ' x $pad;
  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));
  62                         my $mid = $smsg->mid;
  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";
  67                 }
  68                 my $nr = scalar $mset->items;
  69                 my $end = $o + $nr;
  70                 my $beg = $o + 1;
  71                 $res .= "<hr /><pre>";
  72                 $res .= "Results $beg-$end of $total.";
  73                 if ($nr < $total) {
  74                         $o = $o + $nr;
  75                         $qp = "q=$q&amp;o=$o";
  76                         $qp .= "&amp;r" if $r;
  77                         $res .= qq{ <a\nhref="?$qp">more</a>}
  78                 }
  79                 $res .= "\n\n".$foot if $foot;
  80         }
  81
  82         $res .= "</pre></body></html>";
  83         [200, ['Content-Type'=>'text/html; charset=UTF-8'], [$res]];
  84 }
  85
  86 sub sres_top_atom {
  87 }
  88
  89 sub sres_top_thread {
  90 }
  91
  92 1;