#!/usr/local/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';    ## no critic
use strict;
use warnings;
our ($default, $inet, $level, $no_, $none, $postfix_version, $pref, %access, %inet, @opts, %text);


$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");
	}

# SMTPUTF8 support
if (&compare_version_numbers($postfix_version, 3.0) >= 0) {
	&option_yesno("smtputf8_enable");
	}

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);

&ui_print_footer("", $text{'index_return'});

