Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	3.61 KB	-rw-r--r--
acl_security.pl	10.09 KB	-rwxr-xr-x
backup_config.pl	699 B	-rwxr-xr-x
cgi_args.pl	358 B	-rwxr-xr-x
config-Amazon-Linux-2-ALL	318 B	-rw-r--r--
config-CentOS-Linux-5	363 B	-rw-r--r--
config-CentOS-Linux-6.0-6.9	369 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	318 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	369 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	318 B	-rw-r--r--
config-Scientific-Linux-6.0-6....	369 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	342 B	-rw-r--r--
config-Ubuntu-Linux-12.04-ALL	371 B	-rw-r--r--
config-Ubuntu-Linux-8.10-10.04...	390 B	-rw-r--r--
config-cobalt-linux	223 B	-rw-r--r--
config-coherent-linux	363 B	-rw-r--r--
config-corel-linux	215 B	-rw-r--r--
config-debian-linux	318 B	-rw-r--r--
config-debian-linux-3.0	345 B	-rw-r--r--
config-debian-linux-3.1-5.9	377 B	-rw-r--r--
config-debian-linux-6.0-ALL	383 B	-rw-r--r--
config-freebsd	231 B	-rw-r--r--
config-freebsd-8-ALL	408 B	-rw-r--r--
config-generic-linux	212 B	-rw-r--r--
config-gentoo-linux	313 B	-rw-r--r--
config-hpux	227 B	-rw-r--r--
config-irix	208 B	-rw-r--r--
config-macos	208 B	-rw-r--r--
config-mandrake-linux	323 B	-rw-r--r--
config-msc-linux	223 B	-rw-r--r--
config-netbsd	215 B	-rw-r--r--
config-open-linux	212 B	-rw-r--r--
config-open-linux-3.1e	359 B	-rw-r--r--
config-openbsd	215 B	-rw-r--r--
config-openbsd-3.6-ALL	197 B	-rw-r--r--
config-openmamba-linux	212 B	-rw-r--r--
config-openserver	208 B	-rw-r--r--
config-osf1	208 B	-rw-r--r--
config-pardus-linux	311 B	-rw-r--r--
config-redhat-linux	212 B	-rw-r--r--
config-redhat-linux-13.1-19.0	364 B	-rw-r--r--
config-redhat-linux-20.0-23.0	369 B	-rw-r--r--
config-redhat-linux-24.0-ALL	372 B	-rw-r--r--
config-redhat-linux-6.0-6.2	223 B	-rw-r--r--
config-redhat-linux-7.0-13.0	363 B	-rw-r--r--
config-slackware-linux	218 B	-rw-r--r--
config-slackware-linux-4.0	224 B	-rw-r--r--
config-slackware-linux-7.1-ALL	223 B	-rw-r--r--
config-sol-linux	243 B	-rw-r--r--
config-solaris	208 B	-rw-r--r--
config-suse-linux	223 B	-rw-r--r--
config-suse-linux-7.1-7.3	221 B	-rw-r--r--
config-suse-linux-8.0	346 B	-rw-r--r--
config-suse-linux-8.2-9.1	359 B	-rw-r--r--
config-suse-linux-9.2-ALL	362 B	-rw-r--r--
config-trustix-linux	344 B	-rw-r--r--
config-turbo-linux	212 B	-rw-r--r--
config-united-linux	346 B	-rw-r--r--
config-unixware	244 B	-rw-r--r--
config.info	1.26 KB	-rw-r--r--
config.info.ca	1.44 KB	-rw-r--r--
config.info.ca.UTF-8	1.46 KB	-rw-r--r--
config.info.cz	1.13 KB	-rw-r--r--
config.info.cz.UTF-8	1.19 KB	-rw-r--r--
config.info.da	1.13 KB	-rw-r--r--
config.info.da.UTF-8	1.13 KB	-rw-r--r--
config.info.de	1.42 KB	-rw-r--r--
config.info.de.UTF-8	1.42 KB	-rw-r--r--
config.info.es	509 B	-rw-r--r--
config.info.es.UTF-8	513 B	-rw-r--r--
config.info.fa	1.73 KB	-rw-r--r--
config.info.fr	1.2 KB	-rw-r--r--
config.info.fr.UTF-8	1.2 KB	-rw-r--r--
config.info.ja_JP.UTF-8	1.29 KB	-rw-r--r--
config.info.ja_JP.euc	1019 B	-rw-r--r--
config.info.nl	1.34 KB	-rw-r--r--
config.info.nl.UTF-8	1.34 KB	-rw-r--r--
config.info.no	1.33 KB	-rw-r--r--
config.info.no.UTF-8	1.33 KB	-rw-r--r--
config.info.pl	1.33 KB	-rw-r--r--
config.info.pl.UTF-8	1.37 KB	-rw-r--r--
config.info.pt_BR	1.33 KB	-rw-r--r--
config.info.pt_BR.UTF-8	1.34 KB	-rw-r--r--
config.info.ru.UTF-8	1.06 KB	-rw-r--r--
config.info.ru_RU	721 B	-rw-r--r--
config.info.ru_RU.UTF-8	1.06 KB	-rw-r--r--
config.info.ru_SU	721 B	-rw-r--r--
config.info.sk	1.2 KB	-rw-r--r--
config.info.sk.UTF-8	1.26 KB	-rw-r--r--
config.info.sv	383 B	-rw-r--r--
config.info.sv.UTF-8	394 B	-rw-r--r--
config.info.tr	241 B	-rw-r--r--
config.info.uk_UA	753 B	-rw-r--r--
config.info.uk_UA.UTF-8	1.09 KB	-rw-r--r--
config.info.zh_CN	162 B	-rw-r--r--
config.info.zh_CN.UTF-8	197 B	-rw-r--r--
config.info.zh_TW.Big5	1.18 KB	-rw-r--r--
config.info.zh_TW.UTF-8	1.02 KB	-rw-r--r--
confirm_delete.cgi	3.03 KB	-rwxr-xr-x
defaultacl	221 B	-rw-r--r--
delete_all.cgi	2.02 KB	-rwxr-xr-x
delete_hosts.cgi	1.57 KB	-rwxr-xr-x
delete_leases.cgi	1.04 KB	-rwxr-xr-x
delete_subnets.cgi	1.58 KB	-rwxr-xr-x
dhcpd-lib.pl	25.75 KB	-rwxr-xr-x
edit_group.cgi	7.14 KB	-rwxr-xr-x
edit_host.cgi	10.03 KB	-rwxr-xr-x
edit_iface.cgi	3.42 KB	-rwxr-xr-x
edit_keys.cgi	1.61 KB	-rwxr-xr-x
edit_options.cgi	9.08 KB	-rwxr-xr-x
edit_pool.cgi	3.32 KB	-rwxr-xr-x
edit_shared.cgi	5.64 KB	-rwxr-xr-x
edit_subnet.cgi	6.48 KB	-rwxr-xr-x
edit_text.cgi	869 B	-rwxr-xr-x
edit_zones.cgi	1.8 KB	-rwxr-xr-x
index.cgi	20.24 KB	-rwxr-xr-x
install_check.pl	557 B	-rwxr-xr-x
list_leases.cgi	8.75 KB	-rwxr-xr-x
log_parser.pl	1003 B	-rwxr-xr-x
lookup_group.cgi	1.02 KB	-rwxr-xr-x
lookup_host.cgi	2.1 KB	-rwxr-xr-x
lookup_shared.cgi	915 B	-rwxr-xr-x
lookup_subnet.cgi	969 B	-rwxr-xr-x
module.info	464 B	-rw-r--r--
module.info.ca	102 B	-rw-r--r--
module.info.ca.UTF-8	114 B	-rw-r--r--
module.info.cz	20 B	-rw-r--r--
module.info.cz.UTF-8	26 B	-rw-r--r--
module.info.de	114 B	-rw-r--r--
module.info.de.UTF-8	126 B	-rw-r--r--
module.info.es	25 B	-rw-r--r--
module.info.es.UTF-8	31 B	-rw-r--r--
module.info.fr	21 B	-rw-r--r--
module.info.fr.UTF-8	27 B	-rw-r--r--
module.info.ja_JP.UTF-8	32 B	-rw-r--r--
module.info.ja_JP.euc	27 B	-rw-r--r--
module.info.ko_KR.UTF-8	30 B	-rw-r--r--
module.info.ko_KR.euc	26 B	-rw-r--r--
module.info.ms_MY	105 B	-rw-r--r--
module.info.ms_MY.UTF-8	117 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	20 B	-rw-r--r--
module.info.no.UTF-8	26 B	-rw-r--r--
module.info.pl	105 B	-rw-r--r--
module.info.pl.UTF-8	120 B	-rw-r--r--
module.info.pt	25 B	-rw-r--r--
module.info.pt.UTF-8	31 B	-rw-r--r--
module.info.ru.UTF-8	32 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	35 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
module.info.sk	20 B	-rw-r--r--
module.info.sk.UTF-8	26 B	-rw-r--r--
module.info.sv	20 B	-rw-r--r--
module.info.sv.UTF-8	26 B	-rw-r--r--
module.info.tr	22 B	-rw-r--r--
module.info.zh_CN	22 B	-rw-r--r--
module.info.zh_TW.Big5	28 B	-rw-r--r--
params-lib.pl	5.96 KB	-rwxr-xr-x
rbac-mapping	69 B	-rw-r--r--
restart.cgi	364 B	-rwxr-xr-x
save_group.cgi	3.89 KB	-rwxr-xr-x
save_host.cgi	5.42 KB	-rwxr-xr-x
save_iface.cgi	3.44 KB	-rwxr-xr-x
save_keys.cgi	1.11 KB	-rwxr-xr-x
save_options.cgi	8.15 KB	-rwxr-xr-x
save_pool.cgi	2.51 KB	-rwxr-xr-x
save_shared.cgi	6.1 KB	-rwxr-xr-x
save_subnet.cgi	6.2 KB	-rwxr-xr-x
save_text.cgi	717 B	-rwxr-xr-x
save_zones.cgi	1.73 KB	-rwxr-xr-x
start.cgi	343 B	-rwxr-xr-x
stop.cgi	321 B	-rwxr-xr-x

