From 153a69434acca88b750ca49f6106818b859eef1a Mon Sep 17 00:00:00 2001
From: Agustin Moyano <agustinmoyano@theke.io>
Date: Thu, 18 Aug 2022 16:41:03 -0300
Subject: [PATCH] Bug 31378: Add Auth mojo plugin

---
 Koha/Exceptions/Auth.pm  |  41 +++++++++++++++
 Koha/REST/Plugin/Auth.pm | 106 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 147 insertions(+)
 create mode 100644 Koha/Exceptions/Auth.pm
 create mode 100644 Koha/REST/Plugin/Auth.pm

diff --git a/Koha/Exceptions/Auth.pm b/Koha/Exceptions/Auth.pm
new file mode 100644
index 0000000000..6b3529f496
--- /dev/null
+++ b/Koha/Exceptions/Auth.pm
@@ -0,0 +1,41 @@
+package Koha::Exceptions::Auth;
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
+
+use Modern::Perl;
+
+use Koha::Exception;
+
+use Exception::Class (
+    'Koha::Exceptions::Auth' => {
+        isa    => 'Koha::Exception',
+        fields => ['code']
+    },
+    'Koha::Exceptions::Auth::NoValidDomain' => {
+        isa         => 'Koha::Exceptions::Auth',
+        description => 'No valid domain found'
+    },
+    'Koha::Exceptions::Auth::Unauthorized' => {
+        isa         => 'Koha::Exceptions::Auth',
+        description => 'External auth user cannot access resource'
+    },
+    'Koha::Exceptions::Auth::CannotCreateSession' => {
+        isa         => 'Koha::Exceptions::Auth',
+        description => 'Cannot create session'
+    },
+);
+
+1;
diff --git a/Koha/REST/Plugin/Auth.pm b/Koha/REST/Plugin/Auth.pm
new file mode 100644
index 0000000000..0aa261a0a4
--- /dev/null
+++ b/Koha/REST/Plugin/Auth.pm
@@ -0,0 +1,106 @@
+package Koha::REST::Plugin::Auth;
+
+# Copyright Theke Solutions 2022
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
+
+use Modern::Perl;
+
+use Mojo::Base 'Mojolicious::Plugin';
+
+use Koha::Exceptions;
+use Koha::Exceptions::Auth;
+use Koha::Patron;
+
+use C4::Auth;
+
+use CGI;
+
+=head1 NAME
+
+Koha::REST::Plugin::Auth
+
+=head1 API
+
+=head2 Helper methods
+
+=cut
+
+sub register {
+    my ( $self, $app ) = @_;
+
+=head3 auth.register
+
+    my $patron = $c->auth->register(
+        {   data      => $patron_data,
+            domain    => $domain,
+            interface => $interface
+        }
+    );
+
+If no patron passed, creates a new I<Koha::Patron> if the provider is configured
+to do so for the domain.
+
+=cut
+
+    $app->helper(
+        'auth.register' => sub {
+            my ( $c, $params ) = @_;
+            my $data = $params->{data};
+            my $domain = $params->{domain};
+            my $interface = $params->{interface};
+
+            unless ( $interface eq 'opac' && $domain->auto_register ) {
+                Koha::Exceptions::Auth::Unauthorized->throw( code => 401 );
+            }
+
+            return Koha::Patron->new($data)->store;
+        }
+    );
+
+=head3 auth.session
+
+    my ( $status, $cookie, $session_id ) = $c->auth->session( $patron );
+
+Generates a new session.
+
+=cut
+
+    $app->helper(
+        'auth.session' => sub {
+            my ( $c, $patron ) = @_;
+            my $userid     = $patron->userid;
+            my $cardnumber = $patron->cardnumber;
+            my $cgi        = CGI->new;
+
+            $cgi->param( userid            => $userid );
+            $cgi->param( cardnumber        => $cardnumber );
+            $cgi->param( auth_client_login => 1 );
+
+            my ( $status, $cookie, $session_id ) = C4::Auth::check_api_auth($cgi);
+
+            Koha::Exceptions::UnderMaintenance->throw( code => 503 )
+              if $status eq "maintenance";
+
+            Koha::Exceptions::Auth::CannotCreateSession->throw( code => 500 )
+              unless $status eq "ok";
+
+            return ( $status, $cookie, $session_id );
+        }
+    );
+}
+
+1;
-- 
2.37.3