edit_shared.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 49 行

#!/usr/local/bin/perl
# edit_shared.cgi
# Edit or create a shared network

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

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

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

$sconf = $sha ? $sha->{'members'} : undef;
&display_params($sconf);

print "</table></td></tr></table>\n";
if ($sha) {
	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{'esh_return'});