LWP :: UserAgent для XML POST на сервер HTTPS не работает - PullRequest
Новая
       23

LWP :: UserAgent для XML POST на сервер HTTPS не работает

0 голосов
/ 25 января 2012

ОК ... посмотрим, станет ли это понятнее.

Я делаю POST XML-документа через LWP :: UserAgent на удаленный сторонний сервер.

Ранее они прислали мне свои файлы .crt, которые я установил на своем сервере, и проверили их адрес и тот факт, что они существуют, через CPanel и через командную строку Putty для «вызовов». Сертификаты есть.

Я гарантировал, что у меня установлены LWP :: Protocol :: https и все другие необходимые моды Perl, включая Mozilla :: CA, Crypt :: SSLeay и другие.

Когда я запускаю скрипт, я получаю следующую ошибку:

Произошла ошибка

500 Не удается подключиться к порту shortURL: порт (сертификат подтвержден не удалось) 500 Не удается подключиться к shortURL: порт (сертификат проверка не удалась) Content-Type: text / plain Клиент-дата: ср, 25 января 2012 17:53:36 GMT Client-Warning: Внутренний ответ не может подключиться к shortURL: порт (сбой проверки сертификата) LWP :: Protocol :: https :: Socket: попытка SSL-соединения не удалась с неизвестным errorerror: 14090086: SSL подпрограммы: SSL3_GET_SERVER_CERTIFICATE: сбой проверки сертификата в /usr/lib/perl5/site_perl/5.8.8/LWP/Protocol/http.pm строка 51.

Вот код вызова: 

sub ConsumerInfo {
my $cid = shift;

my $response = undef;
my $sendXML = &Create_ConsumerInfo_Request($cid);
if ($sendXML) {
    &DoXMLUpload($sendXML);

    my $browser = LWP::UserAgent->new(agent => 'site_perl',
        ssl_opts => {
            verify_hostname => 1,
            SSL_ca_path => '/home/<mysite>/ssl/certs/',
        },);
    $browser->credentials('shortURL:port','realm','username'=>'password');
    $response = $browser->request(POST 'longURL',
        Content_Type => 'text/xml',
        Content => $sendXML);
    print "Content-type:text/html\n\n";
    print $response->error_as_HTML unless $response->is_success;
    print $response->as_string;
} else {
    &ErrorMsg("No XML Code Was Found.");
    exit;   
}
# ===============================================================
# Need to insert parser in here to convert this into an array.
# ===============================================================
return $response;
}

Есть мысли? У меня заканчиваются идеи здесь. (

1 Ответ

0 голосов
/ 26 января 2012 
rm -f /home/site/ssl/certs/*

wget --no-check-certificate \
             -O /home/site/ssl/certs/DigiCertHighAssuranceCA-3.crt.pem \
    https://www.digicert.com/CACerts/DigiCertHighAssuranceCA-3.crt

wget --no-check-certificate \
              -O /home/site/ssl/certs/DigiCertHighAssuranceEVRootCA.crt.pem \
    https://www.digicert.com/testroot/DigiCertHighAssuranceEVRootCA.crt

c_rehash /home/site/ssl/certs/

echo -n | openssl s_client -connect previewtest.clverify.com:443 -CApath /home/site/ssl/certs

Третья последняя строка теперь говорит Проверьте код возврата: 0 (ок) . 

echo -n | HTTPS_CA_DIR=/home/site/ssl/certs lwp-request -m POST https://previewtest.clverify.com/webservice/exec

Теперь ответ проходит через этап шифрования и возвращает сообщение об ошибке Tomcat.

Perl-код с LWP и SSL_ca_path, как показано, также работает, по крайней мере, в крипто-части.

Широкий совет: сядьте с документами OpenSSL и, возможно, с соответствующей книгой или двумяи сделайте полный RTFM, чтобы изучить основные понятия.Если вы просто реализуете это, не понимая, что на самом деле делает, то однажды кто-то MITM передает ваши передачи, и вы даже не замечаете, что что-то не так, и тогда это будет ваша голова на линии.

...