Code Editor : save_options.cgi

#!/usr/bin/perl
# save_options.cgi
# Save client options for some subnet, shared net, group, host or global

require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
&lock_all_files();
$client = &get_parent_config();
push(@parents, $client);
foreach $i ($in{'sidx'}, $in{'uidx'}, $in{'gidx'}, $in{'idx'}) {
	if ($i ne '') {
		$client = $client->{'members'}->[$i];
		push(@parents, $client);
		$indent++;
		}
	}

# check acls
%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
if ($client->{'name'} eq 'subnet') {
	&error("$text{'eacl_np'} $text{'eacl_pus'}")
		if !&can('rw', \%access, $client);
	}
elsif ($client->{'name'} eq 'shared-network') {
	&error("$text{'eacl_np'} $text{'eacl_pun'}")
		if !&can('rw', \%access, $client);
	}
elsif ($client->{'name'} eq 'host') {
	&error("$text{'eacl_np'} $text{'eacl_puh'}")
		if !&can('rw', \%access, $client);
	}
elsif ($client->{'name'} eq 'group') {
	&error("$text{'eacl_np'} $text{'eacl_pug'}")
		if !&can('rw', \%access, $client);
	}
else {
	&error("$text{'eacl_np'} $text{'eacl_pglob'}")
		if !$access{'global'};
	}

