1 package Koha::SMTP::Server;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use Koha::Exceptions::Object;
22 use Koha::SMTP::Servers;
24 use base qw(Koha::Object);
28 Koha::SMTP::Server - Koha SMTP Server Object class
36 my $transport = $smtp_server->transport;
37 $email->transport($transport);
40 Returns an I<Email::Sender::Transport::SMTP> object that can be used directly
53 $params->{ssl} = $self->ssl_mode
54 unless $self->ssl_mode eq 'disabled';
56 $params->{timeout} = $self->timeout
59 $params->{sasl_username} = $self->user_name
62 $params->{sasl_password} = $self->password
65 $params->{debug} = $self->debug;
67 require Email::Sender::Transport::SMTP;
68 my $transport = Email::Sender::Transport::SMTP->new( $params );
75 my $libraries = $smtp_server->libraries
77 Accessor to get the list of libraries that are linked to this SMTP server
84 my @library_ids = $self->_result->library_smtp_servers->get_column('library_id')->all;
85 return Koha::Libraries->search( { branchcode => { -in => \@library_ids } } );
88 =head3 is_system_default
90 if ( $smtp_server->is_system_default ) { ... }
92 Method that tells if a Koha::SMTP::Server is the hardcoded one.
96 sub is_system_default {
99 return $self->{_is_system_default};
104 my $json = $smtp_server->to_api;
106 Overloaded method that returns a JSON representation of the Koha::SMTP::Server object,
107 suitable for API output.
112 my ( $self, $params ) = @_;
114 my $json = $self->SUPER::to_api( $params );
115 delete $json->{password};
120 =head3 to_api_mapping
122 This method returns the mapping for representing a Koha::SMTP::Server object
129 id => 'smtp_server_id'
133 =head2 Internal methods
137 Return type of Object relating to Schema ResultSet