Attachment 40551 Details for Bug 13799 – Bug 13799: REST API proof of concept with Mojolicious/Swagger2

[patch] Bug 13799: REST API proof of concept with Mojolicious/Swagger2

Bug-13799-REST-API-proof-of-concept-with-Mojolicio.patch (text/plain), 6.80 KB, created by Olli-Antti Kivilahti on 2015-06-24 08:34:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Olli-Antti Kivilahti

Created: 2015-06-24 08:34:48 UTC

Size: 6.80 KB

patch

obsolete

>From 0930593e730143b7dbb3c74a4c6969adbeaa94b6 Mon Sep 17 00:00:00 2001
>From: Julian Maurice <julian.maurice@biblibre.com>
>Date: Wed, 4 Mar 2015 16:46:33 +0100
>Subject: [PATCH] Bug 13799: REST API proof of concept with
> Mojolicious/Swagger2
>
>1/ Install Mojolicious Perl module
>2/ Launch server with:
>     $ morbo ./rest
>
>Actual routes are:
>  /borrowers
>    Return a list of all borrowers in Koha
>
>  /borrowers/{borrowernumber}
>    Return the borrower identified by {borrowernumber}
>    (eg. /borrowers/1)
>
>There is a test file you can run with:
>  $ prove t/db_dependent/rest/borrowers.t
>---
> C4/Installer/PerlDependencies.pm |   10 ++++
> Koha/REST.pm                     |   25 +++++++++
> Koha/REST/Borrowers.pm           |   29 +++++++++++
> rest                             |    6 +++
> rest.json                        |  103 ++++++++++++++++++++++++++++++++++++++
> t/db_dependent/rest/borrowers.t  |   37 ++++++++++++++
> 6 files changed, 210 insertions(+)
> create mode 100644 Koha/REST.pm
> create mode 100644 Koha/REST/Borrowers.pm
> create mode 100644 rest
> create mode 100644 rest.json
> create mode 100644 t/db_dependent/rest/borrowers.t
>
>diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm
>index 57c5972..76e7bc9 100644
>--- a/C4/Installer/PerlDependencies.pm
>+++ b/C4/Installer/PerlDependencies.pm
>@@ -737,6 +737,16 @@ our $PERL_DEPS = {
>         'required' => '0',
>         'min_ver'  => '0.89',
>     },
>+    'Mojolicious' => {
>+        'usage'    => 'REST API',
>+        'required' => '0',
>+        'min_ver'  => '6.0',
>+    },
>+    'Swagger2' => {
>+        'usage'    => 'REST API',
>+        'required' => '0',
>+        'min_ver'  => '0.28',
>+    },
> };
> 
> 1;
>diff --git a/Koha/REST.pm b/Koha/REST.pm
>new file mode 100644
>index 0000000..b657b20
>--- /dev/null
>+++ b/Koha/REST.pm
>@@ -0,0 +1,25 @@
>+package Koha::REST;
>+
>+use Modern::Perl;
>+use Mojo::Base 'Mojolicious';
>+
>+sub startup {
>+    my $self = shift;
>+
>+    my $route = $self->routes->under->to(
>+        cb => sub {
>+            my $c = shift;
>+            my $user = $c->param('user');
>+            # Do the authentication stuff here...
>+            $c->stash('user', $user);
>+            return 1;
>+        }
>+    );
>+
>+    $self->plugin(Swagger2 => {
>+        route => $route,
>+        url => $self->home->rel_file("rest.json"),
>+    });
>+}
>+
>+1;
>diff --git a/Koha/REST/Borrowers.pm b/Koha/REST/Borrowers.pm
>new file mode 100644
>index 0000000..438cbbc
>--- /dev/null
>+++ b/Koha/REST/Borrowers.pm
>@@ -0,0 +1,29 @@
>+package Koha::REST::Borrowers;
>+
>+use Modern::Perl;
>+
>+use Mojo::Base 'Mojolicious::Controller';
>+
>+use C4::Members;
>+
>+sub list_borrowers {
>+    my ($c, $args, $cb) = @_;
>+
>+    my $borrowers = C4::Members::Search;
>+
>+    $c->$cb($borrowers, 200);
>+}
>+
>+sub get_borrower {
>+    my ($c, $args, $cb) = @_;
>+
>+    my $borrower = C4::Members::GetMemberDetails($args->{borrowernumber});
>+
>+    if ($borrower) {
>+        return $c->$cb($borrower, 200);
>+    }
>+
>+    $c->$cb({error => "Borrower not found"}, 404);
>+}
>+
>+1;
>diff --git a/rest b/rest
>new file mode 100644
>index 0000000..520733f
>--- /dev/null
>+++ b/rest
>@@ -0,0 +1,6 @@
>+#!/usr/bin/env perl
>+
>+use Modern::Perl;
>+
>+require Mojolicious::Commands;
>+Mojolicious::Commands->start_app('Koha::REST');
>diff --git a/rest.json b/rest.json
>new file mode 100644
>index 0000000..849a518
>--- /dev/null
>+++ b/rest.json
>@@ -0,0 +1,103 @@
>+{
>+  "swagger": "2.0",
>+  "info": {
>+    "title": "Koha REST API",
>+    "version": "0.1",
>+    "license": {
>+      "name": "GPL v3",
>+      "url": "http://www.gnu.org/licenses/gpl.txt"
>+    },
>+    "contact": {
>+      "name": "Koha Team",
>+      "url": "http://koha-community.org/"
>+    }
>+  },
>+  "basePath": "/",
>+  "paths": {
>+    "/borrowers": {
>+      "get": {
>+        "x-mojo-controller": "Koha::REST::Borrowers",
>+        "operationId": "listBorrowers",
>+        "produces": [
>+          "application/json"
>+        ],
>+        "responses": {
>+          "200": {
>+            "description": "A list of borrowers",
>+            "schema": {
>+              "type": "array",
>+              "items": {
>+                "$ref": "#/definitions/borrower"
>+              }
>+            }
>+          }
>+        }
>+      }
>+    },
>+    "/borrowers/{borrowernumber}": {
>+      "get": {
>+        "x-mojo-controller": "Koha::REST::Borrowers",
>+        "operationId": "getBorrower",
>+        "parameters": [
>+          {
>+            "$ref": "#/parameters/borrowernumberPathParam"
>+          }
>+        ],
>+        "produces": [
>+          "application/json"
>+        ],
>+        "responses": {
>+          "200": {
>+            "description": "A borrower",
>+            "schema": {
>+              "$ref": "#/definitions/borrower"
>+            }
>+          },
>+          "404": {
>+            "description": "Borrower not found",
>+            "schema": {
>+              "$ref": "#/definitions/error"
>+            }
>+          }
>+        }
>+      }
>+    }
>+  },
>+  "definitions": {
>+    "borrower": {
>+      "type": "object",
>+      "properties": {
>+        "borrowernumber": {
>+          "description": "Borrower internal identifier"
>+        },
>+        "cardnumber": {
>+          "description": "library assigned ID number for borrowers"
>+        },
>+        "surname": {
>+          "description": "borrower's last name"
>+        },
>+        "firstname": {
>+          "description": "borrower's first name"
>+        }
>+      }
>+    },
>+    "error": {
>+      "type": "object",
>+      "properties": {
>+        "error": {
>+          "description": "Error message",
>+          "type": "string"
>+        }
>+      }
>+    }
>+  },
>+  "parameters": {
>+    "borrowernumberPathParam": {
>+      "name": "borrowernumber",
>+      "in": "path",
>+      "description": "Internal borrower identifier",
>+      "required": "true",
>+      "type": "integer"
>+    }
>+  }
>+}
>diff --git a/t/db_dependent/rest/borrowers.t b/t/db_dependent/rest/borrowers.t
>new file mode 100644
>index 0000000..73d274d
>--- /dev/null
>+++ b/t/db_dependent/rest/borrowers.t
>@@ -0,0 +1,37 @@
>+#!/usr/bin/env perl
>+
>+use Modern::Perl;
>+
>+use Test::More tests => 6;
>+use Test::Mojo;
>+
>+use C4::Context;
>+
>+use Koha::Database;
>+use Koha::Borrower;
>+
>+my $dbh = C4::Context->dbh;
>+$dbh->{AutoCommit} = 0;
>+$dbh->{RaiseError} = 1;
>+
>+my $t = Test::Mojo->new('Koha::REST');
>+
>+my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
>+my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();
>+
>+my $borrower = Koha::Borrower->new;
>+$borrower->categorycode( $categorycode );
>+$borrower->branchcode( $branchcode );
>+$borrower->surname("Test Surname");
>+$borrower->store;
>+my $borrowernumber = $borrower->borrowernumber;
>+
>+$t->get_ok('/borrowers')
>+  ->status_is(200);
>+
>+$t->get_ok("/borrowers/$borrowernumber")
>+  ->status_is(200)
>+  ->json_is('/borrowernumber' => $borrowernumber)
>+  ->json_is('/surname' => "Test Surname");
>+
>+$dbh->rollback;
>-- 
>1.7.9.5

