edit_host.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_host.cgi
# Edit or create a host

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

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

print "<tr> <td><b>$text{'ehost_hname'}</b></td>\n";
printf "<td><input name=name size=20 value=\"%s\"></td>\n",
	$host ? $host->{'values'}->[0] : "";

$hard = $hconf ? &find("hardware", $hconf) : undef;
print "<td><b>$text{'ehost_hwaddr'}Hardware address</b></td>\n";
print "<td nowrap><select name=hardware_type>\n";
printf "<option %s>ethernet\n",
	$hard && $hard->{'values'}->[0] eq "ethernet" ? "selected" : "";
printf "<option %s>token-ring\n",
	$hard && $hard->{'values'}->[0] eq "token-ring" ? "selected" : "";
printf "<option %s>fddi\n",
	$hard && $hard->{'values'}->[0] eq "fddi" ? "selected" : "";
print "</select>";
printf "<input name=hardware size=18 value=\"%s\"></td> </tr>\n",
	$hard ? $hard->{'values'}->[1] : "";

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

&display_params($hconf);

print "</table></td></tr></table>\n";
if ($host) {
	print "<input type=hidden name=idx value=\"$in{'idx'}\">\n";
	print "<input type=hidden name=gidx value=\"$in{'gidx'}\">\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{'butt_create'}>\n";
	}
print "</form>\n";
print "<hr>\n";
&footer("", $text{'ehost_return'});