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	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 settings for the Kea DHCP-DDNS daemon.

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

my $c = &kea_component('ddns');
my ($root, $err, $data) = &kea_read_component_config($c);
&error($err) if ($err);

&error_setup($text{'save_failsave'});

# Listener settings control where D2 receives DHCP name-change requests.
&kea_set_optional_string($root, 'ip-address', $in{'ip_address'})
	if (exists($in{'ip_address'}));
&kea_set_optional_integer($root, 'port', $in{'port'})
	if (exists($in{'port'}));
&kea_set_optional_integer($root, 'dns-server-timeout',
			  $in{'dns_server_timeout'})
	if (exists($in{'dns_server_timeout'}));
&kea_set_optional_string($root, 'ncr-protocol', $in{'ncr_protocol'})
	if (exists($in{'ncr_protocol'}));
&kea_set_optional_string($root, 'ncr-format', $in{'ncr_format'})
	if (exists($in{'ncr_format'}));

# Keep the local control socket separate from DNS update transport settings.
if (exists($in{'control_socket_type'}) || exists($in{'control_socket_name'})) {
	$root->{'control-socket'} = { }
		if (ref($root->{'control-socket'}) ne 'HASH');
	&kea_set_optional_string($root->{'control-socket'}, 'socket-type',
				 $in{'control_socket_type'})
		if (exists($in{'control_socket_type'}));
	&kea_set_optional_string($root->{'control-socket'}, 'socket-name',
				 $in{'control_socket_name'})
		if (exists($in{'control_socket_name'}));
	delete($root->{'control-socket'})
		if (!grep { defined($_) } values(%{$root->{'control-socket'}}));
	}

# TSIG keys are parsed before domains so key-name references can be validated
# against the same save request.
if (&kea_form_has_prefix("key_")) {
	$root->{'tsig-keys'} = &kea_parse_tsig_key_rows($root->{'tsig-keys'}, "key_");
	}

# Forward and reverse zones share the same D2 domain object shape.
foreach my $pair ([ 'forward-ddns', 'fwd_' ], [ 'reverse-ddns', 'rev_' ]) {
	my ($section, $prefix) = @$pair;
	next if (!&kea_form_has_prefix($prefix));
	$root->{$section} = { } if (ref($root->{$section}) ne 'HASH');
	my $domains = &kea_parse_ddns_domain_rows(
		&kea_ddns_domains($root, $section), $prefix,
		$root->{'tsig-keys'});
	if (@$domains) {
		$root->{$section}->{'ddns-domains'} = $domains;
		}
	else {
		delete($root->{$section}->{'ddns-domains'});
		}
	}

# Loggers are root-level D2 settings.
if (&kea_form_has_prefix("log_")) {
	$root->{'loggers'} = &kea_parse_logger_rows($root->{'loggers'}, "log_");
	delete($root->{'loggers'}) if (!@{$root->{'loggers'}});
	}

my $saveerr = &kea_save_component_config($c, $data);
&error($saveerr) if ($saveerr);
&webmin_log("modify", "ddns", undef, \%in);
&redirect("index.cgi?mode=ddns");