[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' );
@@ -38,7 +40,12 @@ has endpoint => (
             soapversion => 1.1,
             proxy => $self->url,
             default_ns => $self->attr,
-            on_action => sub { $self->attr . $_[1] }
+            on_action => sub { $self->attr . $_[1] },
+            on_fault => sub {
+                my ($soap, $res) = @_;
+                $self->log("[Whitespace] SOAP Fault: " . $res->method . ": " . $res->faultcode . " - " . $res->faultstring);
+                die $res->faultstring;
+            },
         );
     },
 );
@@ -63,9 +70,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("[Whitespace] $method : " . encode_json(\@params));
+
     require SOAP::Lite;
     @params = make_soap_structure(@params);
     my $som = $self->endpoint->call(

templates/web/bexley/waste/_bin_days_no_collections.html

@@ -0,0 +1,2 @@
+<p>Are you trying to report from a business, school, community group or place of worship?</p>
+