<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use strict;
use warnings;
do 'acl-lib.pl';
our (%text, %in);

# acl_security_form(&amp;options)
# Output HTML for editing security options for the acl module
sub acl_security_form
{
my ($o) = @_;

print &amp;ui_table_row($text{'acl_show'},
	&amp;ui_radio("show_def", $o-&gt;{'show'} eq '*' ? 1 : 0,
		  [ [ 1, $text{'acl_showall'} ],
		    [ 0, $text{'acl_showsel'} ] ])."&lt;br&gt;\n".
	&amp;ui_select("show", [ split(/\s+/, $o-&gt;{'show'}) ],
		   [ [ 'host', $text{'acl_host'} ],
		     [ 'cpu', $text{'acl_cpu'} ],
		     [ 'temp', $text{'acl_temp'} ],
		     [ 'load', $text{'acl_load'} ],
		     [ 'mem', $text{'acl_mem'} ],
		     [ 'disk', $text{'acl_disk'} ],
		     [ 'poss', $text{'acl_poss'} ] ], 7, 1));
}

# acl_security_save(&amp;options, &amp;in)
# Parse the form for security options for the acl module
sub acl_security_save
{
my ($o, $in) = @_;
if ($in-&gt;{'show_def'}) {
	$o-&gt;{'show'} = '*';
	}
else {
	$o-&gt;{'show'} = join(' ', split(/\0/, $in-&gt;{'show'}));
	}
}
</pre></body></html>