Запрос скриптом по https + сертификация

[Troum]

Остро встал такой вопрос. Perl - скрипт должен стукануться по https на некий хост и получить некий ответ. https - авторизация по CA ключу. Я наивно думаю, что все вопросы автризации Apache+SSL берет на себя. Или же существует сертификат скрипта и авторизацию надо делать программно ? (как мне сказали)?
Помогите разобраться

[Troum]

Приношу извинения за некорректно поставленный вопрос. Раз скрипт выстуапет клиентом, то речь идет о сертификате клиента. Сколько я понял, данную задачу решает модуль Net::SSLeay, но вот разобраться в его мануале немного трудновато. Може кто примером подсобит

[Chs]

perldoc lwpcook в в части запроса https.
Только libwwwperl не работает по https через проски.

[Troum]

Вопрос в том, что доступ на хост по https должен сопровождаться авторизацией CA сертификата клиента (скрипта). LWP этого не делает, а делает только Net::SSLeay. Вот с ним и борюсь, но мануал какой-то запутаный, по моему.

[Alone]

LWP это далает... "с помощью" Crypt::SSLeay

[Troum]

а не можешь пример рабочий выожить?

[Alone]

 $request = new HTTP::Request(\'GET\', "https://...");
 $response = $ua->request($request);
 if ($response->is_success)
 {
  $res=$response->content;
 }
 else {print $response ->status_line; }

[Troum]

Спасибо, конечно
но не видно реализации авторизации (рифма однако
дело в том, что авторизация клиентского сертификата требует (как я понял) отсылки файлов сертификата и ключа
в доке увидел следующее решение

use Net::SSLeay qw(get_https);
($page, $result, %headers) = get_https($host, 443, \'/\', \'\',\'\',\'\', $path_to_crt, $path_to_key);

Однако, тестируя это, получаю ошибку, о превышении количества аргументов в get_https
А может версия модуля у них (хостеров) старовата?
Документация для версии 1.22

[NeoNox]

http://www.bacus.pt/Net_SSLeay/Net_SSLeay.txt

[Chs]

Эээээ...libwwwperl сама цепляет Crypt::SSLeay в случае запроса https, так что не надо искать себе лишних проблем.

[PROnya]

Цитата из книги Линкольна Штайна "Разработка сетевых программ на Perl" (глава по LWP): "Для использования протокола HTTPS (защищенного протокола HTTP) необходимо установить один из модулей SSL языка Perl, IO::Socket::SSL, а также OpenSSL, библиотеку SSL с открытым исходным кодом, необходимую для работы модуля IO:Socket::SSL. Библиотеку OpenSSL можно получить по адресу http://www.openssl.org".

[Troum]

Всем спасибо, вроде разобрался