projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6949aa3
)
relax SSL verification on LRN lookup, #71955
author
Mark Wells
<mark@freeside.biz>
Mon, 22 Aug 2016 18:48:11 +0000
(11:48 -0700)
committer
Mark Wells
<mark@freeside.biz>
Mon, 22 Aug 2016 18:48:11 +0000
(11:48 -0700)
FS/FS/cdr.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cdr.pm
b/FS/FS/cdr.pm
index
756bc77
..
7c32090
100644
(file)
--- 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);
# 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);
use JSON::XS qw(decode_json);
@ISA = qw(FS::Record);
@@
-1498,7
+1499,13
@@
sub get_lrn {
my $self = shift;
my $field = shift;
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,
my $url = 'https://ws.freeside.biz/get_lrn';
my %content = ( 'support-key' => $support_key,