mirror of
https://github.com/webmin/webmin.git
synced 2026-02-12 10:02:06 +00:00
83 lines
2.3 KiB
Perl
Executable File
83 lines
2.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# edit_group.cgi
|
|
# Show a form for editing or creating a group of hosts or nets
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_use_error("groups");
|
|
&ReadParse();
|
|
if ($in{'new'}) {
|
|
&header($text{'group_title1'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
}
|
|
else {
|
|
&header($text{'group_title2'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
@groups = &list_groups();
|
|
if (defined($in{'idx'})) {
|
|
$group = $groups[$in{'idx'}];
|
|
}
|
|
else {
|
|
($group) = grep { $_->{'name'} eq $in{'name'} } @groups;
|
|
$in{'idx'} = $group->{'index'};
|
|
}
|
|
}
|
|
print "<hr>\n";
|
|
|
|
print "<form action=save_group.cgi>\n";
|
|
print "<input type=hidden name=new value='$in{'new'}'>\n";
|
|
print "<input type=hidden name=idx value='$in{'idx'}'>\n";
|
|
print "<input type=hidden name=from value='$in{'from'}'>\n";
|
|
print "<table border>\n";
|
|
print "<tr $tb> <td><b>$text{'group_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table>\n";
|
|
|
|
print "<tr> <td><b>$text{'group_name'}</b></td>\n";
|
|
printf "<td><input name=name size=20 value='%s'></td> </tr>\n",
|
|
$group->{'name'};
|
|
|
|
print "<tr> <td valign=top><b>$text{'group_members'}</b></td>\n";
|
|
print "<td><table>\n";
|
|
$i = 0;
|
|
foreach $m (( grep { !/\!?\@/ } @{$group->{'members'}} ),
|
|
$blank, $blank, $blank, $blank, $blank, $blank) {
|
|
$neg = ($m =~ s/^\!//);
|
|
print "<input name=member_$i size=40 value='$m'>\n";
|
|
print "<input type=checkbox name=neg_$i value=! ",
|
|
$neg ? "checked" : "","> $text{'group_neg'}<br>\n";
|
|
$i++;
|
|
}
|
|
print "</table>\n";
|
|
print "<input type=checkbox name=resolv value=1> $text{'group_resolv'}\n";
|
|
print "</td> </tr>\n";
|
|
|
|
# Show member groups
|
|
print "<tr> <td valign=top><b>$text{'group_members2'}</b></td>\n";
|
|
print "<td><table>\n";
|
|
$i = 0;
|
|
foreach $m (( grep { /\!?\@/ } @{$group->{'members'}} ),
|
|
$blank, $blank, $blank, $blank, $blank, $blank) {
|
|
$neg = ($m =~ s/^\!//);
|
|
$m =~ s/^\@//;
|
|
print "<tr> <td>\n";
|
|
print &group_input("group_$i", $m, 1);
|
|
print "</td> </tr>\n";
|
|
$i++;
|
|
}
|
|
print "</table></td> </tr>\n";
|
|
|
|
print "</table></td></tr></table>\n";
|
|
if ($in{'new'}) {
|
|
print "<input type=submit value='$text{'create'}'>\n";
|
|
}
|
|
else {
|
|
print "<input type=submit value='$text{'save'}'>\n";
|
|
print "<input type=submit name=delete value='$text{'delete'}'>\n";
|
|
}
|
|
print "</form>\n";
|
|
&can_edit_disable("groups");
|
|
|
|
print "<hr>\n";
|
|
$from = $in{'from'} || "groups";
|
|
&footer("list_${from}.cgi", $text{$from.'_return'});
|
|
|