mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
76 lines
2.4 KiB
Perl
Executable File
76 lines
2.4 KiB
Perl
Executable File
|
|
require 'passwd-lib.pl';
|
|
|
|
# acl_security_form(&options)
|
|
# Output HTML for editing security options for the passwd module
|
|
sub acl_security_form
|
|
{
|
|
my ($o) = @_;
|
|
print &ui_table_row($text{'acl_users'},
|
|
&ui_radio_table("mode", $o->{'mode'},
|
|
[ [ 0, $text{'acl_mode0'} ],
|
|
[ 3, $text{'acl_mode3'} ],
|
|
[ 1, $text{'acl_mode1'},
|
|
&ui_textbox("users1", $o->{'mode'} == 1 ? $o->{'users'} : "", 40).
|
|
" ".&user_chooser_button("users1", 1) ],
|
|
[ 2, $text{'acl_mode2'},
|
|
&ui_textbox("users2", $o->{'mode'} == 2 ? $o->{'users'} : "", 40).
|
|
" ".&user_chooser_button("users2", 1) ],
|
|
[ 4, $text{'acl_mode4'},
|
|
&ui_textbox("low", $o->{'low'}, 8)." - ".
|
|
&ui_textbox("high", $o->{'high'}, 8) ],
|
|
[ 5, $text{'acl_mode5'},
|
|
&ui_textbox("groups", $o->{'mode'} == 5 ? $o->{'groups'} : "", 40).
|
|
" ".&group_chooser_button("groups", 1)."<br>\n".
|
|
&ui_checkbox("sec", 1, $text{'acl_sec'}, $o->{'sec'})."<br>\n".
|
|
$text{'acl_notusers'}." ".
|
|
&ui_textbox("notusers", $o->{'notusers'}, 20)." ".
|
|
&user_chooser_button("notusers", 1) ],
|
|
[ 6, $text{'acl_mode6'},
|
|
&ui_textbox("match", $o->{'mode'} == 6 ? $o->{'users'} : "", 20) ],
|
|
]), 3);
|
|
|
|
print &ui_table_row($text{'acl_self'},
|
|
&ui_yesno_radio("self", $o->{'self'}), 3);
|
|
|
|
print &ui_table_row($text{'acl_repeat'},
|
|
&ui_yesno_radio("repeat", $o->{'repeat'}), 3);
|
|
|
|
print &ui_table_row($text{'acl_expire'},
|
|
&ui_yesno_radio("expire", $o->{'expire'}), 3);
|
|
|
|
print &ui_table_row($text{'acl_others'},
|
|
&ui_radio("others", $o->{'others'},
|
|
[ [ 1, $text{'yes'} ],
|
|
[ 2, $text{'acl_opt'} ],
|
|
[ 0, $text{'no'} ] ]), 3);
|
|
|
|
print &ui_table_row($text{'acl_old'},
|
|
&ui_radio("old", $o->{'old'},
|
|
[ [ 1, $text{'yes'} ],
|
|
[ 2, $text{'acl_old_this'} ],
|
|
[ 0, $text{'no'} ] ]), 3);
|
|
}
|
|
|
|
# acl_security_save(&options)
|
|
# Parse the form for security options for the bind8 module
|
|
sub acl_security_save
|
|
{
|
|
my ($o) = @_;
|
|
$o->{'mode'} = $in{'mode'};
|
|
$o->{'users'} = $in{'mode'} == 1 ? $in{'users1'} :
|
|
$in{'mode'} == 2 ? $in{'users2'} :
|
|
$in{'mode'} == 6 ? $in{'match'} : undef;
|
|
$o->{'groups'} = $in{'mode'} == 5 ? $in{'groups'} : undef;
|
|
$o->{'notusers'} = $in{'mode'} == 5 ? $in{'notusers'} : undef;
|
|
$o->{'low'} = $in{'low'};
|
|
$o->{'high'} = $in{'high'};
|
|
$o->{'repeat'} = $in{'repeat'};
|
|
$o->{'self'} = $in{'self'};
|
|
$o->{'old'} = $in{'old'};
|
|
$o->{'others'} = $in{'others'};
|
|
$o->{'expire'} = $in{'expire'};
|
|
$o->{'sec'} = $in{'sec'};
|
|
}
|
|
|