lei import: speed up kw updates for old IMAP messages

[public-inbox.git] / lib / PublicInbox / Over.pm

diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm
index 0e191c475ef01204a4f05e8207de3e2e21028d68..58fdea0e197ce4c54364a0e45befc89560284f6a 100644 (file)
--- a/lib/PublicInbox/Over.pm
+++ b/lib/PublicInbox/Over.pm
@@ -349,13 +349,13 @@ sub check_inodes {
        }
 }
 
-sub blob_exists {
-       my ($self, $oidhex) = @_;
+sub oidbin_exists {
+       my ($self, $oidbin) = @_;
        if (wantarray) {
                my $sth = $self->dbh->prepare_cached(<<'', undef, 1);
 SELECT docid FROM xref3 WHERE oidbin = ? ORDER BY docid ASC
 
-               $sth->bind_param(1, pack('H*', $oidhex), SQL_BLOB);
+               $sth->bind_param(1, $oidbin, SQL_BLOB);
                $sth->execute;
                my $tmp = $sth->fetchall_arrayref;
                map { $_->[0] } @$tmp;
@@ -363,10 +363,12 @@ SELECT docid FROM xref3 WHERE oidbin = ? ORDER BY docid ASC
                my $sth = $self->dbh->prepare_cached(<<'', undef, 1);
 SELECT COUNT(*) FROM xref3 WHERE oidbin = ?
 
-               $sth->bind_param(1, pack('H*', $oidhex), SQL_BLOB);
+               $sth->bind_param(1, $oidbin, SQL_BLOB);
                $sth->execute;
                $sth->fetchrow_array;
        }
 }
 
+sub blob_exists { oidbin_exists($_[0], pack('H*', $_[1])) }
+
 1;