summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-12-20 15:50:51 +0100
committerfranck cuny <franck@lumberjaph.net>2010-12-20 15:50:51 +0100
commit4618a1dab31fc90ad7c371a34700a814f8304b4c (patch)
treef1e1f9458dcc450f22f1eaa2cf1528ff43706bb8
parentimport only Dancer's syntax in dancerREST.pm (diff)
downloaddancer-rest-4618a1dab31fc90ad7c371a34700a814f8304b4c.tar.gz
fix psgi app master
-rw-r--r--app.psgi22
1 files changed, 17 insertions, 5 deletions
diff --git a/app.psgi b/app.psgi
index c4ed02b..7a7aecf 100644
--- a/app.psgi
+++ b/app.psgi
@@ -1,13 +1,25 @@
 # PSGI application bootstraper for Dancer
-use lib '/home/franck/tmp/dancerREST';
-use dancerREST;
+use lib 'lib';
+use Dancer;
+load_app 'dancerREST';
 
 use Dancer::Config 'setting';
-setting apphandler  => 'PSGI';
+setting apphandler => 'PSGI';
 Dancer::Config->load;
+use Plack::Builder;
 
-my $handler = sub {
-    my $env = shift;
+my $app = sub {
+    my $env     = shift;
     my $request = Dancer::Request->new($env);
     Dancer->dance($request);
 };
+
+builder {
+    enable "Auth::Basic", authenticator => \&authen_cb;
+    $app;
+};
+
+sub authen_cb {
+    my ( $username, $password ) = @_;
+    return $username eq 'admin' && $password eq 'admin';
+}