#!/usr/local/bin/perl # edit_pool.cgi # Edit ranges and other options in an address pool require './dhcpd-lib.pl'; require './params-lib.pl'; &ReadParse(); $conf = &get_config(); if ($in{'sidx'} ne "") { $sha = $conf->[$in{'sidx'}]; $sub = $sha->{'members'}->[$in{'uidx'}]; } else { $sub = $conf->[$in{'uidx'}]; } # check acls %access = &get_module_acl(); &error_setup($text{'eacl_aviol'}); &error("$text{'eacl_np'} $text{'eacl_pss'}") if !&can('r',\%access,$sub); # display if ($sub->{'name'} eq 'subnet') { $desc = &text('ehost_subnet', $sub->{'values'}->[0], $sub->{'values'}->[2]); } else { $desc = &text('ehost_shared', $sub->{'values'}->[0]); } if ($in{'new'}) { &ui_print_header($desc, $text{'pool_create'}, ""); } else { &ui_print_header($desc, $text{'pool_edit'}, ""); $pool = $sub->{'members'}->[$in{'idx'}]; } print "
\n"; &ui_print_footer("edit_subnet.cgi?sidx=$in{'sidx'}&idx=$in{'uidx'}", $text{'pool_return'});