# save
&error_setup($text{'sopt_failsave'});

&save_option("host-name", 3, $client, $indent);
&save_option("routers", 2, $client, $indent);
&save_option("subnet-mask", 0, $client, $indent);
&save_option("broadcast-address", 0, $client, $indent);
&save_option("domain-name", 3, $client, $indent);
&save_option("domain-name-servers", 2, $client, $indent);
&save_option("domain-search", 6, $client, $indent);
&save_option("time-servers", 2, $client, $indent);
&save_option("log-servers", 2, $client, $indent);
&save_option("swap-server", 2, $client, $indent);
&save_option("root-path", 3, $client, $indent);
&save_option("nis-domain", 3, $client, $indent);
&save_option("nis-servers", 2, $client, $indent);
&save_option("font-servers", 2, $client, $indent);
&save_option("x-display-manager", 2, $client, $indent);
&save_option("static-routes", 5, $client, $indent);
&save_option("ntp-servers", 2, $client, $indent);
&save_option("netbios-name-servers", 2, $client, $indent);
&save_option("netbios-scope", 3, $client, $indent);
&save_option("netbios-node-type", 1, $client, $indent);
&save_option("time-offset", 1, $client, $indent);
&save_option("dhcp-server-identifier", 2, $client, $indent);
&save_option("slp-directory-agent", 2, $client, $indent, 1);
&save_option("slp-service-scope", 3, $client, $indent, 1);
if ($in{'level'} eq "global") {
	# save params as well
	&save_choice("use-host-decl-names", $client, 0);
	&parse_params($client, 0);
	}
