From 7a213874f25be8ae591591db380e3c4677c1fd6a Mon Sep 17 00:00:00 2001 From: "Bernhard \"Ted\" Frhhhhhhlich" Date: Fri, 27 Nov 2015 20:41:54 +0000 Subject: [PATCH] Commented in the correct functions! --- functions/UploadResults.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/functions/UploadResults.pl b/functions/UploadResults.pl index a2a9768..4afeeb4 100755 --- a/functions/UploadResults.pl +++ b/functions/UploadResults.pl @@ -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