Files
webmin/systemd/restart_user.cgi

35 lines
1.0 KiB
Perl
Executable File

#!/usr/local/bin/perl
# Reload a user's systemd manager after user unit-file changes.
use strict;
use warnings;
require './systemd-lib.pl'; ## no critic
our (%access, %in, %text);
ReadParse();
error_setup($text{'reload_user_err'});
my $user = clean_unit_value($in{'user'});
my $uinfo = $user ? get_user_details($user) : undef;
$uinfo || error($text{'systemd_euser'});
systemd_can_reload_user($uinfo->{'user'}) ||
systemd_acl_error('pmanual_user');
ui_print_unbuffered_header(undef, $text{'reload_user_title'}, "");
print text('reload_user_doing',
ui_tag('tt', html_escape($uinfo->{'user'}))), ui_br(), "\n";
my ($ok, $out) = reload_user_manager($uinfo->{'user'});
print ui_tag('pre', html_escape($out)) if ($out);
print($ok ? $text{'mass_ok'} : $text{'mass_failed'}, ui_p());
if ($ok) {
mark_user_daemon_reloaded($uinfo->{'user'});
webmin_log("reload", "systemd-user", $uinfo->{'user'},
{ 'user' => $uinfo->{'user'} });
}
ui_print_footer("index.cgi?scope=user&unituser=".urlize($uinfo->{'user'}),
$text{'index_return'});