elsif ($in{'level'} eq "host") {
	$ret="edit_host.cgi?sidx=$in{'sidx'}&uidx=$in{'uidx'}&gidx=$in{'gidx'}&idx=$in{'idx'}";
	}
elsif ($in{'level'} eq "group") {
	$ret="edit_group.cgi?sidx=$in{'sidx'}&uidx=$in{'uidx'}&idx=$in{'idx'}";
	}
elsif ($in{'level'} eq "subnet") {
	$ret="edit_subnet.cgi?sidx=$in{'sidx'}&idx=$in{'idx'}";
	}
elsif ($in{'level'} eq "shared-network") {
	$ret="edit_shared.cgi?idx=$in{'idx'}";
	}

if ($config{'dhcpd_version'} >= 3) {
	# Save option definitions, new DHCPd
	@defs = grep { $_->{'name'} eq 'option' &&
			 $_->{'values'}->[1] eq 'code' &&
			 $_->{'values'}->[3] eq '=' }
		       @{$client->{'members'}};
	%optdef = map { $_->{'values'}->[0], $_ } @defs;
	for($i=0; defined($in{"dname_$i"}); $i++) {
		next if (!$in{"dname_$i"} || !$in{"dnum_$i"} ||
			 !$in{"dtype_$i"});
		$in{"dname_$i"} =~ /^[a-z0-9\.\-\_]+$/i ||
			&error(&text('sopt_edname', $in{"dname_$i"}));
		$in{"dnum_$i"} =~ /^\d+$/ ||
			&error(&text('sopt_ednum', $in{"dnum_$i"}));
		if ($in{"dtype_$i"} =~ /^[a-z0-9\s\.\-\_]+$/i) {
			@dtypes = ( $in{"dtype_$i"} );
			}
		elsif ($in{"dtype_$i"} =~ /^\{.*\}$/) {
			@dtypes = split(/\s+/, $in{"dtype_$i"});
			}
		else {
			&error(&text('sopt_edtype', $in{"dtype_$i"}));
			}
		push(@newdefs, { 'name' => 'option',
				 'values' => [ $in{"dname_$i"}, "code",
					       $in{"dnum_$i"}, "=",
					       @dtypes,
					     ] } );
		}
	&save_directive($client, \@defs, \@newdefs, $indent, 1);

# Find option definitions at higher levels
	foreach $p (@parents) {
		@popts = &find("option", $p->{'members'});
		@pdefs = grep { $_->{'values'}->[1] eq 'code' &&
			        $_->{'values'}->[3] eq '=' } @popts;
		foreach $o (@pdefs) {
			$optdef{$o->{'values'}->[0]} = $o
				if ($o->{'values'}->[0]);
			}
		}

# Find the last definition
	$maxdef = undef;
	foreach $d (@newdefs) {
		$maxdef = $d if (!$maxdef || $d->{'line'} > $maxdef->{'line'});
		}

# Save custom options
	@custom = grep { $_->{'name'} eq 'option' &&
			 $optdef{$_->{'values'}->[0]} &&
			 $_->{'values'}->[1] ne 'code' }
		       @{$client->{'members'}};
	for($i=0; defined($in{"cname_$i"}); $i++) {
		next if ($in{"cname_$i"} eq "");
		local $o = $optdef{$in{"cname_$i"}};
		local $cv = $in{"cval_$i"};
		$cv =~ /\S/ || &error(&text('sopt_ecval', $in{"cname_$i"}));
		if ($o && $o->{'values'}->[4] eq 'ip-address') {
			&check_ipaddress($cv) ||
			  &check_ip6address($cv) ||
			    &error(&text('sopt_ecip', $in{"cname_$i"}));
			}
		if ($o && $o->{'values'}->[4] =~ /^array\s+of\s+(\S+)/) {
			local $atype = $1;
			}
		elsif ($o && $o->{'values'}->[4] eq 'string' ||
		       $o && $o->{'values'}->[4] eq 'text' ||
		       $cv !~ /^([0-9a-fA-F]{1,2}:)*[0-9a-fA-F]{1,2}$/ &&
		       !&check_ipaddress($cv)) {
			# Quote if type is a string, or unknown and not an IP
			$cv = "\"$cv\"";
			}
		push(@newcustom, { 'name' => 'option',
				   'values' => [ $in{"cname_$i"}, $cv ] } );
		}
	&save_directive($client, \@custom, \@newcustom, $indent,
			$maxdef ? 0 : 1, $maxdef);
	}
