Files
webmin/xterm/acl_security.pl
2026-05-21 19:03:32 -05:00

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;