Linux Certif

Toute la documentation sur la certification Linux LPI

Catalyst::Plugin::Authentication::Store::Htpasswd::Backend.3pm

NAME

Catalyst::Plugin::Authentication::Store::Htpasswd::Backend - Htpasswd authentication storage backend.

SYNOPSIS

     # you probably just want Store::Htpasswd under most cases,
     # but if you insist you can instantiate your own store:
 
     use Catalyst::Plugin::Authentication::Store::Htpasswd::Backend;
 
     use Catalyst qw/
         Authentication
         Authentication::Credential::Password
     /;
 
     my %users = (
         user => { password => "s3cr3t" },
     );
     
     our $users = Catalyst::Plugin::Authentication::Store::Htpasswd::Backend->new(\%users);
 
     sub action : Local {
         my ( $self, $c ) = @_;
 
         $c->login( $users->get_user( $c->req->param("login") ),
             $c->req->param("password") );
     }
 
 

DESCRIPTION

You probably want Catalyst::Plugin::Authentication::Store::Htpasswd, unless you are mixing several stores in a single app and one of them is Htpasswd.

Otherwise, this lets you create a store manually.

METHODS

new $hash_ref

new $hash_ref

Constructs a new store object, which uses the supplied hash ref as it's backing structure.

get_user $id

get_user $id

Keys the hash by $id and returns the value.

If the return value is unblessed it will be blessed as Catalyst::Plugin::Authentication::User::Hash.

user_supports

Chooses a random user from the hash and delegates to it.

COPYRIGHT & LICENSE

         Copyright (c) 2005 the aforementioned authors. All rights
         reserved. This program is free software; you can redistribute
         it and/or modify it under the same terms as Perl itself.