-# Copyright (C) 2015, all contributors <meta@public-inbox.org>
+# Copyright (C) 2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
# based on notmuch, but with no concept of folders, files or flags
package PublicInbox::Search;
# 8 - remove redundant/unneeded document data
# 9 - disable Message-ID compression
SCHEMA_VERSION => 9,
+
+ # n.b. FLAG_PURE_NOT is expensive not suitable for a public website
+ # as it could become a denial-of-service vector
QP_FLAGS => FLAG_PHRASE|FLAG_BOOLEAN|FLAG_LOVEHATE|FLAG_WILDCARD,
};
# setup prefixes
my %bool_pfx_internal = (
type => 'T', # "mail" or "ghost"
- mid => 'Q', # uniQue id (Message-ID)
+ thread => 'G', # newsGroup (or similar entity - e.g. a web forum name)
);
my %bool_pfx_external = (
path => 'XPATH',
- thread => 'G', # newsGroup (or similar entity - e.g. a web forum name)
+ mid => 'Q', # uniQue id (Message-ID)
);
my %prob_prefix = (
subject => 'S',
+ s => 'S', # for mairix compatibility
+ m => 'Q', # 'mid' is exact, 'm' can do partial
);
my %all_pfx = (%bool_pfx_internal, %bool_pfx_external, %prob_prefix);
sub get_subject_path {
my ($self, $path, $opts) = @_;
- my $query = $self->qp->parse_query("path:".mid_compress($path), 0);
- $self->do_enquire($query, $opts);
+ my $q = Search::Xapian::Query->new(xpfx("path").mid_compress($path));
+ $self->do_enquire($q, $opts);
}
sub get_thread {
my $smsg = eval { $self->lookup_message($mid) };
return { total => 0, msgs => [] } unless $smsg;
- my $qp = $self->qp;
- my $qtid = $qp->parse_query('thread:'.$smsg->thread_id, 0);
- my $qsub = $qp->parse_query('path:'.mid_compress($smsg->path), 0);
+ my $qtid = Search::Xapian::Query->new(xpfx('thread').$smsg->thread_id);
+ my $path = mid_compress($smsg->path);
+ my $qsub = Search::Xapian::Query->new(xpfx('path').$path);
my $query = Search::Xapian::Query->new(OP_OR, $qtid, $qsub);
$self->do_enquire($query, $opts);
}
$self->{enquire} ||= Search::Xapian::Enquire->new($self->{xdb});
}
+sub mid_prefix {
+ my ($self, $mpfx) = @_;
+ my $query = eval { $self->qp->parse_query("m:$mpfx", FLAG_PARTIAL) };
+ return if $@;
+ my $res = $self->do_enquire($query, { relevance => 1 });
+ return unless $res->{total};
+ [ map { $_->mid } @{$res->{msgs}} ];
+}
+
1;