summaryrefslogtreecommitdiff
path: root/lib/Ultramarine/Middleware/Authorisation.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Ultramarine/Middleware/Authorisation.pm')
-rw-r--r--lib/Ultramarine/Middleware/Authorisation.pm13
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/Ultramarine/Middleware/Authorisation.pm b/lib/Ultramarine/Middleware/Authorisation.pm
index 0ddacf6..86ba8f5 100644
--- a/lib/Ultramarine/Middleware/Authorisation.pm
+++ b/lib/Ultramarine/Middleware/Authorisation.pm
@@ -11,7 +11,18 @@ class Ultramarine::Middleware::Authorisation
emit $request;
}
else {
- emit Cro::HTTP::Response.new(:status<403>);
+ my $response = Cro::HTTP::Response.new(
+ :$request,
+ :status<200>,
+ );
+ $response.set-body({
+ status => 'failed',
+ error => [
+ :code<40>,
+ :message('Wrong username or password'),
+ ],
+ });
+ emit $response;
}
}
}