3 # Copyright BibLibre 2015
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
29 use base qw(Koha::Object);
33 Koha::ApiKey - Koha API Key Object class
41 my $api_key = Koha::ApiKey->new({ patron_id => $patron_id })->store;
43 Overloaded I<store> method.
50 my ( $uuid, $uuidstring );
52 $self->client_id($self->_generate_unused_uuid('client_id'))
53 unless $self->client_id;
54 $self->secret($self->_generate_unused_uuid('secret'))
57 return $self->SUPER::store();
60 =head2 Internal methods
72 =head3 _generate_unused_uuid
74 my $string = $self->_generate_unused_uuid($column);
76 $column can be 'client_id' or 'secret'.
80 sub _generate_unused_uuid {
81 my ($self, $column) = @_;
83 my ( $uuid, $uuidstring );
85 UUID::generate($uuid);
86 UUID::unparse( $uuid, $uuidstring );
88 while ( Koha::ApiKeys->search({ $column => $uuidstring })->count > 0 ) {
89 # Make sure $secret is unique
90 UUID::generate($uuid);
91 UUID::unparse( $uuid, $uuidstring );