|
package SL::Dispatcher::AuthHandler;
|
|
|
|
use strict;
|
|
|
|
use parent qw(Rose::Object);
|
|
|
|
use SL::Dispatcher::AuthHandler::Admin;
|
|
use SL::Dispatcher::AuthHandler::None;
|
|
use SL::Dispatcher::AuthHandler::User;
|
|
|
|
my %valid_auth_levels = map { ($_ => 1) } qw(user admin none);
|
|
|
|
sub handle {
|
|
my ($self, %param) = @_;
|
|
|
|
my $auth_level = $self->get_auth_level(%param);
|
|
|
|
my $handler_name = "SL::Dispatcher::AuthHandler::" . ucfirst($auth_level);
|
|
$self->{handlers} ||= {};
|
|
$self->{handlers}->{$handler_name} ||= $handler_name->new;
|
|
my $ok = $self->{handlers}->{$handler_name}->handle(%param);
|
|
|
|
return (
|
|
auth_level => $auth_level,
|
|
keep_auth_vars => $self->get_keep_auth_vars(%param),
|
|
auth_ok => $ok,
|
|
);
|
|
}
|
|
|
|
sub get_auth_level {
|
|
my ($self, %param) = @_;
|
|
|
|
my $auth_level = $param{routing_type} eq 'old' ? ($param{script} eq 'admin' ? 'admin' : 'user')
|
|
: $param{routing_type} eq 'controller' ? "SL::Controller::$param{controller}"->get_auth_level($param{action})
|
|
: 'user';
|
|
|
|
return $valid_auth_levels{$auth_level} ? $auth_level : 'user';
|
|
}
|
|
|
|
sub get_keep_auth_vars {
|
|
my ($self, %param) = @_;
|
|
|
|
return $param{routing_type} eq 'controller' ? "SL::Controller::$param{controller}"->keep_auth_vars_in_form(action => $param{action}) : 0;
|
|
}
|
|
|
|
1;
|