Changeset 229

Timestamp:

06/05/09 13:56:00 (15 years ago)

Author:

nanardon

Message:

• add login part

Location:

LATMOS-Accounts-Web

Files:

• Makefile.PL (modified) (1 diff)
• lib/Catalyst (added)
• lib/Catalyst/Authentication (added)
• lib/Catalyst/Authentication/Credential (added)
• lib/Catalyst/Authentication/Credential/La.pm (added)
• lib/LATMOS/Accounts/Web.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Web/Controller.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (1 diff)

LATMOS-Accounts-Web/Makefile.PL

@@ -10 +10 @@
 requires 'YAML'; # This should reflect the config file format you've chosen
                  # See Catalyst::Plugin::ConfigLoader for supported formats
+requires 'Catalyst::Plugin::Authentication' => '0';
+requires 'Catalyst::Plugin::Session' => '0';
+requires 'Catalyst::Plugin::Session::Store::FastMmap' => '0';
+requires 'Catalyst::Plugin::Session::State::Cookie' => '0';
 catalyst;
 

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -20 +20 @@
     Session::State::Cookie
     Session::Store::FastMmap
+    Authentication
     /;
 
@@ -34 +35 @@
 
 __PACKAGE__->config( name => 'LATMOS::Accounts::Web' );
+
+__PACKAGE__->config->{'Plugin::Authentication'} = {
+    default_realm => 'la',
+    realms => {
+        la => {
+            credential => {
+                class => 'La'
+            },
+            store => {
+                class => 'Null',
+            },
+        },
+    },
+};
+
 
 # Start the application

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller.pm

@@ -42 +42 @@
     }
     $c->stash->{mainmenu} = $menu;
+    if (!$c->user_exists && $c->req->path ne 'login') {
+        $c->forward('/login');
+    }
 }
 

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -32 +32 @@
 }
 
+sub login : Local {
+    my ( $self, $c ) = @_;
+
+    $c->stash->{template} = 'login.tt';
+    if ($c->req->param('username')) {
+        if ($c->authenticate({
+                username => $c->req->param('username'),
+                password => $c->req->param('password')})) {
+            $c->res->redirect($c->req->param('loguri') || '/');
+        } else {
+            warn "invalid login";
+        }
+    }
+}
+
+sub logout : Local {
+    my ( $self, $c ) = @_;
+    $c->logout;
+    $c->res->redirect('/');
+}
+
 =head2 end