Forum Webscript.Ru

Программирование => Perl => Тема начата: Yaroslav от 05 Ноября 2009, 17:36:35

Название: ssl + xml
Отправлено: Yaroslav от 05 Ноября 2009, 17:36:35

помогите пожалуйста с примером
надо соединится через https (ssl) при этом посредством xml передать логин и пароль

Код: [Выделить]

$doc = qq[



   
        login
        pass
       
            1.0
            en
       
   
    1234

];

use LWP;
$ua = LWP::UserAgent->new;
$ua -> agent("Bond, James Bond/0.07");
$req = HTTP::Request -> new ( POST => \'https://$host:$port\');
$req -> content_type (\'application/xml\');
$req -> content ($doc);

$response = $ua -> request ($req);
if ($response->is_success) { print $response->decoded_content; }
else { print $response->status_line; }

при таком варианте зависает надолго

Название: ssl + xml
Отправлено: arto от 05 Ноября 2009, 22:42:45

посмотрите логи с той стороны