diff options
| author | Jeremy Davis <jeremyd@freeside.biz> | 2016-01-11 07:57:42 -0500 |
|---|---|---|
| committer | Jeremy Davis <jeremyd@freeside.biz> | 2016-01-11 07:57:42 -0500 |
| commit | 8b8dc3171347670eb5b4b60df3b53c5a65d31c32 (patch) | |
| tree | 1a79ef4e0221969b02719ee215e9ad998f1a59c6 | |
| parent | cc02a828a03aecd99780bd84a6cec3d375d3b279 (diff) | |
Ticket #38938 Deal with invalid SSL certs on CDR import
| -rw-r--r-- | FS/FS/part_export/pbxware.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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, |