aboutsummaryrefslogtreecommitdiffstats
path: root/interimap
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2019-05-19 15:00:45 +0200
committerGuilhem Moulin <guilhem@fripost.org>2019-05-27 00:07:30 +0200
commit06e459f3ccfb407d7587c470c37328df386b6ff6 (patch)
treee66cf4343498bfcbcd9785b3f2428951e5806b80 /interimap
parent25362c873c7641341f17e9c2e8d17d82cb3d94c5 (diff)
interimap: Enforce SQLite foreign key constraints.
Setting the 'foreign_keys' PRAGMA during a multi-statement transaction (when SQLite is not in autocommit mode) is a no-op. https://www.sqlite.org/pragma.html#pragma_foreign_keys https://www.sqlite.org/foreignkeys.html#fk_enable
Diffstat (limited to 'interimap')
-rwxr-xr-xinterimap11
1 files changed, 7 insertions, 4 deletions
diff --git a/interimap b/interimap
index 3e1979b..78f50fa 100755
--- a/interimap
+++ b/interimap
@@ -162,7 +162,6 @@ $SIG{TERM} = sub { cleanup(); exit 0; };
my %dbi_attrs = (
AutoCommit => 0,
RaiseError => 1,
- sqlite_see_if_its_a_number => 1, # see if the bind values are numbers or not
sqlite_use_immediate_transaction => 1,
sqlite_open_flags => SQLITE_OPEN_READWRITE
);
@@ -174,7 +173,8 @@ $SIG{TERM} = sub { cleanup(); exit 0; };
# Try to lock the database before any network traffic so we can fail
# early if the database is already locked.
$DBH->do("PRAGMA locking_mode = EXCLUSIVE");
- $DBH->do("PRAGMA foreign_keys = ON");
+ $DBH->{AutoCommit} = 1; # turned back off later
+ $DBH->do("PRAGMA foreign_keys = OFF"); # toggled later (no-op if not in autocommit mode)
}
sub msg($@) {
@@ -380,6 +380,7 @@ fail(undef, "Local and remote namespaces are neither both flat nor both hierarch
if ($schema_version < $DATABASE_VERSION) {
# schema creation or upgrade required
+ $DBH->begin_work();
if ($schema_version == 0) {
my $sth = $DBH->table_info(undef, undef, undef, "TABLE");
unless (defined $sth->fetch()) {
@@ -401,7 +402,6 @@ fail(undef, "Local and remote namespaces are neither both flat nor both hierarch
if defined $IMAP->{local}->{delimiter} and defined $IMAP->{remote}->{delimiter}
# we failed earlier if only one of them was NIL
and $IMAP->{local}->{delimiter} ne $IMAP->{remote}->{delimiter};
- $DBH->do("PRAGMA foreign_keys = OFF");
$DBH->do("CREATE TABLE _tmp${DATABASE_VERSION}_mailboxes (". join(", ",
q{idx INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT},
q{mailbox BLOB COLLATE BINARY NOT NULL CHECK (mailbox != '') UNIQUE},
@@ -419,12 +419,15 @@ fail(undef, "Local and remote namespaces are neither both flat nor both hierarch
}
$DBH->do("DROP TABLE mailboxes");
$DBH->do("ALTER TABLE _tmp${DATABASE_VERSION}_mailboxes RENAME TO mailboxes");
- $DBH->do("PRAGMA foreign_keys = ON");
}
+ fail("database", "Broken referential integrity! Refusing to commit changes.")
+ if defined $DBH->selectrow_arrayref("PRAGMA foreign_key_check");
SCHEMA_DONE:
$DBH->do("PRAGMA user_version = $DATABASE_VERSION");
$DBH->commit();
}
+ $DBH->do("PRAGMA foreign_keys = ON"); # no-op if not in autocommit mode
+ $DBH->{AutoCommit} = 0; # always explicitly commit changes
}