blob: 7f130c26d1bd25e7d268e47462ed3d62045778c8 (
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
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
my $type = FixMyStreet->config('SMTP_TYPE') || '';
my $port = FixMyStreet->config('SMTP_PORT') || '';
my $username = FixMyStreet->config('SMTP_USERNAME') || '';
my $password = FixMyStreet->config('SMTP_PASSWORD') || '';
unless ($port) {
$port = 25;
$port = 465 if $type eq 'ssl';
$port = 587 if $type eq 'tls';
}
my $mailer_args = [
Host => $smtp_host,
Port => $port,
];
push @$mailer_args, ssl => 1 if $type eq 'ssl';
push @$mailer_args, tls => 1 if $type eq 'tls';
push @$mailer_args, username => $username, password => $password
if $username && $password;
$args = {
mailer => 'FixMyStreet::EmailSend',
mailer_args => $mailer_args,
};
}
else {
# Email::Send::Sendmail
$args = { mailer => 'Sendmail' };
}
__PACKAGE__->config(
class => 'Email::Send',
args => $args,
);
|
