mirror of
https://github.com/webmin/webmin.git
synced 2026-06-05 12:50:23 +01:00
35 lines
927 B
Perl
Executable File
35 lines
927 B
Perl
Executable File
|
|
require 'postfix-lib.pl'; ## no critic
|
|
use strict;
|
|
use warnings;
|
|
our (@acl_pages, %in, %text);
|
|
@acl_pages = ("resource", "address_rewriting", "aliases", "general",
|
|
"canonical", "virtual", "transport", "relocated", "header",
|
|
"body", "bcc", "dependent", "sni", "local_delivery", "smtpd",
|
|
"sasl", "client", "smtp", "rate", "debug", "ldap",
|
|
"master", "startstop", "mailq", "postfinger", "manual");
|
|
|
|
# Print the form for security options of postfix module
|
|
sub acl_security_form
|
|
{
|
|
foreach my $o (@acl_pages) {
|
|
print &ui_table_row($text{'acl_'.$o} || $o,
|
|
&ui_yesno_radio($o, $_[0]->{$o} ? 1 : 0));
|
|
}
|
|
print &ui_table_row($text{'acl_dir'},
|
|
&ui_textbox("dir", $_[0]->{'dir'}, 50));
|
|
}
|
|
|
|
|
|
# acl_security_save(&options)
|
|
# Parse the form for security options for the postfix module
|
|
sub acl_security_save
|
|
{
|
|
foreach my $o (@acl_pages) {
|
|
$_[0]->{$o} = $in{$o};
|
|
}
|
|
$_[0]->{'dir'} = $in{'dir'};
|
|
}
|
|
|
|
|