mirror of
https://github.com/webmin/webmin.git
synced 2026-06-28 15:00:25 +01:00
35 lines
1021 B
Perl
Executable File
35 lines
1021 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Save a raw systemd unit file selected by edit_manual.cgi.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
require './systemd-lib.pl'; ## no critic
|
|
|
|
our (%access, %in, %text);
|
|
|
|
ReadParseMime();
|
|
error_setup($text{'manual_err'});
|
|
|
|
# The posted path must still be in the discovered allowlist at save time.
|
|
my $info = manual_unit_file($in{'file'});
|
|
$info || error($text{'manual_efile'});
|
|
systemd_can_manual($info) ||
|
|
systemd_acl_error($info->{'scope'} eq 'user' ?
|
|
'pmanual_user' : 'pmanual');
|
|
my ($ok, $err) = write_manual_unit_file($info, $in{'data'});
|
|
$ok || error($err || $text{'manual_ewrite'});
|
|
|
|
# User-unit edits include the owner so the log parser can render context.
|
|
if ($info->{'scope'} eq 'user') {
|
|
mark_user_units_changed($info->{'user'});
|
|
webmin_log("manual", "systemd-user", $info->{'file'},
|
|
{ 'user' => $info->{'user'} });
|
|
redirect("index.cgi?scope=user&unituser=".urlize($info->{'user'}));
|
|
}
|
|
else {
|
|
mark_units_changed();
|
|
webmin_log("manual", "systemd", $info->{'file'});
|
|
redirect("");
|
|
}
|