#!/usr/bin/perl use strict; use warnings; use Open311::GetUpdates; use FixMyStreet::App; # FIXME - make this configurable and/or better my $system_user = FixMyStreet::App->model('DB::User')->find_or_create( { email => FixMyStreet::App->config->{'CONTACT_EMAIL'}, name => 'System User', } ); my $council_list = FixMyStreet::App->model('DB::Open311conf'); my $update = Open311::GetUpdates->new( council_list => $council_list, system_user => $system_user )->get_updates;