Filter out duplicate folders

webmin · Jun 2, 2024 · 4b64816 · 4b64816
1 parent 8e3ba8c
commit 4b64816
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/mailbox/mailbox-lib.pl b/mailbox/mailbox-lib.pl
@@ -764,6 +764,22 @@ sub list_folders
 		}
 	}
 
+# Filter out duplicate folders by inode
+my @frv;
+my %idone;
+foreach my $f (@rv) {
+	if (!$f->{'file'}) {
+		push(@frv, $f);
+		}
+	else {
+		my @st = stat($f->{'file'});
+		if (!@st || !$done{$st[0],$st[1]}++) {
+			push(@frv, $f);
+			}
+		}
+	}
+@rv = @frv;
+
 @list_folders_cache = @rv;
 return @rv;
 }