Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

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

#!/usr/bin/perl
# Toggle linger for a systemd user manager

use strict;
use warnings;

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

our (%access, %in, %text);

# This page is reached from the index linger toggle links.
error_setup($text{'systemd_linger_err'});
ReadParse();

# Validate the requested user and linger state before calling loginctl.
my $user = clean_unit_value($in{'user'});
my $enabled = $in{'enabled'};
get_user_details($user) || error($text{'systemd_euser'});
systemd_can_linger($user) || systemd_acl_error('plinger');
if (!defined($enabled) || ($enabled ne '0' && $enabled ne '1')) {
	error($text{'systemd_elinger'});
	}
$enabled = $enabled eq '1' ? 1 : 0;

# Apply the requested linger state through loginctl.
my ($ok, $out) = set_user_linger($user, $enabled);
$ok || error_linger_command($user, $out);

# Enabling linger should also bring up the user manager immediately.
if ($enabled) {
	($ok, $out) = start_user_manager($user);
	$ok || error_linger_command($user, $out);
	}

# Record the change and return to the User units tab for the same owner.
webmin_log("linger", "systemd-user", $user,
	    { 'user' => $user, 'enabled' => $enabled });
redirect(index_url(undef, 1, $user));

# error_linger_command(user, output)
# Shows escaped loginctl or systemctl output from a failed operation.
sub error_linger_command
{
my ($user, $out) = @_;
$out ||= $text{'systemd_euser'};

# Show command output as escaped preformatted text for easier diagnosis.
error(text('systemd_eusercmd',
	     ui_tag('tt', html_escape($user)),
	     ui_tag('pre', html_escape($out))));
}