VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-23 00:30:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add new function to add a new section

Browse Source
This commit is contained in:
Jamie Cameron
2020-12-22 22:26:31 -08:00
parent 8d5f42db0a
commit b68bc95f40
1 changed files with 41 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
dovecot/dovecot-lib.pl
View File

@ -295,7 +295,6 @@ elsif (!$dir && defined($value)) {
# save_section(&conf, &section) # save_section(&conf, &section)
# Updates one section in the config file # Updates one section in the config file
# XXX when adding a section, the part to replace shouldn't depend on eline
sub save_section sub save_section
{ {
local ($conf, $section) = @_; local ($conf, $section) = @_;
@ -322,6 +321,47 @@ foreach my $m (@{$section->{'members'}}) {
} }
} }
# create_section(&conf, &section, [&parent])
# Adds a section to the config file
sub create_section
{
local ($conf, $section, $parent) = @_;
local $indent = " " x $section->{'indent'};
local @newlines;
push(@newlines, $indent.$section->{'name'}." ".$section->{'value'}." {");
foreach my $m (@{$section->{'members'}}) {
push(@newlines, $indent." ".$m->{'name'}." = ".$m->{'value'});
}
push(@newlines, $indent."}");
my $file;
my $lref;
if ($parent) {
# Add to another config block
$file = $parent->{'file'};
$lref = &read_file_lines($file);
$section->{'line'} = $parent->{'eline'};
}
else {
# Add to the end of the global config file
$file = &get_config_file();
$lref = &read_file_lines($file);
$section->{'line'} = scalar(@$lref);
}
splice(@$lref, $section->{'line'}, 0, @newlines);
&renumber($conf, $section->{'eline'}, $section->{'file'},
scalar(@newlines)-$oldlen);
$section->{'eline'} = $section->{'line'} + scalar(@newlines) - 1;
my $i = 1;
foreach my $m (@{$section->{'members'}}) {
$m->{'line'} = $m->{'eline'} = $section->{'line'} + $i++;
$m->{'space'} = " ";
$m->{'indent'} = $section->{'indent'} + 1;
$m->{'file'} = $section->{'file'};
$m->{'sectionname'} = $section->{'name'};
$m->{'sectionvalue'} = $section->{'value'};
}
}
# renumber(&conf, line, file, offset) # renumber(&conf, line, file, offset)
sub renumber sub renumber
{ {