[Whitespace] Add extra logging to Whitespace call method

perllib/Integrations/Whitespace.pm

@@ -13,13 +13,15 @@ package Integrations::Whitespace;
 use strict;
 use warnings;
 use Moo;
+use JSON::MaybeXS qw(encode_json);
 
 use FixMyStreet;
 
 use SOAP::Lite; # +trace => [qw(debug)];
 
 with 'FixMyStreet::Roles::SOAPIntegration';
 with 'FixMyStreet::Roles::ParallelAPI';
+with 'FixMyStreet::Roles::Syslog';
 
 has attr => ( is => 'ro', default => 'http://webservices.whitespacews.com/' );
 has username => ( is => 'ro' );
@@ -63,9 +65,23 @@ has security => (
 
 has backend_type => ( is => 'ro', default => 'whitespace' );
 
+has log_ident => (
+    is => 'ro',
+    default => sub {
+        my $feature = 'whitespace';
+        my $features = FixMyStreet->config('COBRAND_FEATURES');
+        return unless $features && ref $features eq 'HASH';
+        return unless $features->{$feature} && ref $features->{$feature} eq 'HASH';
+        my $f = $features->{$feature}->{_fallback};
+        return $f->{log_ident};
+    }
+);
+
 sub call {
     my ($self, $method, @params) = @_;
 
+    $self->log("Calling $method with params: " . encode_json(\@params));
+
     require SOAP::Lite;
     @params = make_soap_structure(@params);
     my $som = $self->endpoint->call(