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

#!/usr/bin/perl
# Show a page for manually editing discovered systemd unit files.

use strict;
use warnings;

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

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

ReadParse();
error_setup($text{'manual_edit_err'});

systemd_acl_bool('manual') ||
	systemd_acl_bool('manual_user') ||
	systemd_acl_error('pmanual');

# File choices are constrained to discovered system and local user unit files.
my @files = grep { systemd_can_manual($_) } list_manual_unit_files();
@files || error(manual_empty_message());
my %allowed = map { $_->{'file'}, $_ } @files;
my $info = $allowed{$in{'file'}} || $files[0];
my $file = $info->{'file'};
my $data = read_manual_unit_file($info);
defined($data) || error($text{'manual_eread'});
my $file_writable = manual_unit_file_writable($info);

ui_print_header(undef, $text{'manual_title'}, "");
my $desc = $info->{'scope'} eq 'user' ?
	text('manual_desc_user',
	     ui_tag('tt', html_escape($info->{'user'}))) :
	$text{'manual_desc'};
print ui_div($desc);

# Keep the selector separate so changing files does not submit edits.
print ui_form_start("edit_manual.cgi");
print ui_tag('b', html_escape($text{'manual_select'}));
print ui_select("file", $file,
	[ map { [ $_->{'file'}, manual_unit_file_label($_) ] } @files ]);
print " ", ui_submit($text{'manual_ok'});
print ui_form_end();

# The editor preserves raw unit text; validation is limited to the file path.
print ui_form_start("save_manual.cgi", "form-data");
print ui_hidden("file", $file);
print ui_table_start(undef, undef, 2);
print ui_table_row(undef, ui_textarea("data", $data, 35, 120, undef,
				      undef, $file_writable ? undef :
				      "readonly='readonly'"), 2);
print ui_table_end();
print ui_form_end($file_writable ? [ [ "save", $text{'save'} ] ] : undef);

ui_print_footer("index.cgi", $text{'index_return'});

# manual_unit_file_label(info)
# Returns the selector label for a manual-edit unit file.
sub manual_unit_file_label
{
my ($info) = @_;
return html_escape($info->{'file'});
}

# manual_empty_message()
# Returns an empty-state message for the current manual-edit ACL scope.
sub manual_empty_message
{
my $user = systemd_acl_default_user();
return text('manual_enone_user',
	    ui_tag('tt', html_escape($user)))
	if ($user && systemd_acl_bool('manual_user') &&
	    !systemd_acl_bool('manual'));
return $text{'manual_enone'};
}