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 : edit_options.cgi

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

require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
$conf = &get_config();

%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});

$client = &get_parent_config();
push(@parents, $client);
foreach $i ($in{'sidx'}, $in{'uidx'}, $in{'gidx'}, $in{'idx'}) {
	$client = $client->{'members'}->[$i] if ($i ne '');
	push(@parents, $client);
	}

if ($client->{'name'} eq 'subnet') {
	$title = &text('eopt_subtitle',$client->{'values'}->[0]);
	$back = $text{'eopt_returnsub'};
	$backlink = "edit_subnet.cgi";
	&error("$text{'eacl_np'} $text{'eacl_pss'}") if !&can('r',\%access,$client);
	}
elsif ($client->{'name'} eq 'shared-network') {
	$title = &text('eopt_snettitle',$client->{'values'}->[0]);
	$back = $text{'eopt_returnshsub'};
	$backlink = "edit_shared.cgi";
	&error("$text{'eacl_np'} $text{'eacl_psn'}") if !&can('r',\%access,$client);
	}
elsif ($client->{'name'} eq 'host') {
	$title = &text('eopt_hosttitle',$client->{'values'}->[0]);
	$back = $text{'eopt_returnhost'};
	$backlink = "edit_host.cgi";
	&error("$text{'eacl_np'} $text{'eacl_psh'}") if !&can('r',\%access,$client);
	}
elsif ($client->{'name'} eq 'group') {
	@mc = &find("host", $client->{'members'});
	$title = &text('eopt_grouptitle',scalar(@mc));
	$back = $text{'eopt_returngroup'};
	$backlink = "edit_group.cgi";
	&error("$text{'eacl_np'} $text{'eacl_psg'}") if !&can('r',\%access,$client);
	}
else {
	$title = $text{'eopt_alltitle'};
	$back = $text{'eopt_returnindex'};
	$backlink = "";
	&error("$text{'eacl_np'} $text{'eacl_pglob'}") if !$access{'global'};
	}

# display
$backlink .= "?idx=".$in{'idx'}."&gidx=".$in{'gidx'}."&uidx=".$in{'uidx'}.
	     "&sidx=".$in{'sidx'} if (backlink);
&ui_print_header($title, $text{'eopt_header'}, "");

print &ui_form_start("save_options.cgi", "post");
print &ui_hidden("level",($in{'global'} ? "global" : $client->{'name'}) );
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("gidx", $in{'gidx'});
print &ui_hidden("uidx", $in{'uidx'});
print &ui_hidden("sidx", $in{'sidx'});
print &ui_table_start($text{'eopt_tabhdr'}, "width=100%", 4);
@opts = &find("option", $client->{'members'});

print "<tr>\n";
print &option_input($text{'eopt_chost'}, "host-name", \@opts, 3);
print &option_input($text{'eopt_defrouters'}, "routers", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_smask'}, "subnet-mask", \@opts, 0);
print &option_input($text{'eopt_baddr'}, "broadcast-address", \@opts, 0);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_domname'}, "domain-name", \@opts, 3);
print &option_input($text{'eopt_dnsserv'}, "domain-name-servers", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_domsearch'}, "domain-search", \@opts, 6);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_timeserv'}, "time-servers", \@opts, 2);
print &option_input($text{'eopt_logserv'}, "log-servers", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_swapserv'}, "swap-server", \@opts, 2);
print &option_input($text{'eopt_rdpath'}, "root-path", \@opts, 3);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_nisdom'}, "nis-domain", \@opts, 3);
print &option_input($text{'eopt_nisserv'}, "nis-servers", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_fontserv'}, "font-servers", \@opts, 2);
print &option_input($text{'eopt_xdmserv'}, "x-display-manager", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_statrouters'}, "static-routes", \@opts, 5);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_ntpserv'}, "ntp-servers", \@opts, 2);
print &option_input($text{'eopt_nbns'}, "netbios-name-servers", \@opts, 2);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_nbs'}, "netbios-scope", \@opts, 3);
print &option_input($text{'eopt_nbntype'}, "netbios-node-type", \@opts, 1);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_toffset'}, "time-offset", \@opts, 1);
print &option_input($text{'plib_serverid'}, "dhcp-server-identifier", \@opts, 3);
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_slpa'}, "slp-directory-agent", \@opts, 2,
		    $text{'eopt_slpaips'});
print "</tr>\n";

print "<tr>\n";
print &option_input($text{'eopt_slps'}, "slp-service-scope", \@opts, 3,
		    $text{'eopt_slpsonly'});
print "</tr>\n";

if ($config{'dhcpd_version'} >= 3) {
	# Show option definitions
	print "<tr><td colspan=4><hr></td></tr>\n";
	@defs = grep { $_->{'values'}->[1] eq 'code' &&
		       $_->{'values'}->[3] eq '=' } @opts;
	push(@defs, undef);
	for($i=0; $i<@defs; $i++) {
		$o = $defs[$i];
		print "<tr>\n";
		print "<td><b>$text{'eopt_def'}</b></td><td nowrap colspan=3>\n";
		print "$text{'eopt_dname'}\n";
		print &ui_textbox("dname_".$i, $o->{'values'}->[0], 15);
		print "$text{'eopt_dnum'}\n";
		print &ui_textbox("dnum_".$i, $o->{'values'}->[2], 4);
		print "$text{'eopt_dtype'}\n";
		my $a=scalar(@{$o->{'values'}})-1;
		print &ui_textbox("dtype_".$i, join(" ",@{$o->{'values'}}[4..$a]), 40);
		print "</td></tr>\n";
		}

# Find option definitions at higher levels
	%optdef = ( );
	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]);
			}
		}

