}
# $startq will EOF when do_augment is done augmenting and allow
-# query_mset and query_thread_mset to proceed.
+# query_combined_mset and query_thread_mset to proceed.
sub wait_startq ($) {
my ($lei) = @_;
my $startq = delete $lei->{startq} or return;
}
}
-sub query_thread_mset { # for --threads
+sub query_one_mset { # for --threads and l2m w/o sort
my ($self, $ibxish) = @_;
- local $0 = "$0 query_thread_mset";
+ local $0 = "$0 query_one_mset";
my $lei = $self->{lei};
my ($srch, $over) = ($ibxish->search, $ibxish->over);
- my $desc = $ibxish->{inboxdir} // $ibxish->{topdir};
- return warn("$desc not indexed by Xapian\n") unless ($srch && $over);
- my $mo = { %{$lei->{mset_opt}} };
+ my $dir = $ibxish->{inboxdir} // $ibxish->{topdir};
+ return warn("$dir not indexed by Xapian\n") unless ($srch && $over);
+ my $mo = { %{$lei->{mset_opt}} }; # copy
my $mset;
- my $each_smsg = $lei->{ovv}->ovv_each_smsg_cb($lei, $ibxish);
+ my $each_smsg = $lei->{ovv}->ovv_each_smsg_cb($lei);
my $can_kw = !!$ibxish->can('msg_keywords');
- my $fl = $lei->{opt}->{threads} > 1 ? 1 : undef;
+ my $threads = $lei->{opt}->{threads} // 0;
+ my $fl = $threads > 1 ? 1 : undef;
+ my $lss = $lei->{dedupe};
+ $lss = undef unless $lss && $lss->can('cfg_set'); # saved search
+ my $maxk = "external.$dir.maxuid";
+ my $stop_at = $lss ? $lss->{-cfg}->{$maxk} : undef;
+ if (defined $stop_at) {
+ die "$maxk=$stop_at has multiple values" if ref $stop_at;
+ my @e;
+ local $SIG{__WARN__} = sub { push @e, @_ };
+ $stop_at += 0;
+ return warn("$maxk=$stop_at: @e") if @e;
+ }
+ my $first_ids;
do {
$mset = $srch->mset($mo->{qstr}, $mo);
- mset_progress($lei, $desc, $mset->size,
+ mset_progress($lei, $dir, $mset->size,
$mset->get_matches_estimated);
wait_startq($lei); # wait for keyword updates
my $ids = $srch->mset_to_artnums($mset, $mo);
- my $ctx = { ids => $ids };
+ @$ids = grep { $_ > $stop_at } @$ids if defined($stop_at);
my $i = 0;
- my %n2item = map { ($ids->[$i++], $_) } $mset->items;
- while ($over->expand_thread($ctx)) {
- for my $n (@{$ctx->{xids}}) {
- my $smsg = $over->get_art($n) or next;
- my $mitem = delete $n2item{$smsg->{num}};
- next if $smsg->{bytes} == 0;
- if ($mitem) {
- if ($can_kw) {
+ if ($threads) {
+ # copy $ids if $lss since over->expand_thread
+ # shifts @{$ctx->{ids}}
+ $first_ids = [ @$ids ] if $lss;
+ my $ctx = { ids => $ids };
+ my %n2item = map { ($ids->[$i++], $_) } $mset->items;
+ while ($over->expand_thread($ctx)) {
+ for my $n (@{$ctx->{xids}}) {
+ my $smsg = $over->get_art($n) or next;
+ my $mitem = delete $n2item{$n};
+ next if $smsg->{bytes} == 0;
+ if ($mitem && $can_kw) {
mitem_kw($smsg, $mitem, $fl);
- } elsif ($fl) {
+ } elsif ($mitem && $fl) {
# call ->xsmsg_vmd, later
$smsg->{lei_q_tt_flagged} = 1;
}
+ $each_smsg->($smsg, $mitem);
}
+ @{$ctx->{xids}} = ();
+ }
+ } else {
+ $first_ids = $ids;
+ my @items = $mset->items;
+ for my $n (@$ids) {
+ my $mitem = $items[$i++];
+ my $smsg = $over->get_art($n) or next;
+ next if $smsg->{bytes} == 0;
+ mitem_kw($smsg, $mitem, $fl) if $can_kw;
$each_smsg->($smsg, $mitem);
}
- @{$ctx->{xids}} = ();
}
} while (_mset_more($mset, $mo));
- undef $each_smsg; # drops @io for l2m->{each_smsg_done}
+ if ($lss && scalar(@$first_ids)) {
+ undef $stop_at;
+ my $max = $first_ids->[0];
+ $lss->cfg_set($maxk, $max);
+ undef $lss;
+ }
+ undef $each_smsg; # may commit
$lei->{ovv}->ovv_atexit_child($lei);
}
-sub query_mset { # non-parallel for non-"--threads" users
+sub query_combined_mset { # non-parallel for non-"--threads" users
my ($self) = @_;
- local $0 = "$0 query_mset";
+ local $0 = "$0 query_combined_mset";
my $lei = $self->{lei};
my $mo = { %{$lei->{mset_opt}} };
my $mset;
for my $loc (locals($self)) {
attach_external($self, $loc);
}
- my $each_smsg = $lei->{ovv}->ovv_each_smsg_cb($lei, $self);
+ my $each_smsg = $lei->{ovv}->ovv_each_smsg_cb($lei);
do {
$mset = $self->mset($mo->{qstr}, $mo);
mset_progress($lei, 'xsearch', $mset->size,
$each_smsg->($smsg, $mitem);
}
} while (_mset_more($mset, $mo));
- undef $each_smsg; # drops @io for l2m->{each_smsg_done}
+ undef $each_smsg; # may commit
$lei->{ovv}->ovv_atexit_child($lei);
}
}
my $wait = $lei->{sto} ? $lei->{sto}->ipc_do('done') : undef;
$lei->{ovv}->ovv_end($lei);
+ my @out;
if ($l2m) { # close() calls LeiToMail reap_compress
+ @out = (" in $lei->{ovv}->{dst}");
if (my $out = delete $lei->{old_1}) {
if (my $mbout = $lei->{1}) {
close($mbout) or return $lei->fail(<<"");
}
}
$lei->{-progress} and
- $lei->err('# ', $lei->{-mset_total} // 0, " matches");
+ $lei->err('# ', $lei->{-mset_total} // 0, " matches", @out);
$lei->dclose;
}
$nl + $nr;
}
-sub start_query { # always runs in main (lei-daemon) process
- my ($self) = @_;
- if ($self->{threads}) {
+sub start_query ($;$) { # always runs in main (lei-daemon) process
+ my ($self, $l2m) = @_;
+ if ($self->{opt_threads} || ($l2m && !$self->{opt_sort})) {
for my $ibxish (locals($self)) {
- $self->wq_io_do('query_thread_mset', [], $ibxish);
+ $self->wq_io_do('query_one_mset', [], $ibxish);
}
} elsif (locals($self)) {
- $self->wq_io_do('query_mset', []);
+ $self->wq_io_do('query_combined_mset', []);
}
my $i = 0;
my $q = [];
sub incr_start_query { # called whenever an l2m shard starts do_post_auth
my ($self, $l2m) = @_;
return if ++$self->{nr_start_query} != $l2m->{-wq_nr_workers};
- start_query($self);
+ start_query($self, $l2m);
}
sub ipc_atfork_child {
my $op_c = delete $lei->{pkt_op_c};
delete $lei->{pkt_op_p};
@$end = ();
- $self->{threads} = $lei->{opt}->{threads};
+ $self->{opt_threads} = $lei->{opt}->{threads};
+ $self->{opt_sort} = $lei->{opt}->{'sort'};
if ($l2m) {
$l2m->net_merge_complete unless $lei->{auth};
} else {