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.88
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	1.12 KB	-rw-r--r--	2026-07-17 21:17
backup_config.pl	951 B	-rw-r--r--	2026-07-17 21:17
config	1.14 KB	-rw-r--r--	2026-07-17 21:17
config-freebsd	884 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	1.05 KB	-rw-r--r--	2026-07-17 21:17
config.info	1.11 KB	-rw-r--r--	2026-07-17 21:17
defaultacl	98 B	-rw-r--r--	2026-07-17 21:17
delete_objects.cgi	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ddns.cgi	4.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_options.cgi	10.51 KB	-rwxr-xr-x	2026-07-17 21:22
edit_shared.cgi	5.11 KB	-rwxr-xr-x	2026-07-17 21:22
edit_subnet.cgi	9.84 KB	-rwxr-xr-x	2026-07-17 21:22
edit_text.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	21.32 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	459 B	-rw-r--r--	2026-07-17 21:17
kea-dhcp-lib.pl	73.94 KB	-rw-r--r--	2026-07-17 21:17
log_parser.pl	1.73 KB	-rw-r--r--	2026-07-17 21:17
module.info	289 B	-rw-r--r--	2026-07-17 21:17
restart.cgi	470 B	-rwxr-xr-x	2026-07-17 21:22
runtime.cgi	5.25 KB	-rwxr-xr-x	2026-07-17 21:22
save_ddns.cgi	2.75 KB	-rwxr-xr-x	2026-07-17 21:22
save_options.cgi	5.6 KB	-rwxr-xr-x	2026-07-17 21:22
save_shared.cgi	2.54 KB	-rwxr-xr-x	2026-07-17 21:22
save_subnet.cgi	3.51 KB	-rwxr-xr-x	2026-07-17 21:22
save_text.cgi	1.45 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	472 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	468 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Save a raw Kea file.

use strict;
use warnings;
require './kea-dhcp-lib.pl';    ## no critic
&ReadParseMime();
our (%in, %text);
&error_setup($text{'eacl_aviol'});
my %access = &get_module_acl();
&error("$text{'eacl_np'} $text{'eacl_pmanual'}") if (!$access{'manual'});

my $info = &kea_manual_edit_file($in{'file'});
&error($text{'save_efile'}) if (!$info);
my $file = $info->{'file'};
&error($text{'save_efile'}) if (!$file);

&error_setup($text{'save_failsave'});
if ($info->{'type'} eq 'config') {
	# Raw Kea config edits still get parsed before writing so a typo does
	# not leave the daemon with unreadable JSON.
	my $c = $info->{'component'};
	my $data = eval { &kea_parse_config_text($in{'data'}, $file) };
	&error(&text('save_eparse', $@)) if ($@);
	&error(&text('parse_eroot', $c->{'root'}))
		if (ref($data->{$c->{'root'}}) ne 'HASH');
	}

# Write via Webmin's tempfile helpers to preserve the normal locking behavior.
my $existed = -e $file;
&lock_file($file);
my $fh;
&open_tempfile($fh, ">$file");
&print_tempfile($fh, $in{'data'});
&close_tempfile($fh);
&unlock_file($file);
if ($info->{'type'} eq 'password' && !$existed) {
	# New Control Agent password files should inherit the config directory
	# group and be readable only by root plus that group.
	my @dst = stat(&kea_dirname($file));
	chown(-1, $dst[5], $file) if (@dst);
	chmod(0640, $file);
	}

my %log = %in;
delete($log{'data'});
&webmin_log("modify", "config", $file, \%log);
&redirect("");