Wrapper around Email::Send::SMTP to set sender.

1 files changed, 12 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/EmailSend.pm b/perllib/FixMyStreet/EmailSend.pm
new file mode 100644
index 000000000..61d8a70c2
--- /dev/null
+++ b/perllib/FixMyStreet/EmailSend.pm
@@ -0,0 +1,12 @@
+package FixMyStreet::EmailSend;
+use base Email::Send::SMTP;
+
+sub get_env_sender {
+    # Should really use cobrand's contact_email function, but not sure how
+    # best to access that from in here.
+    my $sender = FixMyStreet->config('CONTACT_EMAIL');
+    $sender =~ s/team/fms-DO-NOT-REPLY/;
+    return $sender;
+}
+
+1;