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
|
package FixMyStreet::SendReport::Email;
use Moo;
use FixMyStreet::Email;
use Utils::Email;
BEGIN { extends 'FixMyStreet::SendReport'; }
sub build_recipient_list {
my ( $self, $row, $h ) = @_;
my $all_confirmed = 1;
foreach my $body ( @{ $self->bodies } ) {
my $contact = $row->result_source->schema->resultset("Contact")->find( {
deleted => 0,
body_id => $body->id,
category => $row->category
} );
my ($body_email, $confirmed, $note) = ( $contact->email, $contact->confirmed, $contact->note );
unless ($confirmed) {
$all_confirmed = 0;
$note = 'Body ' . $row->bodies_str . ' deleted'
unless $note;
$body_email = 'N/A' unless $body_email;
$self->unconfirmed_counts->{$body_email}{$row->category}++;
$self->unconfirmed_notes->{$body_email}{$row->category} = $note;
}
my @emails;
# allow multiple emails per contact
if ( $body_email =~ /,/ ) {
@emails = split(/,/, $body_email);
} else {
@emails = ( $body_email );
}
for my $email ( @emails ) {
push @{ $self->to }, [ $email, $body->name ];
}
}
return $all_confirmed && @{$self->to};
}
sub get_template {
my ( $self, $row ) = @_;
return 'submit.txt';
}
sub send_from {
my ( $self, $row ) = @_;
return [ $row->user->email, $row->name ];
}
sub send {
my $self = shift;
my ( $row, $h ) = @_;
my $recips = $self->build_recipient_list( $row, $h );
# on a staging server send emails to ourselves rather than the bodies
if (FixMyStreet->staging_flag('send_reports', 0) && !FixMyStreet->test_mode) {
$recips = 1;
@{$self->to} = [ $row->user->email, $self->to->[0][1] || $row->name ];
}
unless ($recips) {
$self->error( 'No recipients' );
return 1;
}
my ($verbose, $nomail) = CronFns::options();
my $cobrand = FixMyStreet::Cobrand->get_class_for_moniker($row->cobrand)->new();
my $params = {
To => $self->to,
From => $self->send_from( $row ),
};
$cobrand->call_hook(munge_sendreport_params => $row, $h, $params);
$params->{Bcc} = $self->bcc if @{$self->bcc};
my $sender = FixMyStreet::Email::unique_verp_id('report', $row->id);
if (FixMyStreet::Email::test_dmarc($params->{From}[0])
|| Utils::Email::same_domain($params->{From}, $params->{To})) {
$params->{'Reply-To'} = [ $params->{From} ];
$params->{From} = [ $sender, $params->{From}[1] ];
}
my $result = FixMyStreet::Email::send_cron($row->result_source->schema,
$self->get_template($row), $h,
$params, $sender, $nomail, $cobrand, $row->lang);
unless ($result) {
$self->success(1);
} else {
$self->error( 'Failed to send email' );
}
return $result;
}
sub _get_district_for_contact {
my ( $lat, $lon ) = @_;
my $district =
mySociety::MaPit::call( 'point', "4326/$lon,$lat", type => 'DIS' );
($district) = keys %$district;
return $district;
}
1;
|
