From 52c3178b92d1402a3e9b971748bba3e48ff4abbd Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 30 Jun 2024 10:07:01 -0700
Subject: [PATCH] Add API to delete sections

---
 dovecot/dovecot-lib.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/dovecot/dovecot-lib.pl b/dovecot/dovecot-lib.pl
index dd9a49e55..668abd479 100755
--- a/dovecot/dovecot-lib.pl
+++ b/dovecot/dovecot-lib.pl
@@ -391,6 +391,17 @@ foreach my $m (@{$section->{'members'}}) {
 	}
 }
 
+# delete_section(&conf, &section)
+# Remove a section and all it's members from the config file
+sub delete_section
+{
+my ($conf, $section) = @_;
+my $lref = &read_file_lines($section->{'file'});
+my $len = $section->{'eline'} - $section->{'line'} + 1;
+splice(@$lref, $section->{'line'}, $len);
+&renumber($conf, $section->{'line'}, $section->{'file'}, -$len);
+}
+
 # renumber(&conf, line, file, offset)
 sub renumber
 {