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
|
package FixMyStreet::SendReport::London;
use Moose;
BEGIN { extends 'FixMyStreet::SendReport'; }
use Digest::MD5;
use LWP::UserAgent;
use LWP::Simple;
use Utils;
sub construct_message {
my %h = @_;
return <<EOF,
A user of FixMyStreet has submitted the following report of a local
problem that they believe might require your attention.
Subject: $h{title}
Details: $h{detail}
$h{fuzzy}, or to provide an update on the problem, please visit the
following link:
$h{url}
$h{closest_address}
Yours,
The FixMyStreet team
EOF
}
sub send {
return if mySociety::Config::get('STAGING_SITE');
my ( $self, $row, $h, $to, $template, $recips, $nomail ) = @_;
$h->{message} = construct_message( %$h );
my $phone = $h->{phone};
my $mobile = '';
if ($phone && $phone =~ /^\s*07/) {
$mobile = $phone;
$phone = '';
}
my ($first, $last) = $h->{name} =~ /^(\S*)(?: (.*))?$/;
my %params = (
Key => mySociety::Config::get('LONDON_REPORTIT_KEY'),
Signature => Digest::MD5::md5_hex( $h->{confirmed} . mySociety::Config::get('LONDON_REPORTIT_SECRET') ),
Type => Utils::london_categories()->{$h->{category}},
RequestDate => $h->{confirmed},
RequestMethod => 'Web',
ExternalId => $h->{url},
'Customer.Title' => '',
'Customer.FirstName' => $first,
'Customer.Surname' => $last,
'Customer.Email' => $h->{email},
'Customer.Phone' => $phone,
'Customer.Mobile' => $mobile,
'ProblemDescription' => $h->{message},
);
if ($h->{used_map}) {
$params{'Location.Latitude'} = $h->{latitude};
$params{'Location.Longitude'} = $h->{longitude};
} elsif (mySociety::PostcodeUtil::is_valid_postcode($h->{query})) {
# Didn't use map, and entered postcode, so use that.
$params{'Location.Postcode'} = $h->{query};
} else {
# Otherwise, lat/lon is all we have, even if it's wrong.
$params{'Location.Latitude'} = $h->{latitude};
$params{'Location.Longitude'} = $h->{longitude};
}
if ($h->{has_photo}) {
$params{'Document1.Name'} = 'Photograph';
$params{'Document1.MimeType'} = 'image/jpeg';
$params{'Document1.URL'} = $h->{image_url};
$params{'Document1.URLPublic'} = 'true';
}
my $browser = LWP::UserAgent->new;
my $response = $browser->post( mySociety::Config::get('LONDON_REPORTIT_URL'), \%params );
my $out = $response->content;
if ($response->code ne 200) {
print "Failed to post $h->{id} to London API, response was " . $response->code . " $out\n";
$self->error( "Failed to post $h->{id} to London API, response was " . $response->code . " $out" );
return 1;
}
my ($id) = $out =~ /<caseid>(.*?)<\/caseid>/;
my ($org) = $out =~ /<organisation>(.*?)<\/organisation>/;
my ($team) = $out =~ /<team>(.*?)<\/team>/;
$org = london_lookup($org);
$row->external_id( $id );
$row->external_body( $org );
$row->external_team( $team );
$self->success(1);
return 0;
}
sub london_lookup {
my $org = shift || '';
my $str = "Unknown ($org)";
open(FP, "$FindBin::Bin/../data/dft.csv");
while (<FP>) {
/^(.*?),(.*)/;
if ($org eq $1) {
$str = $2;
last;
}
}
close FP;
return $str;
}
1;
|
