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
# edit_host.cgi
# Edit or create a host

require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
$conf = &get_config();
($par, $host) = &get_branch('hst');
$hconf = $host->{'members'};

# check acls
%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
if ($in{'new'}  ) {
	&error("$text{'eacl_np'} $text{'eacl_pih'}")
		unless &can('c', \%access, $host) && &can('rw', \%access, $par);
	}
else {
	&error("$text{'eacl_np'} $text{'eacl_psh'}")
		if !&can('r', \%access, $host);
	}

# display
if ($in{'uidx'} ne '') {
	my $s = $in{'sidx'} eq '' ? $conf->[$in{'uidx'}] :
		   $conf->[$in{'sidx'}]->{'members'}->[$in{'uidx'}];
	$desc = &text('ehost_subnet', $s->{'values'}->[0], $s->{'values'}->[2]);
	}
elsif ($in{'sidx'} ne '') {
	local $s = $conf->[$in{'sidx'}];
	$desc = &text('ehost_shared', $s->{'values'}->[0]);
	}
&ui_print_header($desc, $in{'new'} ? $text{'ehost_crheader'} : $text{'ehost_eheader'}, "");

@shar = &find("shared-network", $conf);
@subn = &find("subnet", $conf);
@group = &find("group", $conf);
$iu = 0; $is = 0; $ig = 0;
foreach $g (@group) {
	$gm = 0;
	foreach $h (&find("host", $g->{'members'})) { $gm++; };
	push(@group_desc, &group_name($gm, $g));
	$group_desc[$#group_desc-1] =~ s/&nbsp;/ /g;
	$script3 .= "parent.options[$ig] = "
		."new Option(\"$group_desc[$ig]\", $ig)\n"
		."parent.options[$ig].value = "
		."new String(\"$g->{'index'}\")\n"
			if &can('rw', \%access, $g);
	if ($in{'sidx'} eq '' && $in{'uidx'} eq '' && $in{'gidx'} eq $g->{'index'}) {
		$sel_parent = $ig;
		$currpar = "$g->{'index'}";
		}
	$ig ++;
	}
foreach $u (@subn) {
	push(@subn_desc, $u->{'values'}->[0]);
	$script2 .= "parent.options[$iu] = "
		."new Option(\"$subn_desc[$iu]\", $iu)\n"
		."parent.options[$iu].value = "
		."new String(\"$u->{'index'}\")\n"
			if &can('rw', \%access, $u);
	if ($in{'sidx'} eq '' && $in{'uidx'} eq $u->{'index'} && $in{'gidx'} eq '') {
		$sel_parent = $iu;
		$currpar = "$u->{'index'}";
		}
	foreach $g (&find("group", $u->{'members'})) {
		push(@group, $g);
		$gm = 0;
		foreach $h (&find("host", $g->{'members'})) { $gm ++; };
		push(@group_desc, &group_name($gm, $g).
				  " $text{'ehost_in'} $u->{'values'}->[0]");
		$group_desc[$#group_desc-1] =~ s/&nbsp;/ /g;
		$subnet{$g} = $u->{'index'};
		$script3 .= "parent.options[$ig] = "
			."new Option(\"$group_desc[$ig]\", $ig)\n"
			."parent.options[$ig].value = "
			."new String(\"$u->{'index'},$g->{'index'}\")\n"
				if &can('rw', \%access, $g);
		if ($in{'sidx'} eq '' && $in{'uidx'} eq $u->{'index'} && $in{'gidx'} eq $g->{'index'}) {
			$sel_parent = $ig;
			$currpar = "$u->{'index'},$g->{'index'}";
			}
		$ig ++;
		}
	$iu ++;
	}
foreach $s (@shar) {
	push(@shar_desc, $s->{'values'}->[0]);
	$script1 .= "parent.options[$is] = "
		."new Option(\"$shar_desc[$is]\", $is)\n"
		."parent.options[$is].value = "
		."new String(\"$s->{'index'}\")\n"
			if &can('rw', \%access, $s);
	if ($in{'sidx'} eq $s->{'index'} && $in{'uidx'} eq '' && $in{'gidx'} eq '') {
		$sel_parent = $is;
		$currpar = "$s->{'index'}";
		}
	foreach $g (&find("group", $s->{'members'})) {
		push(@group, $g);
		$gm = 0;
		foreach $h (&find("host", $g->{'members'})) { $gm ++; };
		push(@group_desc, &group_name($gm, $g).
				  " $text{'ehost_in'} $s->{'values'}->[0]");
		$group_desc[$#group_desc-1] =~ s/&nbsp;/ /g;
		$shared{$g} = $s->{'index'};
		$script3 .= "parent.options[$ig] = "
			."new Option(\"$group_desc[$ig]\", $ig)\n"
			."parent.options[$ig].value = "
			."new String(\"$s->{'index'},$g->{'index'}\")\n"
				if &can('rw', \%access, $g);
		if ($in{'sidx'} eq $s->{'index'} && $in{'uidx'} eq '' && $in{'gidx'} eq $g->{'index'}) {
			$sel_parent = $ig;
			$currpar = "$s->{'index'},$g->{'index'}";
			}
		$ig ++;
		}
	foreach $u (&find("subnet", $s->{'members'})) {
		push(@subn, $u);
		push(@subn_desc, "$u->{'values'}->[0] $text{'ehost_in'} $s->{'values'}->[0]");
		$shared{$u} = $s->{'index'};
		$script2 .= "parent.options[$iu] = "
			."new Option(\"$subn_desc[$iu]\", $iu)\n"
			."parent.options[$iu].value = "
			."new String(\"$s->{'index'},$u->{'index'}\")\n"
				if &can('rw', \%access, $u);
		if ($in{'sidx'} eq $s->{'index'} && $in{'uidx'} eq $u->{'index'} && $in{'gidx'} eq '') {
			$sel_parent = $iu;
			$currpar = "$s->{'index'},$u->{'index'}";
			}
		foreach $g (&find("group", $u->{'members'})) {
			push(@group, $g);
			$gm = 0;
			foreach $h (&find("host", $g->{'members'})) { $gm ++; };
			push(@group_desc, &group_name($gm, $g).
			  " $text{'ehost_in'} $u->{'values'}->[0] ".
			  "$text{'ehost_in'} $s->{'values'}->[0]");
			$group_desc[$#group_desc-1] =~ s/&nbsp;/ /g;
			$shared{$g} = $s->{'index'};
			$subnet{$g} = $u->{'index'};
			$script3 .= "parent.options[$ig] = "
				."new Option(\"$group_desc[$ig]\", $ig)\n"
				."parent.options[$ig].value = "
				."new String(\"$s->{'index'},$u->{'index'},$g->{'index'}\")\n"
					if &can('rw', \%access, $g);
			if ($in{'sidx'} eq $s->{'index'} && $in{'uidx'} eq $u->{'index'} && $in{'gidx'} eq $g->{'index'}) {
				$sel_parent = $ig;
				$currpar = "$s->{'index'},$u->{'index'},$g->{'index'}";
				}
			$ig ++;
			}
		$iu ++;
		}
	$is ++;
	}
print &ui_form_start("save_host.cgi", "post");
print &ui_hidden("ret",$in{'ret'});
print &ui_table_start($text{'ehost_tabhdr'}, "width=100%", 4);

print "<tr><td valign=middle><b>$text{'ehost_desc'}</b></td>\n";
print "<td valign=middle colspan=3>";
print &ui_textbox("desc", &html_escape($host->{'comment'}), 60);
print "</td>";
print "</tr>";

print "<tr><td valign=middle><b>$text{'ehost_hname'}</b></td>\n";
print "<td valign=middle>";
print &ui_textbox("name", ( $host ? $host->{'values'}->[0] : "" ), 20);
print "</td>\n";

$assign = $in{'gidx'} ne "" ? "3" :
	$in{'uidx'} ne "" ? "2" :
	$in{'sidx'} ne "" ? "1" : "0";
if (!defined($in{'ret'})) {
	my @labels = ( $text{'ehost_toplevel'}, $text{'ehost_inshared'},
			  $text{'ehost_insubnet'}, $text{'ehost_ingroup'} );
	print "<td valign=top colspan=2 rowspan=2><table><tr>";
	print "<td colspan=2>$text{'ehost_nojavascr'}</td></tr>\n<tr>" if ($in{'assign'});
	print "<td valign=top><b>$text{'ehost_assign'}</b><br>\n";
	if ($in{'assign'}) {
		$assign = $in{'assign'};
		print "$labels[$assign]</td>\n";
        print &ui_hidden("assign",$assign);
        print &ui_hidden("jsquirk",1);
		}
	else {
        my @assign_sel;
		for ($i = 0; $i <= 3; $i++) {
            push(@assign_sel, [$i, $labels[$i], ( $assign == $i ? "selected" : "" ) ]); 
			}
        print &ui_select("assign", undef, \@assign_sel, 1, undef, undef, undef, "onChange='setparent(0)'" );
		print "</td>\n";
		}
	print "<td>";
    my @parent_sel;
	if ($assign == 3) {
		$ig = 0;
		foreach $g (@group) {
            my $val = (defined($shared{$g}) ? "$shared{$g}," : "").(defined($subnet{$g}) ? "$subnet{$g}," : "").$g->{'index'};
            my $txt = $group_desc[$ig] if &can('rw', \%access, $g);
            push(@parent_sel, [$val, $txt, ($ig == $sel_parent ? "selected" : "") ] );
			$ig++;
			}
		}
	elsif ($assign == 2) {
		$iu = 0;
		foreach $u (@subn) {
            my $val1 = defined($shared{$u}) ? "$shared{$u},$u->{'index'}" : $u->{'index'};
            my $txt1 = $subn_desc[$iu] if &can('rw', \%access, $u);
            push(@parent_sel, [$val1, $txt1, ($iu == $sel_parent ? "selected" : "") ] );
			$iu++;
			}
		}
	elsif ($assign == 1) {
		$is = 0;
		foreach $s (@shar) {
            my $txt2 = $shar_desc[$is] if &can('rw', \%access, $s);
            push(@parent_sel, [$s->{'index'}, $txt1, ($is == $sel_parent ? "selected" : "") ] );
			$is++;
			}
		}
    print &ui_select("parent", undef, \@parent_sel, 5, undef, undef, undef, "width=120");
	print "</td></tr>\n";
	print "</table></td>\n";
	print "</tr><tr>\n";
	}
else {
    print &ui_hidden("assign",$assign);
    print &ui_hidden("parent",$currpar);
	}

$hard = $hconf ? &find("hardware", $hconf) : undef;
print "<td valign=middle><b>$text{'ehost_hwaddr'}</b></td>\n";
print "<td valign=middle nowrap>";
my @hardware_type_sel;
my @hardware = ("ethernet","token-ring","fddi");
foreach my $hv (@hardware) {
    push(@hardware_type_sel, [$hv,$hv, ($hard && $hard->{'values'}->[0] eq $hv ? "selected" : "")] );
}
print &ui_select("hardware_type", undef, \@hardware_type_sel, 1);
print &ui_textbox("hardware", ( $hard ? $hard->{'values'}->[1] : "" ), 18);
print "</td></tr>\n";

$fixed = $host ? &find("fixed-address", $hconf) : "";
print "<tr><td><b>$text{'ehost_fixedip'}</b></td><td>\n";
print &ui_textbox("fixed-address", ( $fixed ? join(" ", grep { $_ ne "," } @{$fixed->{'values'}}) : "" ), 20);
print "</td>\n";

&display_params($hconf, "host");

print &ui_table_end();

print &ui_hidden("gidx",$in{'gidx'});
print &ui_hidden("uidx",$in{'uidx'});
print &ui_hidden("sidx",$in{'sidx'});

if (!$in{'new'}) {
    print &ui_hidden("idx",$in{'idx'});
	print "<table width=100%><tr>\n";
    print "<td>".&ui_submit($text{'save'})."</td>" if &can('rw', \%access, $host);
    print "<td align=center>".&ui_submit(( &can('rw', \%access, $host) ? $text{'butt_eco'} : $text{'butt_vco'} ),"options")."</td>";
    print "<td align=right>".&ui_submit($text{'delete'},"delete")."</td>" if &can('rw', \%access, $host, 1);
	print "</tr></table>\n";
	}
else {
    print &ui_hidden("new",1);
    print &ui_submit($text{'butt_create'});
	}

print &ui_form_end();

print &script_fn() if (!defined($in{'ret'}));
if ($in{'ret'} eq "group") {
	&ui_print_footer("edit_group.cgi?sidx=$in{'sidx'}&uidx=$in{'uidx'}&idx=$in{'gidx'}",
		$text{'ehost_retgroup'});
	}
elsif ($in{'ret'} eq "subnet") {
	&ui_print_footer("edit_subnet.cgi?sidx=$in{'sidx'}&idx=$in{'uidx'}",
		$text{'ehost_retsubn'});
	}
elsif ($in{'ret'} eq "shared") {
	&ui_print_footer("edit_shared.cgi?idx=$in{'sidx'}", $text{'ehost_retshar'});
	}
else {
	&ui_print_footer($ret, $text{'ehost_return'});
	}

sub script_fn
{
return <<EOF
<script type='text/javascript'>
function setparent(sel)
{
var idx = document.getElementsByName("assign")[0].selectedIndex;
var v = document.getElementsByName("assign")[0].options[idx].value;
var vv = v.split(";");
var parent = document.getElementsByName("parent")[0];
parent.length = 0;

if (v==1) {
$script1
}
if (v==2) {
$script2
}
if (v==3) {
$script3
}
if (parent.length > 0) {
	parent.options[sel].selected = true;
	}
}
setparent($sel_parent);
</script>
EOF

}