Программирование > Perl

ssl + xml

(1/1)

Yaroslav:
помогите пожалуйста с примером
надо соединится через 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; }

--- Конец кода ---

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

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

Навигация

[0] Главная страница сообщений