From: Eric Wong <e@80x24.org>
Date: Tue, 31 Aug 2021 11:21:20 +0000 (+0000)
Subject: lei_mail_sync: make rename_folder more robust
X-Git-Tag: v1.7.0~471
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=7f8d7e22ca8b6d1a5499f8782f7f05020d7d3b95;p=public-inbox.git

lei_mail_sync: make rename_folder more robust

We need to account for past canonicalization errors and deal
with cases which violate uniqueness constraints in
mail_sync.sqlite3
---

diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index 56468c78..275e0cc4 100644
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -412,11 +412,24 @@ sub forget_folder {
 # only used for changing canonicalization errors
 sub rename_folder {
 	my ($self, $old, $new) = @_;
-	my $fid = delete($self->{fmap}->{$old}) //
+	my $ofid = delete($self->{fmap}->{$old}) //
 		fid_for($self, $old) // return;
-	$self->{dbh}->do(<<EOM, undef, $new, $fid);
+	eval {
+		$self->{dbh}->do(<<EOM, undef, $new, $ofid);
 UPDATE folders SET loc = ? WHERE fid = ?
 EOM
+	};
+	if ($@ =~ /\bunique\b/i) {
+		my $nfid = $self->{fmap}->{$new} // fid_for($self, $new);
+		for my $t (qw(blob2name blob2num)) {
+			$self->{dbh}->do(<<EOM, undef, $nfid, $ofid);
+UPDATE OR REPLACE $t SET fid = ? WHERE fid = ?
+EOM
+		}
+		$self->{dbh}->do(<<EOM, undef, $ofid);
+DELETE FROM folders WHERE fid = ?
+EOM
+	}
 }
 
 sub imap_oidbin ($$$) {