mirror of
https://github.com/webmin/webmin.git
synced 2026-06-05 04:40:24 +01:00
32 lines
664 B
Perl
32 lines
664 B
Perl
use strict;
|
|
use warnings;
|
|
no warnings 'uninitialized';
|
|
|
|
require 'xterm-lib.pl'; ## no critic
|
|
our (%in, %text);
|
|
|
|
# acl_security_form(&options)
|
|
# Output HTML for editing security options for the xterm module
|
|
sub acl_security_form
|
|
{
|
|
my ($o) = @_;
|
|
|
|
print ui_table_row($text{'acl_user'},
|
|
ui_opt_textbox("user", $o->{'user'} eq '*' ? undef : $o->{'user'},
|
|
20, $text{'acl_sameuser'}));
|
|
|
|
print ui_table_row($text{'acl_sudoenforce'},
|
|
ui_yesno_radio("sudoenforce",
|
|
$o->{'sudoenforce'} == 1 ? 1 : 0));
|
|
}
|
|
|
|
sub acl_security_save
|
|
{
|
|
my ($o) = @_;
|
|
|
|
$o->{'user'} = $in{'user_def'} ? '*' : $in{'user'};
|
|
$o->{'sudoenforce'} = $in{'sudoenforce'} ? 1 : 0;
|
|
}
|
|
|
|
1;
|