Bug 23846: Add a check to the data inconsistencies script
[koha.git] / Koha / Email.pm
1 # Copyright 2014 Catalyst
2 #
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
18 package Koha::Email;
19
20 use Modern::Perl;
21 use Email::Valid;
22
23 use base qw(Class::Accessor);
24 use C4::Context;
25
26 __PACKAGE__->mk_accessors(qw( ));
27
28 =head1 NAME
29
30 Koha::Email
31
32 =head1 SYNOPSIS
33
34   use Koha::Email;
35   my $email = Koha::Email->new();
36   my %mail = $email->create_message_headers({ to => $to_address, from => $from_address,
37                                              replyto => $replyto });
38
39 =head1 FUNCTIONS
40
41 =cut
42
43 sub create_message_headers {
44     my $self   = shift;
45     my $params = shift;
46     $params->{from} ||= C4::Context->preference('KohaAdminEmailAddress');
47     $params->{charset} ||= 'utf8';
48     my %mail = (
49         To      => $params->{to},
50         From    => $params->{from},
51         charset => $params->{charset}
52     );
53
54     if (C4::Context->preference('SendAllEmailsTo') && Email::Valid->address(C4::Context->preference('SendAllEmailsTo'))) {
55         $mail{'To'} = C4::Context->preference('SendAllEmailsTo');
56     }
57     else {
58         $mail{'Cc'} = $params->{cc};
59         $mail{'Bcc'} = $params->{bcc};
60     }
61
62     if ( C4::Context->preference('ReplytoDefault') ) {
63         $params->{replyto} ||= C4::Context->preference('ReplytoDefault');
64     }
65     if ( C4::Context->preference('ReturnpathDefault') ) {
66         $params->{sender} ||= C4::Context->preference('ReturnpathDefault');
67     }
68     $mail{'Reply-to'}     = $params->{replyto}     if $params->{replyto};
69     $mail{'Sender'}       = $params->{sender}      if $params->{sender};
70     $mail{'Message'}      = $params->{message}     if $params->{message};
71     $mail{'Subject'}      = $params->{subject}     if $params->{subject};
72     $mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype};
73     return %mail;
74 }
75 1;