#!/usr/bin/env perl

use strict;
use warnings;
use DateTime;
use DateTime::Format::W3CDTF;
require 5.8.0;

use FixMyStreet::App;
use CronFns;
my ($verbose, $nomail) = CronFns::options();

use Open311;
use Open311::GetServiceRequestUpdates;

my $dt = DateTime->now();
my $dt_24hrs_ago = $dt->clone;
$dt_24hrs_ago->add( hours => -24 );

my $updates = Open311::GetServiceRequestUpdates->new(
    verbose => 1,
    start_date => DateTime::Format::W3CDTF->format_datetime( $dt_24hrs_ago ),
    end_date => DateTime::Format::W3CDTF->format_datetime( $dt )
);

$updates->fetch;