else {
	# Save custom options, old DHCPd
	@custom = grep { $_->{'name'} eq 'option' &&
			 $_->{'values'}->[0] =~ /^option-(\S+)$/ &&
			 $_->{'values'}->[1] ne 'code' }
		       @{$client->{'members'}};
	for($i=0; defined($in{"cnum_$i"}); $i++) {
		next if (!$in{"cnum_$i"} || !$in{"cval_$i"});
		$in{"cnum_$i"} =~ /^\d+$/ ||
		   ($config{'dhcpd_version'} >= 3 &&
		    $in{"cnum_$i"} =~ /^\S+$/) ||
			&error(&text('sopt_ednum', $in{"cnum_$i"}));
		local $cv = $in{"cval_$i"};
		$cv = "\"$cv\""
			if ($cv !~ /^([0-9a-fA-F]{1,2}:)*[0-9a-fA-F]{1,2}$/ &&
			    !&check_ipaddress($cv));
		push(@newcustom, { 'name' => 'option',
				   'values' => [ 'option-'.$in{"cnum_$i"},
						 $cv ] } );
		}
	&save_directive($client, \@custom, \@newcustom, $indent, 1);
	}

&flush_file_lines();
&unlock_all_files();
if ($client->{'name'} eq 'subnet') {
	&webmin_log("options", 'subnet',
		    "$client->{'values'}->[0]/$client->{'values'}->[2]", \%in);
	}
elsif ($client->{'name'} eq 'shared-network') {
	&webmin_log("options", 'subnet', $client->{'values'}->[0], \%in);
	}
elsif ($client->{'name'} eq 'host') {
	&webmin_log("options", 'host', $client->{'values'}->[0], \%in);
	}
elsif ($client->{'name'} eq 'group') {
	@count = &find("host", $client->{'members'});
	&webmin_log("options", 'group',
		    join(",", map { $_->{'values'}->[0] } @count), \%in);
	}
&redirect($ret);

# save_option(name, type, &config, indent, [has-boolean])
sub save_option
{
local($v);
local $m = $_[2]->{'members'};
for($i=0; $i<@$m; $i++) {
	if ($m->[$i]->{'name'} eq 'option' &&
	    $m->[$i]->{'values'}->[0] eq $_[0]) {
		$v = $m->[$i];
		last;
		}
	}
if ($in{"$_[0]_def"}) {
	&save_directive($_[2], [ $v ], [ ], 0, 1) if ($v);
	}
else {
	local $nv = $in{$_[0]};
	local @nv = split(/\s+/, $nv);
	if ($_[1] == 0) {
		&to_ipaddress($nv) ||
			&error("$_[0] '$nv' $text{'sopt_invalidip'}");
		}
	elsif ($_[1] == 1) {
		$nv =~ /^-?\d+$/ || &error("'$nv' $text{'sopt_invalidint'}");
		}
	elsif ($_[1] == 2) {
		foreach my $ip (@nv) {
			&to_ipaddress($ip) ||
				&error("'$ip' $text{'sopt_invalidip'}");
			}
		$nv = join(", ", @nv);
		}
	elsif ($_[1] == 3) {
		$nv = "\"$nv\"";
		}
	elsif ($_[1] == 5) {
		local($ipp, @nnv);
		foreach $ipp (@nv) {
			$ipp =~ /^(\S+)\s*,\s*(\S+)$/ ||
				&error("'$ipp' $text{'sopt_invalidipp'}");
			&check_ipaddress($1) ||
				&error("'$1' $text{'sopt_invalidip'}");
			&check_ipaddress($2) ||
				&error("'$2' $text{'sopt_invalidip'}");
			push(@nnv, "$1 $2");
			}
		$nv = join(", ", @nnv);
		}
	elsif ($_[1] == 6) {
		$nv = join(", ", map { "\"$_\"" } @nv);
		}
	local @bool = !$_[4] ? ( ) :
		      $in{$_[0]."_bool"} ? ( "true" ) : ( "false" );
	local $dir = { 'name' => 'option',
		       'values' => [ $_[0], @bool, $nv ] };
	&save_directive($_[2], $v ? [ $v ] : [ ], [ $dir ], $_[3], 1);
	}
}

${this.title}

Code Editor : save_options.cgi