Hola, estoy intentando ejecutar unos comandos por REST URI para Azure, por ejemplo para ver los servicios hospedados que tengo en Azure. Para ejecutarlo se necesita un certificado pero no soy capaz de asociar este certificado en la petición GET. Este es mi código:
Using perl Syntax Highlighting
#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->default_header("x-ms-version" => "2009-10-01");
$ua->protocols_allowed( [ 'https']);
$ua->show_progress( TRUE );
$ENV{HTTPS_CA_DIR} = 'C:/Users/Leo/Desktop';
$ENV{HTTPS_CA_FILE} = 'C:/Users/Leo/Desktop/azure.cer';
my $req = HTTP::Request->new(GET =>'https://management.core.windows.net/XXXXXXXXXXXXXX/services/hostedservices');
$req->header("x-ms-version" => "2009-10-01");
my $res = $ua->request( $req );
print "Status: " . $res->status_line . "\n"
¿Alguna sugerencia? La petición me está devolviendo:
500 SSL negotiation failed: 
Muchas gracias.
2011-11-01 16:57 @748
