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
38 Overloaded store method.
45 $self->_result->result_source->schema->txn_do(
47 Koha::SMTP::Servers->search->update( { is_default => 0 },
48 { no_triggers => 1 } )
51 $self = $self->SUPER::store;
60 my $transport = $smtp_server->transport;
61 $email->transport($transport);
64 Returns an I<Email::Sender::Transport::SMTP> object that can be used directly
77 $params->{ssl} = $self->ssl_mode
78 unless $self->ssl_mode eq 'disabled';
80 $params->{timeout} = $self->timeout
83 $params->{sasl_username} = $self->user_name
86 $params->{sasl_password} = $self->password
89 $params->{debug} = $self->debug;
91 require Email::Sender::Transport::SMTP;
92 my $transport = Email::Sender::Transport::SMTP->new( $params );
99 my $libraries = $smtp_server->libraries
101 Accessor to get the list of libraries that are linked to this SMTP server
108 my @library_ids = $self->_result->library_smtp_servers->get_column('library_id')->all;
109 return Koha::Libraries->search( { branchcode => { -in => \@library_ids } } );
112 =head3 is_system_default
114 if ( $smtp_server->is_system_default ) { ... }
116 Method that tells if a Koha::SMTP::Server is the hardcoded one.
120 sub is_system_default {
123 return $self->{_is_system_default};
128 my $json = $smtp_server->to_api;
130 Overloaded method that returns a JSON representation of the Koha::SMTP::Server object,
131 suitable for API output.
136 my ( $self, $params ) = @_;
138 my $json = $self->SUPER::to_api( $params );
139 delete $json->{password};
144 =head3 to_api_mapping
146 This method returns the mapping for representing a Koha::SMTP::Server object
153 id => 'smtp_server_id'
157 =head2 Internal methods
161 Return type of Object relating to Schema ResultSet