michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

ui-lib conversion

Browse Source
This commit is contained in:
Jamie Cameron
2022-11-06 14:17:35 -08:00
parent e65a5718d6
commit 676f369cd3
1 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
spam/acl_security.pl
View File

@@ -5,49 +5,49 @@ require 'spam-lib.pl';
# Output HTML for editing security options for the spam module
sub acl_security_form
{
my ($o) = @_;
# Allowed features
print "<tr> <td valign=top><b>$text{'acl_avail'}</b></td>\n";
print "<td><select name=avail rows=6 multiple>\n";
local %avail = map { $_, 1 } split(/,/, $_[0]->{'avail'});
foreach $a ('white', 'score', 'report', 'user', 'header', 'priv', 'setup', 'procmail',
'amavisd', 'db', 'awl', 'manual') {
printf "<option value=%s %s>%s</option>\n",
$a, $avail{$a} ? "selected" : "", $text{$a."_title"};
}
print "</select></td> </tr>\n";
my @opts = ('white', 'score', 'report', 'user', 'header', 'priv', 'setup',
'procmail', 'amavisd', 'db', 'awl', 'manual');
print &ui_table_row($text{'acl_avail'},
&ui_select("avail",
[ split(/,/, $o->{'avail'}) ],
[ map { [ $_, $text{$_."_title"} ] } @opts ],
6, 1), 3);
# Config file to edit
print "<tr> <td><b>$text{'acl_file'}</b></td>\n";
print "<td>",&ui_opt_textbox("file", $_[0]->{'file'}, 40, $text{'acl_filedef'}),
"</td> </tr>\n";
print &ui_table_row($text{'acl_file'},
&ui_opt_textbox("file", $o->{'file'}, 60, $text{'acl_filedef'}), 3);
# Allowed auto-whitelist users
print "<tr> <td><b>$text{'acl_awl'}</b></td>\n";
print "<td>",&ui_radio("awl_mode", $_[0]->{'awl_groups'} ? 2 :
$_[0]->{'awl_users'} ? 1 : 0,
print &ui_table_row($text{'acl_awl'},
&ui_radio("awl_mode", $o->{'awl_groups'} ? 2 :
$o->{'awl_users'} ? 1 : 0,
[ [ 0, $text{'acl_awl0'}."<br>\n" ],
[ 1, &text('acl_awl1',
&ui_textbox("awl_users", $_[0]->{'awl_users'}, 40).
&ui_textbox("awl_users", $o->{'awl_users'}, 40).
&user_chooser_button("awl_users", 1))."<br>\n" ],
[ 2, &text('acl_awl2',
&ui_textbox("awl_groups", $_[0]->{'awl_groups'}, 40).
&ui_textbox("awl_groups", $o->{'awl_groups'}, 40).
&group_chooser_button("awl_users", 1))."<br>\n" ],
]),"</td> </tr>\n";
]));
}
# acl_security_save(&options)
# Parse the form for security options for the cron module
sub acl_security_save
{
$_[0]->{'avail'} = join(",", split(/\0/, $in{'avail'}));
$_[0]->{'file'} = $in{'file_def'} ? undef : $in{'file'};
delete($_[0]->{'awl_users'});
delete($_[0]->{'awl_groups'});
my ($o) = @_;
$o->{'avail'} = join(",", split(/\0/, $in{'avail'}));
$o->{'file'} = $in{'file_def'} ? undef : $in{'file'};
delete($o->{'awl_users'});
delete($o->{'awl_groups'});
if ($in{'awl_mode'} == 1) {
$_[0]->{'awl_users'} = $in{'awl_users'};
$o->{'awl_users'} = $in{'awl_users'};
}
elsif ($in{'awl_mode'} == 2) {
$_[0]->{'awl_groups'} = $in{'awl_groups'};
$o->{'awl_groups'} = $in{'awl_groups'};
}
}