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
121
122
123
|
package FixMyStreet::SendReport::Email;
use Moo;
use FixMyStreet::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 $body_name = $body->name;
# see something uses council areas but doesn't send to councils so just use a
# generic name here to minimise confusion
if ( $row->cobrand eq 'seesomething' ) {
$body_name = 'See Something, Say Something';
}
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-oxfordshire.txt' if $row->cobrand eq 'fixmystreet' && $row->bodies_str eq 2237;
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->config('STAGING_SITE') && !FixMyStreet->config('SEND_REPORTS_ON_STAGING') && !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->munge_sendreport_params($row, $h, $params) if $cobrand->can('munge_sendreport_params');
$params->{Bcc} = $self->bcc if @{$self->bcc};
my $sender = sprintf('<fms-%s@%s>',
FixMyStreet::Email::generate_verp_token('report', $row->id),
FixMyStreet->config('EMAIL_DOMAIN')
);
if (FixMyStreet::Email::test_dmarc($params->{From}[0])) {
$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;
|
