diff options
| author | Jeremy Davis <jeremyd@freeside.biz> | 2016-01-11 07:56:49 -0500 |
|---|---|---|
| committer | Jeremy Davis <jeremyd@freeside.biz> | 2016-01-11 07:56:49 -0500 |
| commit | e1bd95d75271a411462a004b631828b1cde96c99 (patch) | |
| tree | 99423aba7bee870b04bebd4c28560d0c39f14c95 | |
| parent | 226279ba70554a39a2c81c736895f1b875b2d37f (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 cb75c9b5d..467b79f46 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, |