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
# Edit 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) = &kea_read_component_config($c);
&error($err) if ($err);

# D2 is a separate daemon shared by DHCPv4 and DHCPv6, so keep its settings
# outside the protocol-specific global DHCP pages.
&ui_print_header(undef, $text{'ddns_title'}, "", undef, 1, 1);
print &kea_comment_loss_warning($c);
print &ui_form_start("save_ddns.cgi", "post");

my @tabs = (
	[ 'listener', $text{'tab_listener'} ],
	[ 'zones', $text{'tab_zones'} ],
	[ 'tsig', $text{'tab_tsig'} ],
	[ 'logging', $text{'tab_logging'} ],
	);
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "listener", 1);

# The listener receives name-change requests from DHCPv4/DHCPv6 and exposes a
# local control socket for daemon management.
print &ui_tabs_start_tab("mode", "listener");
print &ui_div($text{'ddns_listener_desc'});
print &ui_alert_box($text{'ddns_listener_warn'}, "warn", undef, undef, "")
	if (&kea_ddns_listener_non_loopback($root));
print &ui_alert_box($text{'ddns_listener_warn_loopback'}, "warn", undef, undef, "")
	if (!&kea_ddns_listener_non_loopback($root) &&
	    &kea_ddns_listener_non_default_loopback($root));
print &ui_table_start($text{'ddns_listener'}, "width=100%", 4);
print &ui_table_row(&kea_field_hlink('ddns-ip-address',
				     $text{'ddns_ip_address'}),
	&ui_textbox("ip_address", $root->{'ip-address'} || "", 24));
print &ui_table_row(&kea_field_hlink('ddns-port', $text{'ddns_port'}),
	&ui_textbox("port", defined($root->{'port'}) ? $root->{'port'} : "",
		    8));
print &ui_table_row(&kea_field_hlink('ddns-timeout', $text{'ddns_timeout'}),
	&ui_textbox("dns_server_timeout",
		    defined($root->{'dns-server-timeout'}) ?
			$root->{'dns-server-timeout'} : "", 8));
print &ui_table_row(&kea_field_hlink('ncr-protocol',
				     $text{'ddns_ncr_protocol'}),
	&ui_select("ncr_protocol", $root->{'ncr-protocol'} || "UDP",
		&kea_select_options($root->{'ncr-protocol'}, $text{'socket_default'},
				    'UDP')));
print &ui_table_row(&kea_field_hlink('ncr-format', $text{'ddns_ncr_format'}),
	&ui_select("ncr_format", $root->{'ncr-format'} || "JSON",
		&kea_select_options($root->{'ncr-format'}, $text{'socket_default'},
				    'JSON')));
print &ui_table_end();

my $socket = ref($root->{'control-socket'}) eq 'HASH' ?
	$root->{'control-socket'} : { };
print &ui_table_start($text{'control_socket'}, "width=100%", 4);
print &ui_table_row(&kea_field_hlink('control-socket-type',
				     $text{'control_socket_type'}),
	&ui_select("control_socket_type", $socket->{'socket-type'} || "",
		[ [ "", $text{'socket_default'} ],
		  [ "unix", "Unix" ] ]));
print &ui_table_row(&kea_field_hlink('control-socket-name',
				     $text{'control_socket_name'}),
	&ui_textbox("control_socket_name", $socket->{'socket-name'} || "", 50));
print &ui_table_end();
print &ui_tabs_end_tab("mode", "listener");

# Forward and reverse DDNS domains tell D2 where to send DNS updates.
print &ui_tabs_start_tab("mode", "zones");
print &ui_div($text{'ddns_zones_desc'});
print &ui_subheading($text{'ddns_forward'});
&kea_ddns_domain_rows(&kea_ddns_domains($root, 'forward-ddns'), "fwd_");
print &ui_subheading($text{'ddns_reverse'});
&kea_ddns_domain_rows(&kea_ddns_domains($root, 'reverse-ddns'), "rev_");
print &ui_tabs_end_tab("mode", "zones");

# TSIG keys are referenced by update domains using key-name.
print &ui_tabs_start_tab("mode", "tsig");
print &ui_div($text{'ddns_tsig_desc'});
print &ui_subheading($text{'ddns_tsig_keys'});
&kea_tsig_key_rows($root->{'tsig-keys'}, "key_");
print &ui_tabs_end_tab("mode", "tsig");

# D2 uses the same Kea logger format as the DHCP daemons.
print &ui_tabs_start_tab("mode", "logging");
print &ui_div($text{'logging_desc'});
print &ui_subheading($text{'logging_loggers'});
&kea_logger_rows($root->{'loggers'}, "log_");
print &ui_tabs_end_tab("mode", "logging");
print &ui_tabs_end();

print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer("index.cgi?mode=ddns", $text{'index_return'});