#!/usr/local/bin/perl # edit_group.cgi # Edit or create a group require './dhcpd-lib.pl'; require './params-lib.pl'; &ReadParse(); $conf = &get_config(); ($par, $group) = get_branch('grp'); $gconf = $group->{'members'}; $mems = $par->{'members'}; # check acls %access = &get_module_acl(); &error_setup($text{'eacl_aviol'}); if ($in{'new'}) { &error("$text{'eacl_np'} $text{'eacl_pig'}") unless &can('c', \%access, $group) && &can('rw', \%access, $par); } else { &error("$text{'eacl_np'} $text{'eacl_psg'}") if !&can('r', \%access, $group); } # per hosts acl check is below # display if ($in{'uidx'} ne '') { local $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{'egroup_crheader'} : $text{'egroup_eheader'}, ""); @shar = &find("shared-network", $conf); @subn = &find("subnet", $conf); $iu = 0; $is = 0; 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'}) { $sel_parent = $iu; $currpar = "$u->{'index'}"; } $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 '') { $sel_parent = $is; $currpar = "$s->{'index'}"; } $is ++; 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'}) { $sel_parent = $iu; $currpar = "$s->{'index'},$u->{'index'}"; } $iu ++; } } print "
\n"; print &script_fn() if (!defined($in{'ret'})); if ($in{'ret'} eq "subnet") { &ui_print_footer("edit_subnet.cgi?sidx=$in{'sidx'}&idx=$in{'uidx'}", $text{'egroup_retsubn'}); } elsif ($in{'ret'} eq "shared") { &ui_print_footer("edit_shared.cgi?idx=$in{'sidx'}", $text{'egroup_retshar'}); } else { &ui_print_footer($ret, $text{'egroup_return'}); } sub script_fn { return <