Bio::Das::ProServer::Authenticator - authenticates DAS requests
$LastChangedRevision: 688 $
my $auth = Bio::Das::ProServer::Authenticator::<impl>->new({ 'dsn' => $, # source name 'config' => $, # source config 'debug' => $, # debug flag }); my $allow = $auth->authenticate({ 'socket' => $, # handle 'peer_addr' => $, # packed 'peer_port' => $, # number 'request' => $, # HTTP::Request object 'cgi' => $, # CGI object 'call' => $, # DAS command });
This is a stub class intended to be extended.
See subclasses.
my $auth = Bio::Das::ProServer::Authenticator::<impl>->new({ ... 'debug' => 1, });
my $auth = Bio::Das::ProServer::Authenticator::<impl>->new({ 'dsn' => $, # source name 'config' => $, # source config 'debug' => $, # debug flag });
my $allow = $oAuth->authenticate({ 'socket' => $, # handle 'peer_addr' => $, # packed 'peer_port' => $, # number 'request' => $, # HTTP::Request object 'cgi' => $, # CGI object 'call' => $, # DAS command });
Authenticates a request by making use of various request data. If requests are to be denied, the authentication operation should return an appropriate HTTP::Response object. Otherwise nothing (undef) is returned.
This stub method denies all requests with a standard 403 (Forbidden) response.
sub authenticate { my ($self, $params) = @_; # Perform authentication return $self->deny($params); } Returns a standard 403 (Forbidden) response.
sub authenticate { my ($self, $params) = @_; # Perform authentication return $self->allow($params); } Simply returns an undefined value.
This stub method does nothing.
None reported.
Andy Jenkinson <andy.jenkinson@ebi.ac.uk>
Copyright (c) 2008 EMBL-EBI
To install Bio::Das::ProServer, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Bio::Das::ProServer
CPAN shell
perl -MCPAN -e shell install Bio::Das::ProServer
For more information on module installation, please visit the detailed CPAN module installation guide.