1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
package Open311::GetServiceRequestUpdates;
use Moose;
use Open311;
use FixMyStreet::App;
use DateTime::Format::W3CDTF;
has council_list => ( is => 'ro' );
has system_user => ( is => 'rw' );
has start_date => ( is => 'ro', default => undef );
has end_date => ( is => 'ro', default => undef );
sub fetch {
my $self = shift;
my $councils = FixMyStreet::App->model('DB::Open311Conf')->search(
{
send_method => 'Open311',
send_comments => 1,
comment_user_id => { '!=', undef },
endpoint => { '!=', '' },
}
);
while ( my $council = $councils->next ) {
my $o = Open311->new(
endpoint => $council->endpoint,
api_key => $council->api_key,
jurisdiction => $council->jurisdiction,
);
$self->system_user( $council->comment_user );
$self->update_comments( $o, { areaid => $council->area_id }, );
}
}
sub update_comments {
my ( $self, $open311, $council_details ) = @_;
my @args = ();
if ( $self->start_date || $self->end_date ) {
return 0 unless $self->start_date && $self->end_date;
push @args, $self->start_date;
push @args, $self->end_date;
}
my $requests = $open311->get_service_request_updates( @args );
unless ( $open311->success ) {
warn "Failed to fetch ServiceRequest Updates: " . $open311->error;
return 0;
}
for my $request (@$requests) {
my $request_id = $request->{service_request_id};
# If there's no request id then we can't work out
# what problem it belongs to so just skip
next unless $request_id;
my $problem =
FixMyStreet::App->model('DB::Problem')
->search( {
external_id => $request_id,
council => { like => '%' . $council_details->{areaid} . '%' },
} );
if (my $p = $problem->first) {
my $c = $p->comments->search( { external_id => $request->{update_id} } );
if ( !$c->first ) {
my $comment_time = DateTime::Format::W3CDTF->parse_datetime( $request->{updated_datetime} );
my $comment = FixMyStreet::App->model('DB::Comment')->new(
{
problem => $p,
user => $self->system_user,
external_id => $request->{update_id},
text => $request->{description},
mark_fixed => 0,
mark_open => 0,
anonymous => 0,
name => $self->system_user->name,
confirmed => $comment_time,
created => $comment_time,
state => 'confirmed',
}
);
# if the comment is older than the last update
# do not change the status of the problem as it's
# tricky to determine the right thing to do.
if ( $comment->created_local > $p->lastupdate_local ) {
if ( $p->is_open and lc($request->{status}) eq 'closed' ) {
$p->state( 'fixed - council' );
$p->lastupdate( $comment->created );
$p->update;
$comment->mark_fixed( 1 );
} elsif ( ( $p->is_closed || $p->is_fixed ) and lc($request->{status}) eq 'open' ) {
$p->state( 'confirmed' );
$p->lastupdate( $comment->created );
$p->update;
$comment->mark_open( 1 );
}
}
$comment->insert();
}
}
}
return 1;
}
1;
|
