mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
89 lines
2.7 KiB
Perl
Executable File
89 lines
2.7 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_group.cgi
|
|
# Show a form for editing an existing groups
|
|
|
|
require './samba-lib.pl';
|
|
|
|
$access{'maint_groups'} || &error($text{'groups_ecannot'});
|
|
&ReadParse();
|
|
if ($in{'new'}) {
|
|
&ui_print_header(undef, $text{'gedit_title1'}, "");
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'gedit_title2'}, "");
|
|
@groups = &list_groups();
|
|
$group = $groups[$in{'idx'}];
|
|
}
|
|
|
|
print "<form action=save_group.cgi method=post>\n";
|
|
print "<input type=hidden name=idx value='$in{'idx'}'>\n";
|
|
print "<input type=hidden name=new value='$in{'new'}'>\n";
|
|
|
|
print "<table border width=100%>\n";
|
|
print "<tr $tb> <td><b>$text{'gedit_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table width=100%>\n";
|
|
|
|
print "<tr> <td><b>$text{'gedit_name'}</b></td>\n";
|
|
if ($in{'new'}) {
|
|
print "<td><input name=name size=20></td>\n";
|
|
}
|
|
else {
|
|
print "<td><tt>$group->{'name'}</b></td>\n";
|
|
}
|
|
|
|
print "<td><b>$text{'gedit_type'}</b></td>\n";
|
|
print "<td><select name=type>\n";
|
|
foreach $t ('l', 'd', 'b', 'u') {
|
|
printf "<option value=%s %s>%s\n",
|
|
$t, $group->{'type'} eq $t ? "selected" : "",
|
|
$text{'groups_type_'.$t};
|
|
$found++ if ($group->{'type'} eq $t);
|
|
}
|
|
print "<option selected>$group->{'type'}\n" if (!$found && !$in{'new'});
|
|
print "</select></td> </tr>\n";
|
|
|
|
print "<tr> <td><b>$text{'gedit_unix'}</b></td> <td>\n";
|
|
if ($group->{'unix'} == -1) {
|
|
printf "<input type=radio name=unix_def value=1 %s> %s\n",
|
|
$group->{'unix'} == -1 ? "checked" : "", $text{'gedit_none'};
|
|
printf "<input type=radio name=unix_def value=0 %s> %s\n",
|
|
$group->{'unix'} == -1 ? "" :"checked", $text{'gedit_unixgr'};
|
|
}
|
|
print &unix_group_input("unix",
|
|
$group->{'unix'} == -1 ? undef : $group->{'unix'});
|
|
print "</td>\n";
|
|
|
|
print "<td><b>$text{'gedit_desc'}</b></td>\n";
|
|
print "<td><input name=desc size=30 ",
|
|
"value='$group->{'desc'}'></td> </tr>\n";
|
|
|
|
if ($in{'new'}) {
|
|
print "<tr> <td><b>$text{'gedit_priv'}</b></td> <td colspan=3>\n";
|
|
print "<input type=radio name=priv_def value=1 checked> $text{'gedit_none'}\n";
|
|
print "<input type=radio name=priv_def value=0> $text{'gedit_set'}\n";
|
|
print "<input name=priv size=50></td> </tr>\n";
|
|
}
|
|
else {
|
|
print "<tr> <td><b>$text{'gedit_sid'}</b></td>\n";
|
|
print "<td colspan=3><tt>$group->{'sid'}</tt></td> </tr>\n";
|
|
|
|
print "<tr> <td><b>$text{'gedit_priv'}</b></td>\n";
|
|
print "<td colspan=3>",$group->{'priv'} || $text{'gedit_none'},"</td> </tr>\n";
|
|
}
|
|
|
|
print "</table></td></tr></table>\n";
|
|
|
|
print "<table width=100%><tr>\n";
|
|
if ($in{'new'}) {
|
|
print "<td><input type=submit value='$text{'create'}'></td>\n";
|
|
}
|
|
else {
|
|
print "<td><input type=submit value='$text{'save'}'></td>\n";
|
|
print "<td align=right ><input type=submit name=delete ",
|
|
"value='$text{'delete'}'></td>\n";
|
|
}
|
|
print "</tr></table></form>\n";
|
|
|
|
&ui_print_footer("list_groups.cgi", $text{'groups_return'});
|
|
|