edit_group.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_group.cgi
# Edit or create a group

require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
$conf = &get_config();
if ($in{'new'}) {
	&header($text{'egroup_crheader'}, "");
	}
else {
	&header($text{'egroup_eheader'}, "");
	$group = $conf->[$in{'idx'}];
	$gconf = $group->{'members'};
	}
print "<hr>\n";

print "<form action=save_group.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'egroup_tblhdr'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td rowspan=2 valign=top><b>$text{'egroup_hosts'}</b></td>\n";
print "<td rowspan=2><select name=hosts size=5 multiple>\n";
@host = &find("host", $conf);
foreach $g (&find("group", $conf)) {
	foreach $h (&find("host", $g->{'members'})) {
		push(@host, $h);
		$ingroup{$h} = $g->{'index'};
		}
	}
@host = sort { $a->{'values'}->[0] cmp $b->{'values'}->[0] } @host;
foreach $h (@host) {
	printf "<option value=\"%s,%s\" %s>%s\n",
		$h->{'index'}, $ingroup{$h},
		$group && $ingroup{$h} == $group->{'index'} ? "selected" : "",
		$h->{'values'}->[0];
	}
print "</select></td>\n";

print &choice_input($text{'egroup_nchoice'}, "use-host-decl-names",
		    $gconf, $text{'yes'}, "on", $text{'no'}, "off", $text{'default'}, "");
print "</tr> <tr>\n";
&display_params($gconf);

print "</table></td></tr></table>\n";
if ($group) {
	print "<input type=hidden name=idx value=\"$in{'idx'}\">\n";
	print "<table width=100%><tr>\n";
	print "<td><input type=submit value='$text{'save'}'></td>\n";
	print "<td align=center><input type=submit name=options ",
	      "value='$text{'butt_eco'}'></td>\n";
	print "<td align=right><input type=submit name=delete ",
	      "value='$text{'delete'}'></td>\n";
	print "</tr></table>\n";
	}
else {
	print "<input type=hidden name=new value=1>\n";
	print "<input type=submit value='$text{'create'}'>\n";
	}
print "</form>\n";
print "<hr>\n";
&footer("", $text{'egroup_return'});