perllib/FixMyStreet/EmailSend/Variable.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package FixMyStreet::EmailSend::Variable;
use base Email::Send::SMTP;
use FixMyStreet;

my $sender;

sub send {
    my ($class, $message, %args) = @_;
    $sender = delete($args{env_from}) || FixMyStreet->config('DO_NOT_REPLY_EMAIL');
    $class->SUPER::send($message, %args);
}

sub get_env_sender {
    $sender;
}

1;