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

# log_parser.pl
# Human-readable Webmin action log descriptions for Kea DHCP.

use strict;
use warnings;

do 'kea-dhcp-lib.pl';
our %text;

# parse_webmin_log(user, script, action, type, object, &params)
# Converts stored Webmin log tuples into action text shown by the Webmin log UI.
sub parse_webmin_log
{
my ($user, $script, $action, $type, $object, $p) = @_;
$action = "" if (!defined($action));
$type = "" if (!defined($type));

if ($action eq 'start' || $action eq 'stop' || $action eq 'apply') {
	return $text{'log_'.$action};
	}
elsif ($type eq 'config' && $action eq 'modify') {
	return &text('log_modify_config', &kea_log_mono($object));
	}
elsif ($type eq 'global-options' && $action eq 'modify') {
	return &text('log_modify_global_options',
		     &kea_log_protocol_label($object));
	}
elsif ($type eq 'ddns' && $action eq 'modify') {
	return $text{'log_modify_ddns'};
	}
elsif ($type eq 'shared-network') {
	return &text('log_'.$action.'_shared_network',
		     &kea_log_mono($object));
	}
elsif ($type eq 'subnet') {
	return &text('log_'.$action.'_subnet',
		     &kea_log_mono($object));
	}
elsif ($type eq 'objects' && $action eq 'delete') {
	my $key = defined($object) && $object eq '1' ? 'log_delete_object' :
						 'log_delete_objects';
	return &text($key, $object);
	}
return;
}

# kea_log_mono(text)
# Formats a log object as escaped monospace text.
sub kea_log_mono
{
my ($value) = @_;
return &ui_tag('tt', &html_escape(defined($value) ? $value : ""));
}

# kea_log_protocol_label(protocol-key)
# Converts logged dhcp4/dhcp6 keys into user-facing protocol names.
sub kea_log_protocol_label
{
my ($object) = @_;
return $object eq 'dhcp4' ? $text{'tab_dhcp4'} :
       $object eq 'dhcp6' ? $text{'tab_dhcp6'} :
       &kea_log_mono($object);
}