aboutsummaryrefslogtreecommitdiffstats
path: root/perllib
diff options
context:
space:
mode:
authorMatthew Somerville <matthew-github@dracos.co.uk>2018-08-20 13:50:41 +0100
committerMatthew Somerville <matthew-github@dracos.co.uk>2018-08-21 08:46:28 +0100
commit45e2366c1f86339b33218074a0ac1359250e6d89 (patch)
tree7c6669d8122bfeebe958494f3cd31c274bcfceb5 /perllib
parentf607f2142f7986881d2975dbf682bb825266856d (diff)
Include user agent in contact form emails.
Diffstat (limited to 'perllib')
-rw-r--r--perllib/FixMyStreet/App/Controller/Contact.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Contact.pm b/perllib/FixMyStreet/App/Controller/Contact.pm
index 997009b87..3a37d9fa9 100644
--- a/perllib/FixMyStreet/App/Controller/Contact.pm
+++ b/perllib/FixMyStreet/App/Controller/Contact.pm
@@ -262,6 +262,7 @@ sub send_email : Private {
my $from = [ $c->stash->{em}, $c->stash->{form_name} ];
my $params = {
to => [ [ $recipient, _($recipient_name) ] ],
+ user_agent => $c->req->user_agent,
};
if (FixMyStreet::Email::test_dmarc($c->stash->{em})) {
$params->{'Reply-To'} = [ $from ];