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;
no warnings 'redefine';

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

our (%in, %text);

# acl_security_form(options)
# Outputs ACL controls for granting access to systemd unit management.
sub acl_security_form
{
my ($o) = @_;
my $m = $o->{'mode'} || 0;

# User scope controls limit which Unix users' units this Webmin user can touch.
print ui_table_span(ui_tag('b', html_escape($text{'acl_section_users'})));
print ui_table_row($text{'acl_users'},
	ui_radio("mode", $m,
	 [ [ 0, "$text{'acl_all'} " ],
	 [ 3, "$text{'acl_this'} " ],
	 [ 1, $text{'acl_only'}." ".
		ui_textbox("userscan",
			$m == 1 ? $o->{'users'} : "", 40)." ".
		user_chooser_button("userscan", 1)." " ],
	 [ 2, $text{'acl_except'}." ".
		ui_textbox("userscannot",
			$m == 2 ? $o->{'users'} : "", 40)." ".
		user_chooser_button("userscannot", 1)." " ],
	 [ 5, $text{'acl_gid'}." ".
		ui_textbox("gid",
		 $m == 5 ? scalar(getgrgid($o->{'users'})) : "", 13)." ".
		group_chooser_button("gid", 0)." " ],
	 [ 4, $text{'acl_uid'}." ".
		ui_textbox("uidmin", $o->{'uidmin'}, 6)." - ".
		ui_textbox("uidmax", $o->{'uidmax'}, 6)." " ],
	 ]), 3, undef, undef, 1);
print ui_table_hr();

# View controls cover listing units and reading status or journal output.
print ui_table_span(ui_tag('b', html_escape($text{'acl_section_view'})));
foreach my $a (qw(view view_user status status_user logs logs_user)) {
	print ui_table_row($text{'acl_'.$a},
			   ui_yesno_radio($a, $o->{$a}), 3);
	}
print ui_table_hr();

# Runtime controls cover actions that change active state or manager state.
print ui_table_span(ui_tag('b', html_escape($text{'acl_section_runtime'})));
foreach my $a (qw(start start_user stop stop_user restart restart_user
		  boot boot_user mask mask_user reload linger)) {
	print ui_table_row($text{'acl_'.$a},
			   ui_yesno_radio($a, $o->{$a}), 3);
	}
print ui_table_hr();

# Change controls cover writing, deleting, drop-ins, manual edits and backup.
print ui_table_span(ui_tag('b', html_escape($text{'acl_section_change'})));
foreach my $a (qw(create create_user edit edit_user delete delete_user
		  dropin dropin_user manual manual_user backup)) {
	print ui_table_row($text{'acl_'.$a},
			   ui_yesno_radio($a, $o->{$a}), 3);
	}
}

# acl_security_save(options)
# Saves systemd ACL settings from the submitted form.
sub acl_security_save
{
my ($o) = @_;

my $mode = defined($in{'mode'}) && $in{'mode'} =~ /^[0-5]$/ ?
	$in{'mode'} : 0;
$o->{'mode'} = $mode;
$o->{'users'} = $mode == 0 || $mode == 3 || $mode == 4 ? "" :
		$mode == 5 ? scalar(getgrnam($in{'gid'} || "")) || "" :
		$mode == 1 ? $in{'userscan'} || "" : $in{'userscannot'} || "";
$o->{'uidmin'} = $mode == 4 ? $in{'uidmin'} || "" : "";
$o->{'uidmax'} = $mode == 4 ? $in{'uidmax'} || "" : "";
foreach my $a (systemd_acl_keys()) {
	$o->{$a} = $in{$a} || 0;
	}
}