После выполнения apt-get dist-upgrade сценарии Perl больше не будут игнорировать недействительные сертификаты SSL 14.04.

Всем доброе утро,

На прошлой неделе я решил запустить команды для обновления пакетов на моем сервере 14.04, чтобы убедиться, что меня исправили из-за недавно обнаруженных уязвимостей Bash. Согласно информации здесь ( http://www.ubuntu.com/usn/usn-2362-1/) я запустил apt-get dist-upgrade. Для справки я запустил apt-get update, apt-get dist-upgrade и затем apt-get upgrade, чтобы убедиться, что у меня все до последних версий (хотя я обычно запускаю apt-get upgrade).

После успешного выполнения этого я обнаружил, что ряд моих сценариев Perl больше не работают. Для справки, я использую этот сервер для Nagios для мониторинга всех других моих серверов. Рассматриваемые сценарии, которые теперь не работают, подключаются к системе через https, входят в систему хоста и запрашивают различную информацию.

До обновления я смог добавить строку в каждый из моих скриптов Perl, чтобы он игнорировал SSL:

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0 } 

Однако после обновления это, похоже, никак не сказывается, и все сценарии терпят неудачу, поскольку не могут проверить сертификаты SSL (все самозаверяющие).

Вот некоторые фрагменты того, что я вижу:

выполнение скрипта:

    nagios@nagios:/usr/local/nagios/libexec$ ./check_esx.pl -H 192.168.22.18 -u root -p password -l cpu
CHECK_ESX.PL CRITICAL - Can't connect to 192.168.22.18:443 (certificate verify failed)

LWP::Protocol::https::Socket: SSL connect attempt failed error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/share/perl5/LWP/Protocol/http.pm line 41.

Этот конкретный Perl-скрипт использует "Perl Toolkit VMware Infrastructure (VI)" для работы. Сценарий, который я вызываю, check_esx.pl доступен здесь

Вот фрагмент файла http.pm вокруг строки, указанной в приведенной выше ошибке; линия 41 является линией "die".

sub _new_socket
{
    my($self, $host, $port, $timeout) = @_;

    local($^W) = 0;  # IO::Socket::INET can be noisy
    my $sock = $self->socket_class->new(PeerAddr => $host,
                                        PeerPort => $port,
                                        LocalAddr => $self->{ua}{local_address},
                                        Proto    => 'tcp',
                                        Timeout  => $timeout,
                                        KeepAlive => !!$self->{ua}{conn_cache},
                                        SendTE    => 1,
                                        $self->_extra_sock_opts($host, $port),
                                       );

    unless ($sock) {
        # IO::Socket::INET leaves additional error messages in $@
        my $status = "Can't connect to $host:$port";
        if ($@ =~ /\bconnect: (.*)/ ||
            $@ =~ /\b(Bad hostname)\b/ ||
            $@ =~ /\b(certificate verify failed)\b/ ||
            $@ =~ /\b(Crypt-SSLeay can't verify hostnames)\b/
        ) {
            $status .= " ($1)";
        }
        die "$status\n\n$@";
    }

    # perl 5.005's IO::Socket does not have the blocking method.
    eval { $sock->blocking(0); };

    $sock;
}

Так что я думаю, что я ищу здесь, это одна из двух вещей

Либо: (A) Есть ли новый / лучший / более правильный способ заставить Perl игнорировать сертификаты SSL? или (B) Есть ли способ импортировать самоподписанный сертификат SSL с другого хоста в Ubuntu, чтобы скрипт Perl распознал и доверял ему? В качестве альтернативы: (B-2) Есть ли способ заставить Ubuntu распознавать центр сертификации моего активного каталога Windows таким образом, чтобы я мог выдавать сертификаты SSL от моего ЦС для рассматриваемых систем и распознавать ли это сценарии Perl?

Спасибо всем заранее!