# leading "//" denotes protocol-relative (http:// or https://)
'//marc.info/?i=%s',
'//www.mail-archive.com/search?l=mid&q=%s',
- 'http://mid.gmane.org/%s',
+ 'nntp://news.gmane.org/%s',
'https://lists.debian.org/msgid-search/%s',
'//docs.FreeBSD.org/cgi/mid.cgi?db=mid&id=%s',
'https://www.w3.org/mid/%s',
my $cur = $ctx->{-inbox};
my $mid = $ctx->{mid};
- eval { require PublicInbox::Search };
- my $have_xap = $@ ? 0 : 1;
- my (@nox, @ibx, @found);
+ eval { require PublicInbox::Msgmap };
+ my $have_mm = $@ ? 0 : 1;
+ my (@ibx, @found);
$ctx->{www}->{pi_config}->each_inbox(sub {
my ($other) = @_;
return if $other->{name} eq $cur->{name} || !$other->base_url;
- my $s = $other->search;
- if (!$s) {
- push @nox, $other;
- return;
- }
-
- # try to find the URL with Xapian to avoid forking
- my $doc_id = eval { $s->find_first_doc_id('Q' . $mid) };
- if ($@) {
- # xapian not configured properly for this repo
- push @nox, $other;
- return;
- }
+ my $mm = $other->mm or return;
- # maybe we found it!
- if (defined $doc_id) {
+ # try to find the URL with Msgmap to avoid forking
+ my $num = $mm->num_for($mid);
+ if (defined $num) {
push @found, $other;
} else {
# no point in trying the fork fallback if we
return exact($ctx, \@found, $mid) if @found;
- # Xapian not installed or configured for some repos,
- # do a full MID check (this is expensive...):
- if (@nox) {
- my $path = mid2path($mid);
- foreach my $other (@nox) {
- my (undef, $type, undef) = $other->path_check($path);
+ # fall back to partial MID matching
+ my $n_partial = 0;
+ my @partial;
- if ($type && $type eq 'blob') {
- push @found, $other;
+ if (my $mm = $cur->mm) {
+ my $tmp_mid = $mid;
+ my $res = $mm->mid_prefixes($tmp_mid, 100);
+ if ($res && scalar(@$res)) {
+ $n_partial += scalar(@$res);
+ push @partial, [ $cur, $res ];
+ # fixup common errors:
+ } elsif ($tmp_mid =~ s,/[tTf],,) {
+ $res = $mm->mid_prefixes($tmp_mid, 100);
+ if ($res && scalar(@$res)) {
+ $n_partial += scalar(@$res);
+ push @partial, [ $cur, $res ];
}
}
}
- return exact($ctx, \@found, $mid) if @found;
- # fall back to partial MID matching
- my $n_partial = 0;
- my @partial;
-
- eval { require PublicInbox::Msgmap };
- my $have_mm = $@ ? 0 : 1;
- if ($have_mm) {
+ # can't find a partial match in current inbox, try the others:
+ if (!$n_partial && length($mid) >= 16) {
my $tmp_mid = $mid;
again:
- unshift @ibx, $cur;
foreach my $ibx (@ibx) {
my $mm = $ibx->mm or next;
- if (my $res = $mm->mid_prefixes($tmp_mid)) {
+ my $res = $mm->mid_prefixes($tmp_mid, 100);
+ if ($res && scalar(@$res)) {
$n_partial += scalar(@$res);
push @partial, [ $ibx, $res ];
+ last if $n_partial >= 100;
}
}
# fixup common errors: