X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fmsg_template%2Fhttp.pm;h=12269a17114df6bfd102d8d4d8fcc3cd3f3eab74;hb=HEAD;hp=51dfcffc2bf211d3aa37d408761bdc94daa825fe;hpb=a008b601383d5693a197f4bf57ed5ba7887f3065;p=freeside.git

diff --git a/FS/FS/msg_template/http.pm b/FS/FS/msg_template/http.pm
index 51dfcffc2..12269a171 100644
--- a/FS/FS/msg_template/http.pm
+++ b/FS/FS/msg_template/http.pm
@@ -7,7 +7,7 @@ use vars qw( $DEBUG $conf );
 # needed to talk to the external service
 use LWP::UserAgent;
 use HTTP::Request::Common;
-use JSON;
+use Cpanel::JSON::XS;
 
 # needed to manage prepared messages
 use FS::cust_msg;
@@ -45,7 +45,7 @@ sub prepare {
 
   my( $self, %opt ) = @_;
 
-  my $json = JSON->new->canonical(1);
+  my $json = Cpanel::JSON::XS->new->canonical(1);
 
   my $cust_main = $opt{'cust_main'}; # or die 'cust_main required';
   my $object = $opt{'object'} or die 'object required';
@@ -59,6 +59,10 @@ sub prepare {
     %$document,
     %$hashref
   };
+  # put override content _somewhere_ so it can be used
+  if ( $opt{'override_content'} ) {
+    $document->{'content'} = $opt{'override_content'};
+  }
 
   my $request_content = $json->encode($document);
   warn "$me ".$self->prepare_url."\n" if $DEBUG;