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
CHANGELOG	3.61 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	4.3 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	699 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	358 B	-rwxr-xr-x	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-5	378 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-6.0-6.9	384 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-6.0-6.9	384 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	333 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-6.0-6.9	384 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	357 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-12.04-ALL	413 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-8.10-10.04.4	405 B	-rw-r--r--	2026-07-17 21:17
config-alpine-linux	373 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	238 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	378 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	230 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	333 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.0	360 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.1-5.9	392 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-6.0-ALL	398 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	246 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	423 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	227 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	328 B	-rw-r--r--	2026-07-17 21:17
config-hpux	242 B	-rw-r--r--	2026-07-17 21:17
config-irix	223 B	-rw-r--r--	2026-07-17 21:17
config-macos	223 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	338 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	238 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	230 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	227 B	-rw-r--r--	2026-07-17 21:17
config-open-linux-3.1e	374 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-15.6	371 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-16.0-ALL	367 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	230 B	-rw-r--r--	2026-07-17 21:17
config-openbsd-3.6-ALL	212 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	227 B	-rw-r--r--	2026-07-17 21:17
config-openserver	223 B	-rw-r--r--	2026-07-17 21:17
config-osf1	223 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	326 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	227 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-13.1-19.0	379 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-20.0-23.0	384 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	387 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-6.0-6.2	238 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.0-13.0	378 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	233 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux-4.0	239 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux-7.1-ALL	238 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	258 B	-rw-r--r--	2026-07-17 21:17
config-solaris	223 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	238 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.1-7.3	236 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-8.0	361 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-8.2-9.1	374 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-9.2-ALL	377 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	359 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	227 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	361 B	-rw-r--r--	2026-07-17 21:17
config-unixware	259 B	-rw-r--r--	2026-07-17 21:17
config.info	1.37 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.38 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	1.12 KB	-rw-r--r--	2026-07-17 21:17
config.info.da	1.05 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	1.52 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	457 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	1.62 KB	-rw-r--r--	2026-07-17 21:17
config.info.fr	1.08 KB	-rw-r--r--	2026-07-17 21:17
config.info.ja	1.19 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	1.25 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.25 KB	-rw-r--r--	2026-07-17 21:17
config.info.pl	1.3 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	1.26 KB	-rw-r--r--	2026-07-17 21:17
config.info.ru	1.06 KB	-rw-r--r--	2026-07-17 21:17
config.info.sk	1.19 KB	-rw-r--r--	2026-07-17 21:17
config.info.sv	345 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	201 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	1.11 KB	-rw-r--r--	2026-07-17 21:17
config.info.zh	160 B	-rw-r--r--	2026-07-17 21:17
confirm_delete.cgi	3.03 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	221 B	-rw-r--r--	2026-07-17 21:17
delete_all.cgi	2.02 KB	-rwxr-xr-x	2026-07-17 21:22
delete_hosts.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
delete_leases.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
delete_subnets.cgi	1.58 KB	-rwxr-xr-x	2026-07-17 21:22
dhcpd-lib.pl	26.23 KB	-rwxr-xr-x	2026-07-17 21:17
edit_group.cgi	7.14 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	10.03 KB	-rwxr-xr-x	2026-07-17 21:22
edit_iface.cgi	3.6 KB	-rwxr-xr-x	2026-07-17 21:22
edit_keys.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
edit_options.cgi	9.07 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pool.cgi	3.32 KB	-rwxr-xr-x	2026-07-17 21:22
edit_shared.cgi	5.64 KB	-rwxr-xr-x	2026-07-17 21:22
edit_subnet.cgi	6.48 KB	-rwxr-xr-x	2026-07-17 21:22
edit_text.cgi	869 B	-rwxr-xr-x	2026-07-17 21:22
edit_zones.cgi	1.8 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	20.89 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	557 B	-rwxr-xr-x	2026-07-17 21:17
list_leases.cgi	9.83 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1003 B	-rwxr-xr-x	2026-07-17 21:17
lookup_group.cgi	1.02 KB	-rwxr-xr-x	2026-07-17 21:22
lookup_host.cgi	2.1 KB	-rwxr-xr-x	2026-07-17 21:22
lookup_shared.cgi	915 B	-rwxr-xr-x	2026-07-17 21:22
lookup_subnet.cgi	969 B	-rwxr-xr-x	2026-07-17 21:22
mac-vendor.txt	662.66 KB	-rw-r--r--	2026-07-17 21:17
module.info	477 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	179 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	172 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	102 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	20 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	100 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.de	110 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	202 B	-rw-r--r--	2026-07-17 21:17
module.info.es	25 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	166 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	21 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	23 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	138 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	21 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	99 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	20 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.no	20 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	108 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	25 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	26 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	147 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	20 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	20 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	96 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	22 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	187 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	22 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	84 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	26 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	90 B	-rw-r--r--	2026-07-17 21:17
params-lib.pl	5.96 KB	-rwxr-xr-x	2026-07-17 21:22
prefs.info	164 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	69 B	-rw-r--r--	2026-07-17 21:17
restart.cgi	364 B	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	3.89 KB	-rwxr-xr-x	2026-07-17 21:22
save_host.cgi	5.42 KB	-rwxr-xr-x	2026-07-17 21:22
save_iface.cgi	3.75 KB	-rwxr-xr-x	2026-07-17 21:22
save_keys.cgi	1.11 KB	-rwxr-xr-x	2026-07-17 21:22
save_options.cgi	8.14 KB	-rwxr-xr-x	2026-07-17 21:22
save_pool.cgi	2.51 KB	-rwxr-xr-x	2026-07-17 21:22
save_shared.cgi	6.1 KB	-rwxr-xr-x	2026-07-17 21:22
save_subnet.cgi	6.2 KB	-rwxr-xr-x	2026-07-17 21:22
save_text.cgi	717 B	-rwxr-xr-x	2026-07-17 21:22
save_zones.cgi	1.73 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	343 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	321 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_pool.cgi
# Create, update or delete an address pool