Actions: View | Diff | Splinter Review

Attachments on bug 13799: 36700 | 36705 | 36938 | 36941 | 37119 | 37132 | 37172 | 38246 | 39156 | 39158 | 39159 | 39160 | 39161 | 39162 | 39163 | 39164 | 40088 | 40092 | 40093 | 40094 | 40098 | 40099 | 40101 | 40140 | 40141 | 40142 | 40463 | 40464 | 40465 | 40466 | 40467 | 40468 | 40469 | 40470 | 40471 | 40551 | 40552 | 40553 | 40554 | 40560 | 40561 | 40584 | 40585 | 40586 | 40587 | 40616 | 40617 | 40618 | 40619 | 41160 | 41161 | 41162 | 41268 | 41269 | 41270 | 41271 | 41272 | 41273 | 41274 | 41320 | 41321 | 41326 | 41327 | 41328 | 41329 | 41330 | 41331 | 41538 | 41539 | 41540 | 41541 | 41542 | 41543 | 41547 | 41554 | 42044 | 42085 | 42086 | 42123 | 42518 | 42766 | 42768 | 42801 | 42874 | 42875 | 42876 | 42877 | 42878 | 43186 | 43187 | 43189 | 43190 | 43191 | 43192 | 43204 | 43205 | 43206 | 43207 | 43208 | 43209 | 43210 | 43211 | 43212 | 43213 | 43214 | 43980 | 43981 | 43987 | 43989 | 43990 | 43991 | 43992 | 43993 | 43994 | 43995 | 43996 | 43997 | 43998 | 43999 | 44000 | 44001 | 44185 | 44285 | 44313 | 44375 | 44376 | 44377 | 44378 | 44379 | 44380 | 44381 | 44382 | 44383 | 44384 | 44385