X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FIMAPTracker.pm;h=4efa8a7e7e38b774ee09709b1de027d7c4cd8b79;hb=14fa0abdcc7b6513540e529375e53edd74ce13e8;hp=92f21584842d97d2d6d1d3747596e251ad8719d6;hpb=1e3c53a422b8d23cff961e43f77ea0a835cdef78;p=public-inbox.git diff --git a/lib/PublicInbox/IMAPTracker.pm b/lib/PublicInbox/IMAPTracker.pm index 92f21584..4efa8a7e 100644 --- a/lib/PublicInbox/IMAPTracker.pm +++ b/lib/PublicInbox/IMAPTracker.pm @@ -1,4 +1,4 @@ -# Copyright (C) 2018-2020 all contributors +# Copyright (C) all contributors # License: AGPL-3.0+ package PublicInbox::IMAPTracker; use strict; @@ -49,13 +49,14 @@ SELECT uid_validity, uid FROM imap_last WHERE url = ? } sub update_last ($$$) { - my ($self, $validity, $last) = @_; + my ($self, $validity, $last_uid) = @_; + return unless defined $last_uid; my $sth = $self->{dbh}->prepare_cached(<<''); INSERT OR REPLACE INTO imap_last (url, uid_validity, uid) VALUES (?, ?, ?) $self->lock_acquire; - my $rv = $sth->execute($self->{url}, $validity, $last); + my $rv = $sth->execute($self->{url}, $validity, $last_uid); $self->lock_release; $rv; } @@ -64,7 +65,7 @@ sub new { my ($class, $url) = @_; # original name for compatibility with old setups: - my $dbname = PublicInbox::Config->config_dir() . "/imap.sqlite3"; + my $dbname = PublicInbox::Config->config_dir() . '/imap.sqlite3'; # use the new XDG-compliant name for new setups: if (!-f $dbname) { @@ -74,8 +75,11 @@ sub new { } if (!-f $dbname) { require File::Path; - require File::Basename; - File::Path::mkpath(File::Basename::dirname($dbname)); + require PublicInbox::Syscall; + my ($dir) = ($dbname =~ m!(.*?/)[^/]+\z!); + File::Path::mkpath($dir); + PublicInbox::Syscall::nodatacow_dir($dir); + open my $fh, '+>>', $dbname or die "failed to open $dbname: $!"; } my $self = bless { lock_path => "$dbname.lock", url => $url }, $class; $self->lock_acquire;