File: //usr/share/webmin/shorewall6/acl_security.pl
do 'shorewall6-lib.pl';
# acl_security_form(&options)
# Output HTML for editing security options for the acl module
sub acl_security_form
{
my ($o) = @_;
print &ui_table_row($text{'acl_nochange'},
&ui_yesno_radio("nochange", int($o->{'nochange'}), 0, 1));
print &ui_table_row($text{'acl_files'},
&ui_radio("files_def", $o->{'files'} eq '*' ? 1 : 0,
[ [ 1, $text{'acl_all'} ], [ 0, $text{'acl_sel'} ] ])."<br>\n".
&ui_select("files", [ split(/\s+/, $o->{'files'}) ],
[ map { [ $_, $text{$_."_title"}." ($_)" ] }
@shorewall6_files ], 5, 1),
3);
}
# acl_security_save(&options)
# Parse the form for security options for the acl module
sub acl_security_save
{
$_[0]->{'nochange'} = $in{'nochange'};
$_[0]->{'files'} = $in{'files_def'} ? "*"
: join(" ", split(/\0/, $in{'files'}));
}