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"
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿Alguna sugerencia? La petición me está devolviendo:
500 SSL negotiation failed:
Muchas gracias.
