add script to fetch last 24 hours of updates as a backup and default to last 2 hours in standard script

1 files changed, 8 insertions, 0 deletions

diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm
index 36d42bb3e..1f0852c96 100644
--- a/perllib/Open311/GetServiceRequestUpdates.pm
+++ b/perllib/Open311/GetServiceRequestUpdates.pm
@@ -54,6 +54,14 @@ sub update_comments {
 
         push @args, $self->start_date;
         push @args, $self->end_date;
+    # default to asking for last 2 hours worth if not Bromley
+    } elsif ( $council_details->{areaid} != 2482 ) {
+        my $end_dt = DateTime->now();
+        my $start_dt = $end_dt->clone;
+        $start_dt->add( hours => -2 );
+
+        push @args, DateTime::Format::W3CDTF->format_datetime( $start_dt );
+        push @args, DateTime::Format::W3CDTF->format_datetime( $end_dt );
     }
 
     my $requests = $open311->get_service_request_updates( @args );