2013-02-14T21:02:21 GwenDragon

...

Code (perl): (dl )

1
2
3
4
5
6
7
8
9

use IO::Socket::SSL;
use Net::SSLeay;
BEGIN {
    IO::Socket::SSL::set_ctx_defaults(
        SSL_verify_mode => Net::SSLeay->VERIFY_PEER(),
        SSL_verifycn_scheme => 'smtp',
        SSL_ca_file => "/etc/ssl/certs/cacert.pem"
    );
}

//EDIT3:
Quäle: http://api.metacpan.org/source/SULLR/IO-Socket-SSL...

Bis sowas gefunden ist in den Untiefen von OpenSSL und CPAN :/

1
2
3
4
5
6
7

use IO::Socket::SSL;
use Net::SSLeay;
BEGIN {
    IO::Socket::SSL::set_ctx_defaults(
        ca_file => "/etc/ssl/certs/cacert.pem"
    );
}