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

Add API to edit systemd units

Browse Source
This commit is contained in:
Ilia Ross
2025-01-16 15:02:54 +02:00
parent 98a8fa9e22
commit 1c8c259eae
1 changed files with 97 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
init/init-lib.pl
View File

@@ -2555,7 +2555,6 @@ return wantarray ? (-1, undef) : 0;
List given systemd unit file contents
=cut
sub cat_systemd
{
my ($unit) = @_;
@@ -2588,6 +2587,103 @@ close(CAT);
return \@config;
}
=head2 edit_systemd(unit-name, &new_config, [override_filename], [override_dir])
Edit systemd unit file in override, preserving existing settings
Example:
edit_systemd('ssh.socket', {
'Socket' => {
'ListenStream' => [
'',
'0.0.0.0:2213',
'[::]:2213'
],
},
'Install' => {},
});
Note that option values must always be an array reference, even if there is only
one value; if undef is passed, the key will be removed from the section; if a
section set to empty hash, the section will be removed from the unit file.
=cut
sub edit_systemd
{
my ($unit, $new_config, $override_filename, $override_dir) = @_;
$override_dir ||= "/etc/systemd/system/$unit.d";
$override_filename ||= "override.conf";
my $override_file = "$override_dir/$override_filename";
# Create override directory if it doesn't exist
if (!-d($override_dir)) {
mkdir($override_dir) ||
&error("Failed to create directory '$override_dir': $!");
}
# Read the existing override.conf if it exists
my $existing_config = {};
if (-f($override_file)) {
my $content = &read_file_contents($override_file);
my $current_section;
foreach my $line (split(/\r?\n/, $content)) {
next if ($line =~ /^$/ || $line =~ /^#/);
if ($line =~ /^\[(.+?)\]$/) {
# Section header
$current_section = $1;
$existing_config->{$current_section} ||= {};
}
elsif ($line =~ /^([^=]+)=(.*)$/ && $current_section) {
# Key-value pair
my ($key, $value) = ($1, $2);
push(@{ $existing_config->{$current_section}{$key} },
$value);
}
}
}
# Merge new configuration into the existing configuration
foreach my $section (keys(%{$new_config})) {
my $has_values = 0; # Track if the section has content
foreach my $key (keys(%{ $new_config->{$section} })) {
my $values = $new_config->{$section}{$key};
if (defined($values) && @$values) {
# Preserve keys with values, including empty strings
$existing_config->{$section}{$key} = $values;
$has_values = 1;
}
else {
# Remove keys with undefined values
delete($existing_config->{$section}{$key});
}
}
# Remove the section if no content remains
delete($existing_config->{$section}) if (!$has_values);
}
# Prepare the new override.conf content
my $override_content = "";
foreach my $section (sort(keys(%{$existing_config}))) {
$override_content .= "[$section]\n";
foreach my $key (sort(keys(%{ $existing_config->{$section} }))) {
foreach my $value (@{ $existing_config->{$section}{$key} }) {
$override_content .= "$key=$value\n";
}
}
$override_content .= "\n"; # Add a blank line between sections
}
# Write the merged configuration back to override.conf
&lock_file($override_file);
&write_file_contents($override_file, $override_content);
&unlock_file($override_file);
# Reload systemd to apply the changes
&system_logged("systemctl daemon-reload") == 0 ||
&error("Failed to reload systemd daemon: $!");
}
=head2 reboot_system
Immediately reboots the system.