|
Lines 1903-1909
Link Here
|
| 1903 |
if ($conf{'tls_server'} == 1 and $conf{'tls_client'} == 1 and $opt{'tls'} =~ /^(yes|auto)$/) { |
1903 |
if ($conf{'tls_server'} == 1 and $conf{'tls_client'} == 1 and $opt{'tls'} =~ /^(yes|auto)$/) { |
| 1904 |
printmsg("DEBUG => Starting TLS", 2); |
1904 |
printmsg("DEBUG => Starting TLS", 2); |
| 1905 |
if (SMTPchat('STARTTLS')) { quit($conf{'error'}, 1); } |
1905 |
if (SMTPchat('STARTTLS')) { quit($conf{'error'}, 1); } |
| 1906 |
if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3 TLSv1')) { |
1906 |
if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3')) { |
| 1907 |
quit("ERROR => TLS setup failed: " . IO::Socket::SSL::errstr(), 1); |
1907 |
quit("ERROR => TLS setup failed: " . IO::Socket::SSL::errstr(), 1); |
| 1908 |
} |
1908 |
} |
| 1909 |
printmsg("DEBUG => TLS: Using cipher: ". $SERVER->get_cipher(), 3); |
1909 |
printmsg("DEBUG => TLS: Using cipher: ". $SERVER->get_cipher(), 3); |
