☰

SSL.pm

tag-icon • tag-icon perl ssl ubuntu
SSL.pm

私のコンピュータを（k）ubuntu 12.04から12.10にアップグレードしたのでsendemail。

以前のバージョンのIO :: Socket :: SSLをインストールできませんでした。私の印象はすべてが期待どおりに機能し、メッセージは単なる警告であるということです。

このメッセージをどのように削除できますか？

SSL.pm

以下は問題（/usr/share/perl5/IO/Socket/SSL.pm）に関連していると思います。

34  use constant DEFAULT_VERSION     => 'SSLv23:!SSLv2';

...

251         my %default_args = (
252                 Proto => 'tcp',
253                 SSL_server => $is_server,
254                 SSL_use_cert => $is_server,
255                 SSL_check_crl => 0,
256                 SSL_version     => DEFAULT_VERSION,
257                 SSL_verify_mode => SSL_VERIFY_NONE,
258                 SSL_verify_callback => undef,
259                 SSL_verifycn_scheme => undef,  # don't verify cn
260                 SSL_verifycn_name => undef,    # use from PeerAddr/PeerHost
261                 SSL_npn_protocols => undef,    # meaning depends whether on server or client side
262                 SSL_honor_cipher_order => 0,   # client order gets preference
263         );

...

332         ${*$self}{'_SSL_ctx'} = IO::Socket::SSL::SSL_Context->new($arg_hash) || return;

メールを送信

sendemailの最後に、コードは次のようになると思います。

1903     ## Start TLS if possible
1904     if ($conf{'tls_server'} == 1 and $conf{'tls_client'} == 1 and $opt{'tls'} =~ /^(yes|auto)$/) {
1905         printmsg("DEBUG => Starting TLS", 2);
1906         if (SMTPchat('STARTTLS')) { quit($conf{'error'}, 1); }
1907         if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3 TLSv1')) {
1908             quit("ERROR => TLS setup failed: " . IO::Socket::SSL::errstr(), 1);
1909         }
1910         printmsg("DEBUG => TLS: Using cipher: ". $SERVER->get_cipher(), 3);
1911         printmsg("DEBUG => TLS session initialized :)", 1);
1912 
1913         ## Restart our SMTP session
1914         if (SMTPchat('EHLO ' . $opt{'fqdn'})) { quit($conf{'error'}, 1); }
1915     }
1916     elsif ($opt{'tls'} eq 'yes' and $conf{'tls_server'} == 0) {
1917         quit("ERROR => TLS not possible! Remote SMTP server, $conf{'server'},  does not support it.", 1);
1918     }

答え1

Debian のバグ追跡サイトにバグレポートがあります。 http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=679911

また、回避策も指摘します。

-o tls=noコマンドラインでオプションとして指定されます。

ありがとう、debian.org @Manolo Díaz

答え2

実際にはデフォルト値を使用してください（2番目のパラメータを削除）。バラよりhttps://metacpan.org/pod/IO::ソケット::SSL（SSL_version検索）デフォルトはSSLv23：！SSLv3：！SSLv2です。

v1.56の1906行を次のように修正しました。

#        if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3 TLSv1')) {
    if (! IO::Socket::SSL->start_SSL($SERVER)) {

（元の行をコメントアウトしてください）

答え3

より簡単な解決策は次のとおりです。

変える:

m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))$}i

そして：

m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))}i

答え4

SSLバージョンを修正した後も証明書エラーが発生する場合（上記のように）、証明書検証を無効にする必要があります。

if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv23:!SSLv2', SSL_verify_mode => 0)) {

関連情報