epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Check certificate

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-14 18:06:42 +02:00
parent 5b8456fa69
commit 9b53b5d7e8
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ACU/API/Base.pm
View File

@ -70,6 +70,8 @@ sub get($$)
my $url = shift;
my $ua = LWP::UserAgent->new;
$ua->ssl_opts(SSL_ca_file => "/etc/ldap/cacert.pem");
log(DEBUG, 'GET Request to ', API_URL, $url);
my $req = GET API_URL . $url;
@ -86,6 +88,8 @@ sub send($$$)
my $url = shift;
my $ua = LWP::UserAgent->new;
$ua->ssl_opts(SSL_ca_file => "/etc/ldap/cacert.pem");
log(DEBUG, 'POST Request to ', API_URL, $url);
my $req = POST API_URL . $url, shift;