bin/comment-backfill


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/env perl

use strict;
use warnings;
require 5.8.0;
use DateTime;

use FixMyStreet::App;

use Open311;
use Open311::GetServiceRequestUpdates;

my $start_time = DateTime->now->subtract( days => 1, hours => 1 );
my $end_time = DateTime->now;

my $updates = Open311::GetServiceRequestUpdates->new(
    start_date => $start_time,
    end_date   => $end_time,
);

$updates->fetch;