| Bio-Das-ProServer documentation | view source | Contained in the Bio-Das-ProServer distribution. |
Bio::Das::ProServer::Authenticator - authenticates DAS requests
$LastChangedRevision: 549 $
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.
None reported.
Andy Jenkinson <andy.jenkinson@ebi.ac.uk>
Copyright (c) 2008 EMBL-EBI
| Bio-Das-ProServer documentation | view source | Contained in the Bio-Das-ProServer distribution. |