From 311a5d37ad275cd75b1e64d87827c4d13fe4bfab Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Thu, 22 Apr 2021 07:08:20 -0200 Subject: [PATCH] imap_tracker: prepare for use with lei We'll support nodatacow as we do in other SQLite DBs --- lib/PublicInbox/IMAPTracker.pm | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/lib/PublicInbox/IMAPTracker.pm b/lib/PublicInbox/IMAPTracker.pm index 6d4fb227..bcf7af2e 100644 --- a/lib/PublicInbox/IMAPTracker.pm +++ b/lib/PublicInbox/IMAPTracker.pm @@ -62,21 +62,27 @@ VALUES (?, ?, ?) } sub new { - my ($class, $url) = @_; + my ($class, $url, $dbname) = @_; - # original name for compatibility with old setups: - my $dbname = PublicInbox::Config->config_dir() . "/imap.sqlite3"; + unless (defined($dbname)) { + # original name for compatibility with old setups: + $dbname = PublicInbox::Config->config_dir() . '/imap.sqlite3'; - # use the new XDG-compliant name for new setups: - if (!-f $dbname) { - $dbname = ($ENV{XDG_DATA_HOME} // - (($ENV{HOME} // '/nonexistent').'/.local/share')) . - '/public-inbox/imap.sqlite3'; + # use the new XDG-compliant name for new setups: + if (!-f $dbname) { + $dbname = ($ENV{XDG_DATA_HOME} // + (($ENV{HOME} // '/nonexistent'). + '/.local/share')) . + '/public-inbox/imap.sqlite3'; + } } if (!-f $dbname) { require File::Path; require File::Basename; + require PublicInbox::Spawn; File::Path::mkpath(File::Basename::dirname($dbname)); + open my $fh, '+>>', $dbname or die "failed to open $dbname: $!"; + PublicInbox::Spawn::nodatacow_fd(fileno($fh)); } my $self = bless { lock_path => "$dbname.lock", url => $url }, $class; $self->lock_acquire; -- 2.48.1