diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-04-02 14:39:42 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-04-02 14:39:42 -0700 |
| commit | f8b487ec9788999ed16e77ff246fa4f34f8d7af1 (patch) | |
| tree | 5c3e1f500a07e7f51360517511ba9c558f704dec /FS/FS/Template_Mixin.pm | |
| parent | 9f913deb1cae1f9d28a531fbd4f0a2363ffe4503 (diff) | |
really don't verify certificates if asked, deb 8 style
Diffstat (limited to 'FS/FS/Template_Mixin.pm')
| -rw-r--r-- | FS/FS/Template_Mixin.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/FS/FS/Template_Mixin.pm b/FS/FS/Template_Mixin.pm index ecf57a66c..8dff768d9 100644 --- a/FS/FS/Template_Mixin.pm +++ b/FS/FS/Template_Mixin.pm @@ -2360,6 +2360,7 @@ service. =cut use CAM::PDF; +use IO::Socket::SSL; use LWP::UserAgent; use HTTP::Request::Common qw( POST ); use JSON::XS; @@ -2400,7 +2401,12 @@ sub postal_mail_fsinc { my $file = $self->print_pdf(%opt, 'no_addresses' => 1); my $pages = CAM::PDF->new($file)->numPages; - my $ua = LWP::UserAgent->new( 'ssl_opts' => { 'verify_hostname'=>0 }); + my $ua = LWP::UserAgent->new( + 'ssl_opts' => { + verify_hostname => 0, + SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, + } + ); my $response = $ua->request( POST $url, [ 'support-key' => scalar($conf->config('support-key')), 'file' => encode_base64($file), |