cacert/cats
9
0
Fork 0
mirror of https://github.com/CAcertOrg/cats.git synced 2024-11-21 13:04:04 +00:00
Code Issues Projects Releases Packages Wiki Activity

Commented in the correct functions!

Browse source
This commit is contained in:
Bernhard Fröhlich 2015-11-27 20:41:54 +00:00
parent 73ccca3694
commit 7a213874f2
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
functions/UploadResults.pl
View file

@ -207,9 +207,10 @@ do {
Net::SSLeay::CTX_load_verify_locations($ctx, $CAfile, 0);
# Add client certificate
Net::SSLeay::set_cert_and_key($ctx, $CertFile, $KeyFile);
#Net::SSLeay::CTX_use_certificate_chain_file($ctx, $CertFile);
#Net::SSLeay::CTX_use_PrivateKey_file($ctx, $KeyFile, &Net::SSLeay::FILETYPE_PEM);
# set_cert_and_key does not load a chain file, so use the low-level functions
#Net::SSLeay::set_cert_and_key($ctx, $CertFile, $KeyFile);
Net::SSLeay::CTX_use_certificate_chain_file($ctx, $CertFile);
Net::SSLeay::CTX_use_PrivateKey_file($ctx, $KeyFile, &Net::SSLeay::FILETYPE_PEM);
$ssl = Net::SSLeay::new($ctx) or die_now("Failed to create SSL $!");
Net::SSLeay::set_fd($ssl, fileno(S)); # Must use fileno