[Open311] warn on staging if fail to match updates

If we fail to match an update to a problem on the staging server then
print a warning so we can diagnose issues.

1 files changed, 4 insertions, 0 deletions

diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm
index 60b37736c..1d07e7897 100644
--- a/perllib/Open311/GetServiceRequestUpdates.pm
+++ b/perllib/Open311/GetServiceRequestUpdates.pm
@@ -195,6 +195,10 @@ sub update_comments {
                     }
                 }
             }
+        # we get lots of comments that are not related to FMS issues from Lewisham so ignore those otherwise
+        # way too many warnings.
+        } elsif (FixMyStreet->config('STAGING_SITE') and $body->name !~ /Lewisham/) {
+            warn "Failed to match comment to problem with external_id $request_id for " . $body->name . "\n";
         }
     }