From 38dce48b716c3f6fc1561b976d98eee94af778b3 Mon Sep 17 00:00:00 2001 From: Sam Pearson Date: Thu, 14 May 2020 10:18:16 +0100 Subject: Include updates in failure summary report. This includes details of any failing updates in the summary script. --- bin/send-failure-summary | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 bin/send-failure-summary (limited to 'bin/send-failure-summary') diff --git a/bin/send-failure-summary b/bin/send-failure-summary new file mode 100755 index 000000000..1a435dc7c --- /dev/null +++ b/bin/send-failure-summary @@ -0,0 +1,25 @@ +#!/usr/bin/env perl + +# send-failure-summary: +# Prints a summary of report/update sending failures + +use warnings; +use v5.14; + +BEGIN { + use File::Basename qw(dirname); + use File::Spec; + my $d = dirname(File::Spec->rel2abs($0)); + require "$d/../setenv.pl"; +} + +use FixMyStreet::Script::Reports; +use Open311::PostServiceRequestUpdates; + +# report summary +my $manager = FixMyStreet::Script::Reports->new; +$manager->end_summary_failures; + +# updates summary +my $updates = Open311::PostServiceRequestUpdates->new; +$updates->summary_failures; -- cgit v1.2.3