really don't verify certificates if asked, deb 8 style

[freeside.git] / FS / FS / part_event / Action / http.pm

diff --git a/FS/FS/part_event/Action/http.pm b/FS/FS/part_event/Action/http.pm
index 673cd43..72a345d 100644 (file)
--- a/FS/FS/part_event/Action/http.pm
+++ b/FS/FS/part_event/Action/http.pm
@@ -4,6 +4,7 @@ use base qw( FS::part_event::Action );
 use strict;
 use vars qw( $me );
 use Data::Dumper;
+use IO::Socket::SSL;
 use LWP::UserAgent;
 use HTTP::Request::Common;
 use Cpanel::JSON::XS;
@@ -68,10 +69,17 @@ sub do_action {
       ( $field, $value );
     } split(/\n/, $self->option('content') );
 
+  if ( $self->option('debug') ) {
+    warn "[$me] $_: ". $content{$_}. "\n" foreach keys %content;
+  }
+
   my $content = encode_json( \%content );
 
   my @lwp_opts = ();
-  push @lwp_opts, 'ssl_opts'=>{ 'verify_hostname'=>0 }
+  push @lwp_opts, 'ssl_opts' => {
+                    verify_hostname => 0,
+                    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
+                  }
     if $self->option('ssl_no_verify');
   my $ua = LWP::UserAgent->new(@lwp_opts);
 
@@ -82,7 +90,7 @@ sub do_action {
   );
 
   if ( $self->option('debug') ) {
-    
+    #XXX dump raw request for debugging
   }
   my $response = $ua->request($req);