mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
28 lines
736 B
Perl
Executable File
28 lines
736 B
Perl
Executable File
|
|
do 'shell-lib.pl';
|
|
|
|
# acl_security_form(&options)
|
|
# Output HTML for editing security options for the shell module
|
|
sub acl_security_form
|
|
{
|
|
print &ui_table_row($text{'acl_user'},
|
|
&ui_opt_textbox("user", $_[0]->{'user'}, 20, $text{'acl_user_def'})." ".
|
|
&user_chooser_button("user"));
|
|
|
|
print &ui_table_row($text{'acl_shellenv'},
|
|
&ui_yesno_radio("shellenv", $_[0]->{'shellenv'}));
|
|
|
|
print &ui_table_row($text{'acl_chroot'},
|
|
&ui_filebox("chroot", $_[0]->{'chroot'}, 30, 0, 0, undef, 1));
|
|
}
|
|
|
|
# acl_security_save(&options)
|
|
# Parse the form for security options for the shell module
|
|
sub acl_security_save
|
|
{
|
|
$_[0]->{'user'} = $in{'user_def'} ? undef : $in{'user'};
|
|
$_[0]->{'chroot'} = $in{'chroot'};
|
|
$_[0]->{'shellenv'} = $in{'shellenv'};
|
|
}
|
|
|