mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
43 lines
1.4 KiB
Perl
Executable File
43 lines
1.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_gsync.cgi
|
|
# Allow the user to edit auto updating of Samba groups by useradmin
|
|
|
|
require './samba-lib.pl';
|
|
%access = &get_module_acl();
|
|
$access{'maint_gsync'} || &error($text{'gsync_ecannot'});
|
|
&ui_print_header(undef, $text{'gsync_title'}, "");
|
|
|
|
&check_group_enabled($text{'gsync_cannot'});
|
|
|
|
print $text{'gsync_msg'}, "<p>\n";
|
|
|
|
print "<form action=save_gsync.cgi>\n";
|
|
printf "<input type=checkbox name=add value=1 %s>\n",
|
|
$config{'gsync_add'} ? "checked" : "";
|
|
print "$text{'gsync_add'}\n";
|
|
print "<table>\n";
|
|
print "<tr> <td width=20></td> <td>$text{'gsync_type'}</td>\n";
|
|
print "<td><select name=type>\n";
|
|
foreach $t ('l', 'd', 'b', 'u') {
|
|
printf "<option value=%s %s>%s\n",
|
|
$t, $config{'gsync_type'} eq $t ? "selected" : "",
|
|
$text{'groups_type_'.$t};
|
|
}
|
|
print "</select></td> </tr>\n";
|
|
print "<tr> <td width=20></td> <td>$text{'gsync_priv'}</td>\n";
|
|
printf "<td><input name=priv size=40 value='%s'></td> </tr>\n",
|
|
$config{'gsync_priv'};
|
|
print "</table><p>\n";
|
|
|
|
printf "<input type=checkbox name=change value=1 %s>\n",
|
|
$config{'gsync_change'} ? "checked" : "";
|
|
print "$text{'gsync_chg'}<p>\n";
|
|
|
|
printf "<input type=checkbox name=delete value=1 %s>\n",
|
|
$config{'gsync_delete'} ? "checked" : "";
|
|
print "$text{'gsync_del'}<p>\n";
|
|
print "<input type=submit value=\"", $text{'gsync_apply'}, "\"></form>\n";
|
|
|
|
&ui_print_footer("", $text{'index_sharelist'});
|
|
|