michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 08:40:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add new API to renumber sections and members 218a5034c5

Browse Source
This commit is contained in:
Ilia Rostovtsev
2020-08-10 15:48:25 +03:00
parent 5867b4120e
commit 3cf65f8057
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
dovecot/dovecot-lib.pl
View File

@@ -234,7 +234,7 @@ elsif ($dir && !defined($value)) {
# Deleting some directive
local $lref = &read_file_lines($dir->{'file'});
splice(@$lref, $dir->{'line'}, 1);
&renumber(\@get_config_cache, $dir->{'line'}, $dir->{'file'}, -1);
&renumber($conf, $dir->{'line'}, $dir->{'file'}, -1);
@$conf = grep { $_ ne $dir } @$conf;
}
elsif (!$dir && defined($value)) {
@@ -321,6 +321,21 @@ foreach my $c (@$conf) {
}
}
# renumber_section_and_members(&conffull, file, line, offset, member_sname, member_svalue)
sub renumber_section_and_members
{
my ($conffull, $file, $line, $offset, $member_sname, $member_svalue) = @_;
my @section = &find_section($sname, $conffull);
if ($member_sname || $member_svalue) {
@section = grep {
($_->{'members'}->[0]->{'sectionname'} eq $member_sname || !defined($member_sname)) &&
($_->{'members'}->[0]->{'sectionvalue'} eq $member_svalue || !defined($member_svalue)) &&
$_->{'members'}->[0]->{'file'} eq $file
} @section;
}
&renumber(\@section, $line, $file, $offset);
}
# is_dovecot_running()
# Returns the PID if the server process is active, undef if not
sub is_dovecot_running