Current File : //usr/share/webmin/postfix/smtp.cgi |
#!/usr/bin/perl
#
# postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
# for webmin by Jamie Cameron
#
# A form for SMTP client parameters.
#
# << Here are all options seen in Postfix sample-smtp.cf >>
require './postfix-lib.pl';
$access{'smtp'} || &error($text{'smtp_ecannot'});
&ui_print_header(undef, $text{'smtp_title'}, "");
$default = $text{'opts_default'};
$none = $text{'opts_none'};
$no_ = $text{'opts_no'};
# Start of form
print &ui_form_start("save_opts.cgi");
print &ui_hidden("_log_form", "smtp");
print &ui_table_start($text{'smtp_title'}, "width=100%", 4);
&option_radios_freefield("best_mx_transport", 25, $text{'opts_best_mx_transport_default'});
&option_radios_freefield("fallback_relay", 60, $default);
&option_yesno("ignore_mx_lookup_error", 'help');
if (&compare_version_numbers($postfix_version, 2) <= 0) {
&option_yesno("smtp_skip_4xx_greeting", 'help');
}
&option_yesno("smtp_skip_quit_response", 'help');
&option_radios_freefield("smtp_destination_concurrency_limit", 15, $default);
&option_radios_freefield("smtp_destination_recipient_limit", 15, $default);
&option_freefield("smtp_connect_timeout", 15);
&option_freefield("smtp_helo_timeout", 15);
&option_freefield("smtp_mail_timeout", 15);
&option_freefield("smtp_rcpt_timeout", 15);
&option_freefield("smtp_data_init_timeout", 15);
&option_freefield("smtp_data_xfer_timeout", 15);
&option_freefield("smtp_data_done_timeout", 15);
&option_freefield("smtp_quit_timeout", 15);
&option_freefield("smtp_sasl_security_options", 60);
# TLS enforcement options
if (&compare_version_numbers($postfix_version, 2.3) >= 0) {
$level = &get_current_value("smtp_tls_security_level");
print &ui_table_row($text{'opts_smtp_tls_security_level'},
&ui_select("smtp_tls_security_level_def", $level,
[ [ "", $text{'default'} ],
[ "none", $text{'sasl_level_none'} ],
[ "may", $text{'sasl_level_may'} ],
[ "encrypt", $text{'sasl_level_encrypt'} ],
[ "dane", $text{'sasl_level_dane'} ],
[ "dane-only", $text{'sasl_level_dane_only'} ],
[ "fingerprint", $text{'sasl_level_fingerprint'} ],
[ "verify", $text{'sasl_level_verify'} ],
[ "secure", $text{'sasl_level_secure'} ],
]));
}
else {
&option_yesno("smtp_enforce_tls");
}
# Inet protocols
%inet = map { $_, 1 } split(/\s*,\s*/, &get_current_value("inet_protocols"));
$inet = !%inet ? "" :
$inet{'all'} ? "all" :
$inet{'ipv4'} ? "ipv4" :
$inet{'ipv6'} ? "ipv6" : join(" ", keys %inet);
@opts = ( [ "", $text{'default'} ],
[ "all", $text{'opts_inet_protocols_all'} ],
[ "ipv4", "IPv4" ],
[ "ipv6", "IPv6" ] );
push(@opts, $inet) if (&indexof($inet, map { $_->[0] } @opts) < 0);
print &ui_table_row($text{'opts_inet_protocols'},
&ui_radio("inet_protocols", $inet, \@opts));
# SMTP client protocol preference
if (&compare_version_numbers($postfix_version, 2.8) >= 0) {
$pref = &get_current_value("smtp_address_preference");
print &ui_table_row($text{'opts_smtp_address_preference'},
&ui_select("smtp_address_preference_def", $pref,
[ [ "any", $text{'opts_smtp_address_preference_any'} ],
[ "ipv4", "IPv4" ],
[ "ipv6", "IPv6" ] ]));
}
# Balance SMTP client protocols
if (&compare_version_numbers($postfix_version, 3.3) >= 0) {
&option_yesno("smtp_balance_inet_protocols");
}
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);
&ui_print_footer("", $text{'index_return'});