Default to last two hours in GetServiceRequests

Also adds script for fetching the last 24hrs of reports

1 files changed, 7 insertions, 1 deletions

diff --git a/perllib/Open311/GetServiceRequests.pm b/perllib/Open311/GetServiceRequests.pm
index ed920f84b..dc22c61c5 100644
--- a/perllib/Open311/GetServiceRequests.pm
+++ b/perllib/Open311/GetServiceRequests.pm
@@ -47,9 +47,15 @@ sub create_problems {
     if ( $self->start_date || $self->end_date ) {
         return 0 unless $self->start_date && $self->end_date;
 
-
         $args->{start_date} = DateTime::Format::W3CDTF->format_datetime( $self->start_date );
         $args->{end_date} = DateTime::Format::W3CDTF->format_datetime( $self->end_date );
+    } else {
+        my $end_dt = DateTime->now();
+        my $start_dt = $end_dt->clone;
+        $start_dt->add( hours => -2 );
+
+        $args->{start_date} = DateTime::Format::W3CDTF->format_datetime( $start_dt );
+        $args->{end_date} = DateTime::Format::W3CDTF->format_datetime( $end_dt );
     }
 
     my $requests = $open311->get_service_requests( $args );