blob: 73086c65f6395e1c3d59cee2d8622b78b5706dcf (
plain)
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
|
package FixMyStreet::App::Model::EmailSend;
use base 'Catalyst::Model::Adaptor';
use strict;
use warnings;
use FixMyStreet;
use Email::Send;
=head1 NAME
FixMyStreet::App::Model::EmailSend
=head1 DESCRIPTION
Thin wrapper around Email::Send - configuring it correctly acording to our config.
If the config value 'SMTP_SMARTHOST' is set then email is routed via SMTP to
that. Otherwise it is sent using a 'sendmail' like binary on the local system.
And finally if if FixMyStreet->test_mode returns true then emails are not sent
at all but are stored in memory for the test suite to inspect (using
Email::Send::Test).
=cut
my $args = undef;
if ( FixMyStreet->test_mode ) {
# Email::Send::Test
$args = { mailer => 'Test', };
}
elsif ( my $smtp_host = FixMyStreet->config('SMTP_SMARTHOST') ) {
# Email::Send::SMTP
$args = {
mailer => 'SMTP',
mailer_args => [ Host => $smtp_host ],
};
}
else {
# Email::Send::Sendmail
$args = { mailer => 'Sendmail' };
}
__PACKAGE__->config(
class => 'Email::Send',
args => $args,
);
|
