Query: authen::simple::adapter
OS: debian
Section: 3pm
Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar
Authen::Simple::Adapter(3pm) User Contributed Perl Documentation Authen::Simple::Adapter(3pm)NAMEAuthen::Simple::Adapter - Adapter class for implementationsSYNOPSISpackage Authenticate::Simple::Larry; use strict; use base 'Authen::Simple::Adapter'; __PACKAGE__->options({ secret => { type => Params::Validate::SCALAR, default => 'wall', optional => 1 } }); sub check { my ( $self, $username, $password ) = @_; if ( $username eq 'larry' && $password eq $self->secret ) { $self->log->debug( qq/Successfully authenticated user '$username'./ ) if $self->log; return 1; } $self->log->debug( qq/Failed to authenticate user '$username'. Reason: 'Invalid credentials'/ ) if $self->log; return 0; } 1;DESCRIPTIONAdapter class for implementations.METHODSo new ( %parameters ) If overloaded, this method should take a hash of parameters. The following options should be valid: o cache ( $ ) Any object that supports "get", "set". Only successful authentications are cached. cache => Cache::FastMmap->new o callback ( & ) A subref that gets called with two scalar references, username and password. callback = sub { my ( $username, $password ) = @_; if ( length($$password) < 6 ) { return 0; # abort, invalid credintials } if ( $$password eq 'secret' ) { return 1; # abort, successful authentication } return; # proceed; } o log ( $ ) Any object that supports "debug", "info", "error" and "warn". log => Log::Log4perl->get_logger('Authen::Simple') log => $r->log log => $r->server->log o init ( \%parameters ) This method is called after construction. It should assign parameters and return the instance. sub init { my ( $self, $parameters ) = @_; # mock with parameters return $self->SUPER::init($parameters); } o authenticate ( $username, $password ) End user method. Applies callback, checks cache and calls "check" unless aborted by callback or a cache hit. o check ( $username, $password ) Must be implemented in sublcass, should return true on success and false on failure. o check_password( $password, $encrypted ) o options ( \%options ) Must be set in subclass, should be a valid Params::Validate specification. Accessors for options will be created unless defined in sublcass. __PACKAGE__->options({ host => { type => Params::Validate::SCALAR, optional => 0 }, port => { type => Params::Validate::SCALAR, default => 80, optional => 1 } });SEE ALSOAuthen::Simple Authen::Simple::Password Params::ValidateAUTHORChristian Hansen "chansen@cpan.org"COPYRIGHTThis program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.14.2 2012-04-19 Authen::Simple::Adapter(3pm)
Similar Topics in the Unix Linux Community |
---|
Please help on this |
Experts !!! I Need HELP immediately..! |
Expect scripting telnet stop on bad username or password |