Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
acl_security.pl	2.79 KB	-rw-r--r--	2026-07-17 21:17
backup_config.pl	1.78 KB	-rw-r--r--	2026-07-17 21:17
config	315 B	-rw-r--r--	2026-07-17 21:17
config.info	885 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	863 B	-rw-r--r--	2026-07-17 21:17
defaultacl	343 B	-rw-r--r--	2026-07-17 21:17
dropins.cgi	3.7 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	2.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_unit.cgi	42.41 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	16.66 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	404 B	-rw-r--r--	2026-07-17 21:22
log_parser.pl	3.42 KB	-rwxr-xr-x	2026-07-17 21:17
mass_units.cgi	13.28 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	231 B	-rw-r--r--	2026-07-17 21:17
restart.cgi	884 B	-rwxr-xr-x	2026-07-17 21:22
restart_user.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
safeacl	343 B	-rw-r--r--	2026-07-17 21:17
save_manual.cgi	1015 B	-rwxr-xr-x	2026-07-17 21:22
save_unit.cgi	29.34 KB	-rwxr-xr-x	2026-07-17 21:22
set_linger.cgi	1.54 KB	-rwxr-xr-x	2026-07-17 21:22
syslog_logs.pl	562 B	-rw-r--r--	2026-07-17 21:17
systemd-lib.pl	107.18 KB	-rw-r--r--	2026-07-17 21:17

Rename

use strict;
use warnings;

require 'systemd-lib.pl'; ## no critic

our %access;

# backup_config_files()
# Returns local system and user unit files that should be included in backups.
sub backup_config_files
{
my @rv;
my %seen;
return @rv if (!systemd_acl_bool('backup'));
my $add_file = sub {
	my ($file) = @_;
	push(@rv, $file) if ($file && !$seen{$file}++);
	};

# System unit backups should only include locally managed files under /etc.
foreach my $u (list_units()) {
	$add_file->($u->{'file'})
		if ($u->{'file'} && $u->{'file'} =~ m!^/etc/systemd/system/!);
	my $name = backup_unit_name($u);
	if ($name && dropin_exists(0, undef, $name)) {
		$add_file->(system_dropin_file($name));
		}
	}

# User units live under home directories and are safe to include by path.
foreach my $u (list_all_user_units()) {
	next if (!systemd_acl_user_allowed($u->{'user'}));
	$add_file->($u->{'file'}) if ($u->{'file'});
	my $name = backup_unit_name($u);
	if ($name && dropin_exists(1, $u->{'user'}, $name)) {
		$add_file->(user_dropin_file($u->{'user'}, $name));
		}
	}
return @rv;
}

# backup_unit_name(unit)
# Returns the safe unit name from a listed unit row.
sub backup_unit_name
{
my ($u) = @_;
return $u->{'name'} if ($u->{'name'} && valid_unit_name($u->{'name'}));
if ($u->{'file'} && $u->{'file'} =~ m{/([^/]+)$} &&
    valid_unit_name($1)) {
	return $1;
	}
return;
}

# pre_backup()
# No preparation is needed before Webmin copies systemd unit files.
sub pre_backup
{
return;
}

# post_backup()
# No cleanup is needed after Webmin copies systemd unit files.
sub post_backup
{
return;
}

# pre_restore()
# No preparation is needed before Webmin restores systemd unit files.
sub pre_restore
{
return;
}

# post_restore()
# Reloads systemd after restored unit files are back on disk.
sub post_restore
{
reload_manager();
}