require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
&lock_all_files();
$conf = &get_config();
if ($in{'sidx'} ne "") {
	$sha = $conf->[$in{'sidx'}]; 
	$sub = $sha->{'members'}->[$in{'uidx'}];
	$indent = 2;
	}
else {
	$sub = $conf->[$in{'uidx'}];
	$indent = 1;
	}
if ($in{'new'}) {
	$pool = { 'name' => 'pool',
		  'type' => 1,
		  'members' => [ ] };
	}
else {
	$pool = $sub->{'members'}->[$in{'idx'}];
	}

# check acls
%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
&error("$text{'eacl_np'} $text{'eacl_pus'}") if !&can('rw', \%access, $sub);

# save
if ($in{'delete'}) {
	# Delete this pool from it's subnet
	&save_directive($sub, [ $pool ], [ ], 0);
	}
else {
	# Validate inputs
	for($i=0; defined($low = $in{"range_low_$i"}); $i++) {
		next if (!$low);
		$hi = $in{"range_hi_$i"}; $dyn = $in{"range_dyn_$i"};
		&check_ipaddress($low) ||
			&error("'$low' $text{'ssub_invalidipr'}");
		!$hi || &check_ipaddress($hi) ||
			&error("'$hi' $text{'ssub_invalidipr'}");
		$rng = { 'name' => 'range',
			 'values' => [ ($dyn ? "dynamic-bootp" : ()),
				       $low, ($hi ? $hi : ()) ] };
		push(@rng, $rng);
		}
	&save_directive($pool, "range", \@rng, 1);
	if($in{'failover_peer'}) {
		!&check_domain($in{'failover_peer'}) ||
			&error("'$in{'failover_peer'}' $text{'ssub_invalidfopeer'}");
		$in{'failover_peer'} = "\"$in{'failover_peer'}\"";	
        	push(@failover_peer, { 'name' => 'failover peer',
                                       'values' => [ $in{'failover_peer'} ] });
        }
        &save_directive($pool, "failover", \@failover_peer, 1);

$in{'allow'} =~ s/\r//g;
	foreach $a (split(/\n/, $in{'allow'})) {
		push(@allow, { 'name' => 'allow', 'values' => [ $a ] });
		}
	&save_directive($pool, "allow", \@allow, 1);
	$in{'deny'} =~ s/\r//g;
	foreach $a (split(/\n/, $in{'deny'})) {
		push(@deny, { 'name' => 'deny', 'values' => [ $a ] });
		}
	&save_directive($pool, "deny", \@deny, 1);
	&parse_params($pool, 0);

# Save or create the pool
	if ($in{'new'}) {
		&save_directive($sub, [ ], [ $pool ], $indent);
		}
	else {
		&save_directive($sub, [ $pool ], [ $pool ], $indent);
		}
	}
&flush_file_lines();
&unlock_all_files();
if ($sub->{'name'} eq 'subnet') {
	&webmin_log('modify', 'subnet',
		    "$sub->{'values'}->[0]/$sub->{'values'}->[2]", \%in);
	&redirect("edit_subnet.cgi?sidx=$in{'sidx'}&idx=$in{'uidx'}");
	}
else {
	&webmin_log('modify', 'shared', $sub->{'values'}->[0], \%in);
	&redirect("edit_shared.cgi?idx=$in{'uidx'}");
	}