X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2Fhttp.pm;h=b17acb8b5128b8222b00c626cd9683ece5cfb7a9;hp=b8715a7148f4695cf30118d1aad616eadbcccc37;hb=f8b487ec9788999ed16e77ff246fa4f34f8d7af1;hpb=9f913deb1cae1f9d28a531fbd4f0a2363ffe4503

diff --git a/FS/FS/part_event/Action/http.pm b/FS/FS/part_event/Action/http.pm
index b8715a714..b17acb8b5 100644
--- a/FS/FS/part_event/Action/http.pm
+++ b/FS/FS/part_event/Action/http.pm
@@ -2,6 +2,7 @@ package FS::part_event::Action::http;
 
 use strict;
 use base qw( FS::part_event::Action );
+use IO::Socket::SSL;
 use LWP::UserAgent;
 use HTTP::Request::Common;
 use JSON::XS;
@@ -60,10 +61,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);