![Fri Jul 03 10:25:01 2015 (11.9k) by david.imbs [...] open-groupe.com](/Ticket/Attachment/1513964/807317/image001.gif){kind=link}
| Subject: | [proposition] CA-File for just server validation |
| Date: | Fri, 3 Jul 2015 16:24:43 +0200 |
| To: | <bug-REST-Client [...] rt.cpan.org> |
| From: | "IMBS David" <david.imbs [...] open-groupe.com> |
Hello,
Im currently using REST::Client and Ive got some trouble to use SSL
properly.
On a server, I have a valid key and cert for a ca certifcate on my local
client. I create a client rest with ca option :
REST::Client->new (
, ca => /path/to/ca.cert.pem );
It wasnt working until I change REST/Client.pm =>
@362
#prime LWP with ssl certfile if we have values
if($self->getCert){
carp "REST::Client exception: Certs defined but not using https"
unless $url =~ /^https/;
croak "REST::Client exception: Cannot read cert and key file" unless
-f $self->getCert && -f $self->getKey;
$ua->ssl_opts(SSL_cert_file => $self->getCert);
$ua->ssl_opts(SSL_key_file => $self->getKey);
- if(my $ca = $self->getCa){
- croak "REST::Client exception: Cannot read CA file" unless -f
$ca;
- $ua->ssl_opts(SSL_ca_file => $ca);
- }
}
+
+ if(my $ca = $self->getCa){
+ croak "REST::Client exception: Cannot read CA file" unless -f $ca;
+ $ua->ssl_opts(SSL_ca_file => $ca);
+ }
Maybe Im wrong about it, but that seems more logical this way.
Regards,
David IMBS
Alternant Concepteur Développeur Informatique
Tél : 02.99.12.71.71
Fax : 02.99.12.71.72
12 L Rue du Patis Tatelin 35700 RENNES
<mailto:david.imbs@open-groupe.com> david.imbs@open-groupe.com
Description : cid:image002.gif@01CFCB5E.584F7380