diff options
| author | Mark Wells <mark@freeside.biz> | 2016-08-22 11:48:11 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-08-22 11:48:11 -0700 |
| commit | f5935488fe25773db20f376150e24e35a123870a (patch) | |
| tree | ad328a72c3b240a82e5c899449c414b82c0c40ea /FS | |
| parent | 6949aa3633144ecf786bfa35355978d723b3c75e (diff) | |
relax SSL verification on LRN lookup, #71955
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cdr.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 756bc77e9..7c3209016 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -28,6 +28,7 @@ use FS::rate_detail; # LRN lookup use LWP::UserAgent; use HTTP::Request::Common qw(POST); +use IO::Socket::SSL; use JSON::XS qw(decode_json); @ISA = qw(FS::Record); @@ -1498,7 +1499,13 @@ sub get_lrn { my $self = shift; my $field = shift; - my $ua = LWP::UserAgent->new; + my $ua = LWP::UserAgent->new( + 'ssl_opts' => { + verify_hostname => 0, + SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, + }, + ); + my $url = 'https://ws.freeside.biz/get_lrn'; my %content = ( 'support-key' => $support_key, |