← Back
Editing: 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'; ## 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'});
Save File
Cancel