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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
|
#!/usr/bin/env perl
#
# handlemail:
# Handle an individual incoming mail message.
#
# This script should be invoked through the .forward mechanism. It
# processes bounce messages and replies and deals with them accordingly.
#
# Copyright (c) 2016 UK Citizens Online Democracy. All rights reserved.
use strict;
use warnings;
require 5.8.0;
BEGIN {
use File::Basename qw(dirname);
use File::Spec;
my $d = dirname(File::Spec->rel2abs($0));
require "$d/../setenv.pl";
}
use FixMyStreet;
use FixMyStreet::DB;
use FixMyStreet::Email;
use mySociety::EmailUtil;
use mySociety::HandleMail;
use mySociety::SystemMisc qw(print_log);
# Don't print diagnostics to standard error, as this can result in bounce
# messages being generated (only in response to non-bounce input, obviously).
mySociety::SystemMisc::log_to_stderr(0);
my %data = mySociety::HandleMail::get_message();
my @lines = @{$data{lines}};
my $token = get_envelope_token();
my $verp = $token !~ /DO-NOT-REPLY/i;
my ($type, $object) = get_object_from_token();
if ($data{is_bounce_message}) {
if ($object) {
handle_bounce_to_verp_address();
} else {
print_log('info', "bounce received for don't-care email");
}
} else {
# This is not a bounce message. If it's to a VERP address, pass it on to
# the message sender; otherwise send an auto-reply
if ($object) {
handle_non_bounce_to_verp_address();
} else {
handle_non_bounce_to_null_address();
}
}
exit(0);
# ---
sub get_envelope_token {
my $m = $data{message};
# If we have a special suffix header for the local part suffix, use that.
# This is set by our exim so we have access to it through the domain name
# forwarding and routers.
my $suffix = $m->head()->get("X-Delivered-Suffix");
if ($suffix) {
chomp $suffix;
return substr($suffix, 1);
}
# Otherwise, fall back to To header
my $a = mySociety::HandleMail::get_bounce_recipient($m);
my $token = mySociety::HandleMail::get_token($a,
'fms-', FixMyStreet->config('EMAIL_DOMAIN')
);
exit 0 unless $token; # Don't care unless we have a token
return $token;
}
sub get_object_from_token {
return unless $verp;
my ($type, $id) = FixMyStreet::Email::check_verp_token($token);
exit 0 unless $type;
my $rs;
if ($type eq 'report') {
$rs = FixMyStreet::DB->resultset('Problem');
} elsif ($type eq 'alert') {
$rs = FixMyStreet::DB->resultset('Alert');
}
my $object = $rs->find({ id => $id });
exit(0) unless $object;
return ($type, $object);
}
sub handle_permanent_bounce {
if ($type eq 'alert') {
print_log('info', "Received bounce for alert " . $object->id . ", unsubscribing");
$object->disable();
} elsif ($type eq 'report') {
print_log('info', "Received bounce for report " . $object->id . ", forwarding to support");
forward_on_to(FixMyStreet->config('CONTACT_EMAIL'));
}
}
sub is_out_of_office {
my (%attributes) = @_;
return 1 if $attributes{problem} && $attributes{problem} == mySociety::HandleMail::ERR_OUT_OF_OFFICE;
my $subject = $data{message}->head()->get("Subject");
return 1 if $subject =~ /Auto(matic|mated)?[ -]?(reply|response|responder)|Thank you for (your email|contacting)|Thank_you_for_your_email|Out of Office|This office is closed until|^Re: (Problem Report|New updates)|^Auto: |^E-Mail Response$|^Message Received:|have received your email|Acknowledgement of your email/i;
return 0;
}
sub handle_bounce_to_verp_address {
my %attributes = mySociety::HandleMail::parse_bounce(\@lines);
my $info = '';
if ($attributes{is_dsn}) {
# If permanent failure, but not mailbox full
return handle_permanent_bounce() if $attributes{status} =~ /^5\./ && $attributes{status} ne '5.2.2';
$info = ", Status $attributes{status}";
} elsif ($attributes{problem}) {
my $err_type = mySociety::HandleMail::error_type($attributes{problem});
return handle_permanent_bounce() if $err_type == mySociety::HandleMail::ERR_TYPE_PERMANENT;
$info = ", Bounce type $attributes{problem}";
}
# Check if the Subject looks like an auto-reply rather than a delivery bounce.
# If so, treat as if it were a normal email
if (is_out_of_office(%attributes)) {
print_log('info', "Treating bounce for $type " . $object->id . " as auto-reply to sender");
handle_non_bounce_to_verp_address();
} elsif (!$info) {
print_log('info', "Unparsed bounce received for $type " . $object->id . ", forwarding to support");
forward_on_to(FixMyStreet->config('CONTACT_EMAIL'));
} else {
print_log('info', "Ignoring bounce received for $type " . $object->id . $info);
}
}
sub handle_non_bounce_to_verp_address {
if ($type eq 'alert' && !is_out_of_office()) {
print_log('info', "Received non-bounce for alert " . $object->id . ", forwarding to support");
forward_on_to(FixMyStreet->config('CONTACT_EMAIL'));
} elsif ($type eq 'report') {
print_log('info', "Received non-bounce for report " . $object->id . ", forwarding to report creator");
forward_on_to($object->user->email);
}
}
sub handle_non_bounce_to_null_address {
# Don't send a reply to out of office replies...
if (is_out_of_office()) {
print_log('info', "Received non-bounce auto-reply to null address, ignoring");
return;
}
# Send an automatic response
print_log('info', "Received non-bounce to null address, auto-replying");
my $template = 'reply-autoresponse';
my $fp = FixMyStreet->path_to("templates", "email", "default", $template)->open or exit 75;
$template = join('', <$fp>);
$fp->close;
# We generate this as a bounce.
my $mail = FixMyStreet::Email::construct_email({
From => [ FixMyStreet->config('CONTACT_EMAIL'), 'FixMyStreet' ],
To => $data{return_path},
_template_ => $template,
_parameters_ => { },
});
send_mail($mail->as_string, '<>', $data{return_path});
}
sub forward_on_to {
my $recipient = shift;
my $text = join("\n", @lines) . "\n";
my $sender = $data{return_path} || '<>';
send_mail($text, $sender, $recipient);
}
sub send_mail {
my ($text, $sender, $recipient) = @_;
if (mySociety::EmailUtil::EMAIL_SUCCESS
!= mySociety::EmailUtil::send_email($text, $sender, $recipient)) {
exit(75);
}
}
|
