From c2a6e16bc2c8ea03acdf64dfed9d16721ad717f4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 16 Dec 2017 18:43:31 +0000
Subject: authorisation middleware

---
 lib/Ultramarine/Middleware/Authorisation.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lib/Ultramarine/Middleware/Authorisation.pm

(limited to 'lib')

diff --git a/lib/Ultramarine/Middleware/Authorisation.pm b/lib/Ultramarine/Middleware/Authorisation.pm
new file mode 100644
index 0000000..0ddacf6
--- /dev/null
+++ b/lib/Ultramarine/Middleware/Authorisation.pm
@@ -0,0 +1,18 @@
+use v6.d.PREVIEW;
+use Cro::HTTP::Middleware;
+use Ultramarine::Middleware::Authentication;
+
+class Ultramarine::Middleware::Authorisation
+ does Cro::HTTP::Middleware::Conditional {
+    method process(Supply:D $request-stream) {
+        supply whenever $request-stream -> $request {
+            if ($request ~~ Ultramarine::Request::Authed) {
+                # here we could also add some access control
+                emit $request;
+            }
+            else {
+                emit Cro::HTTP::Response.new(:status<403>);
+            }
+        }
+    }
+}
-- 
cgit v1.2.3