_set_limiter($opts, $pi_config, 'httpbackend');
_set_uint($opts, 'feedmax', 25);
$opts->{nntpserver} ||= $pi_config->{'publicinbox.nntpserver'};
+ my $dir = $opts->{mainrepo};
+ if (defined $dir && -f "$dir/msgmap.sqlite3") { # XXX DIRTY
+ $opts->{version} = 2;
+ }
bless $opts, $class;
}
my ($self) = @_;
$self->{mm} ||= eval {
_cleanup_later($self);
- PublicInbox::Msgmap->new($self->{mainrepo});
+ my $dir = $self->{mainrepo};
+ if (($self->{version} || 1) >= 2) {
+ PublicInbox::Msgmap->new_file("$dir/msgmap.sqlite3");
+ } else {
+ PublicInbox::Msgmap->new($dir);
+ }
};
}
my ($self) = @_;
$self->{search} ||= eval {
_cleanup_later($self);
- PublicInbox::Search->new($self->{mainrepo}, $self->{altid});
+ PublicInbox::Search->new($self, $self->{altid});
};
}
# backwards compat to fallback to msg_by_mid
# TODO: remove if we bump SCHEMA_VERSION in Search.pm:
defined(my $blob = $smsg->{blob}) or
- return msg_by_mid($self, $smsg->mid);
+ return msg_by_path($self, mid2path($smsg->mid), $ref);
my $str = git($self)->cat_file($blob, $ref);
$$str =~ s/\A[\r\n]*From [^\r\n]*\r?\n//s if $str;
sub msg_by_mid ($$;$) {
my ($self, $mid, $ref) = @_;
- msg_by_path($self, mid2path($mid), $ref);
+ my $srch = search($self) or
+ return msg_by_path($self, mid2path($mid), $ref);
+ my $smsg = $srch->lookup_skeleton($mid) or return;
+ $smsg->load_expand;
+ msg_by_smsg($self, $smsg, $ref);
}
1;
altid => $altid,
version => $version,
}, $class;
- $self->{xdb} = Search::Xapian::Database->new($self->xdir);
+ if ($version >= 2) {
+ my $dir = "$self->{mainrepo}/xap" . SCHEMA_VERSION;
+ my $xdb;
+ my $parts = 0;
+ foreach my $part (<$dir/*>) {
+ -d $part && $part =~ m!/\d+\z! or next;
+ $parts++;
+ my $sub = Search::Xapian::Database->new($part);
+ if ($xdb) {
+ $xdb->add_database($sub);
+ } else {
+ $xdb = $sub;
+ }
+ }
+ warn "v2 repo with $parts found in $dir\n";
+ $self->{xdb} = $xdb;
+ $self->{skel} = Search::Xapian::Database->new("$dir/all");
+ } else {
+ $self->{xdb} = Search::Xapian::Database->new($self->xdir);
+ }
$self;
}
sub get_thread {
my ($self, $mid, $opts) = @_;
- my $smsg = eval { $self->lookup_message($mid) };
+ my $smsg = eval { $self->lookup_skeleton($mid) };
return { total => 0, msgs => [] } unless $smsg;
my $qtid = Search::Xapian::Query->new('G' . $smsg->thread_id);
_do_enquire($self, $query, {num => 1, limit => 200, offset => $offset});
}
+sub lookup_skeleton {
+ my ($self, $mid) = @_;
+ my $skel = $self->{skel} or return lookup_message($self, $mid);
+ $mid = mid_clean($mid);
+ my $term = 'XMID' . $mid;
+ my $smsg;
+ my $beg = $skel->postlist_begin($term);
+ if ($beg != $skel->postlist_end($term)) {
+ my $doc_id = $beg->get_docid;
+ if (defined $doc_id) {
+ # raises on error:
+ my $doc = $skel->get_document($doc_id);
+ $smsg = PublicInbox::SearchMsg->wrap($doc, $mid);
+ $smsg->{doc_id} = $doc_id;
+ }
+ }
+ $smsg;
+}
+
sub lookup_message {
my ($self, $mid) = @_;
$mid = mid_clean($mid);