From: Jeremy Davis <jeremyd@freeside.biz>
Date: Mon, 11 Jan 2016 12:57:42 +0000 (-0500)
Subject: Ticket #38938 Deal with invalid SSL certs on CDR import
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8b8dc3171347670eb5b4b60df3b53c5a65d31c32

Ticket #38938 Deal with invalid SSL certs on CDR import
---

diff --git a/FS/FS/part_export/pbxware.pm b/FS/FS/part_export/pbxware.pm
index 36b1a2a82..7dd381c18 100644
--- a/FS/FS/part_export/pbxware.pm
+++ b/FS/FS/part_export/pbxware.pm
@@ -168,6 +168,10 @@ sub api_request {
   my $self = shift;
   my ($method, $content) = @_;
   $DEBUG ||= 1 if $self->option('debug');
+
+# kludge to curb excessive paranoia in LWP 6.0+
+local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
+
   my $url = 'https://' . $self->machine;
   my $request = POST($url,
     [ %$content,