# Show values for custom options
	if (keys %optdef) {
		@custom = grep { $optdef{$_->{'values'}->[0]} &&
				 $_->{'values'}->[1] ne 'code' } @opts;
		push(@custom, undef);
		push(@custom, undef) if (@custom%2 == 1);
		for($i=0; $i<@custom; $i++) {
			$o = $custom[$i];
			print "<tr><td><b>$text{'eopt_custom'}</b></td>\n";
			print "<td nowrap colspan=3>$text{'eopt_cname'}\n";
			local ($ov, @v) = @{$o->{'values'}};
			print &ui_select("cname_$i", $ov,
				[ [ "", "&nbsp;" ],
				  sort { $a cmp $b } keys %optdef ],
				1, 0, $ov ? 1 : 0);
			print "$text{'eopt_cval'}\n";
			print &ui_textbox("cval_$i", join(" ", @v), 40);
			print "</td></tr>\n";
			}
		}
	}
else {
	# Show custom numeric options
	print "<tr><td colspan=4><hr></td></tr>\n";
	@custom = grep { $_->{'values'}->[0] =~ /^option-(\S+)$/ &&
			 $_->{'values'}->[1] ne 'code' } @opts;
	push(@custom, undef);
	push(@custom, undef) if (@custom%2 == 1);
	for($i=0; $i<@custom; $i++) {
		$o = $custom[$i];
		print "<tr>\n" if ($i%2 == 0);
		print "<td><b>$text{'eopt_custom'}</b></td>\n";
		print "<td nowrap>$text{'eopt_cnum'}\n";
		my ($ov, @v) = @{$o->{'values'}};
        print &ui_textbox("cnum_".$i, ( $ov =~ /^option-(\S+)$/ ? $1 : '' ), 4);
		print "$text{'eopt_cval'}\n";
        print &ui_textbox("cval_".$i, join(" ", @v), 15);
		print "</tr>\n" if ($i%2 != 0);
		}
	}

if ($in{'global'}) {
	# Display options for subnets and hosts too
	print "<tr><td colspan=4><hr></td></tr>\n";
	print "<tr>\n";
	print &choice_input($text{'egroup_nchoice'}, "use-host-decl-names",
			    $conf, $text{'yes'}, "on", $text{'no'}, "off",
			    $text{'default'}, "");
	&display_params($conf, "global");
	}

print &ui_table_end();
print &ui_submit($text{'save'});
print &ui_form_end();

#print "<input type=submit value=\"$text{'save'}\"></form>\n"
#	if &can('rw',\%access,$client);

&ui_print_footer($backlink, $back);

# option_input(text, name, &config, type, [initial-boolean])
# types values:	0  - IP address
#		1  - Integer
#		2  - IP address list
#		3  - String
#		4  - Yes/no flag
#		5  - IP address pairs
#		6  - String list
sub option_input
{
my($rv, $v, $i);
for($i=0; $i<@{$_[2]}; $i++) {
	if ($_[2]->[$i]->{'values'}->[0] eq $_[1]) {
		$v = $_[2]->[$i];
		last;
		}
	}
$rv = "<td><b>$_[0]</b></td>\n";
if ($_[3] == 5 || $_[3] == 6 || $_[4]) { $rv .= "<td colspan=3 nowrap>"; }
else { $rv .= "<td nowrap>"; }

$rv .= &ui_radio($_[1]."_def", ( $v ? 0 : 1 ),
                [ [ 1, $text{'default'} ],
                [ 0, "&nbsp;" ] ]);

my @vl = $v ? @{$v->{'values'}} : ();
@vl = @vl[1..$#vl];
my $bool;
if ($_[4]) {
	$bool = shift(@vl);
	}
if ($_[3] == 0) {
    $rv .= &ui_textbox($_[1], $vl[0], 15);
	}
elsif ($_[3] == 1) {
    $rv .= &ui_textbox($_[1], $vl[0], 4);
	}
elsif ($_[3] == 2) {
	@vl = map { s/,//g; $_ } grep { $_ ne "," } @vl;
    $rv .= &ui_textbox($_[1], join(" ", @vl), 20);
	}
elsif ($_[3] == 3) {
	my $str = &oct_to_string($vl[0]);
    $rv .= &ui_textbox($_[1], $str, 20);
	}
elsif ($_[3] == 4) {
    $rv .= &ui_radio($_[1], $vl[0],
                [ [ 1, $text{'yes'} ],
                [ 0, $text{'no'} ] ]);
	}
elsif ($_[3] == 5) {
	@vl = grep { $_ ne "," } @vl;
    my $val;
	for($i=0; $i<@vl; $i+=2) {
		$val .= " " if ($i);
		$val .= $vl[$i].",".$vl[$i+1];
		}
    $rv .= &ui_textbox($_[1], $val, 50);
	}
elsif ($_[3] == 6) {
	@vl = map { s/,//g; $_ } grep { $_ ne "," } @vl;
    $rv .= &ui_textbox($_[1], join(" ", @vl), 50);
	}
if ($_[4]) {
	$rv .= &ui_checkbox($_[1]."_bool", 1, $_[4], lc($bool) eq "true");
	}
$rv .= "</td>\n";
return $rv;
}

sub oct_to_string
{
my @b = split(/:/, $_[0]);
my $rv;
foreach $b (@b) {
	if ($b !~ /^[A-z0-9]{1,2}$/) {
		# Wasn't actually in octet format after all.
		return $_[0];
		}
	$rv .= chr(hex($b));
	}
return $rv;
}

${this.title}

Code Editor : edit_options.cgi