File Coverage

blib/lib/Eidolon/Driver/User/Basic.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch			n/a
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	38	39.4

package Eidolon::Driver::User::Basic;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/User/Basic.pm - basic user driver
#
# ==============================================================================

use base qw/Eidolon::Driver::User/;
use warnings;
use strict;

our $VERSION  = "0.02"; # 2009-04-06 02:04:33

# ------------------------------------------------------------------------------
# authorize($login)
# authorize user
# ------------------------------------------------------------------------------
sub authorize
{
    my ($self, $login, $r);

    ($self, $login) = @_;
    $r = Eidolon::Core::Registry->get_instance;

    $r->cgi->start_session;
    $r->cgi->set_session("login", $login);
    $r->cgi->set_session("ip",    $self->ip);

    __PACKAGE__->mk_accessors("login");
    $self->login( $login );
}

# ------------------------------------------------------------------------------
# unauthorize()
# unauthorize user
# ------------------------------------------------------------------------------
sub unauthorize
{
    my ($self, $r);

    $self = shift;
    $r    = Eidolon::Core::Reigstry->get_instance;

    $r->cgi->destroy_session;
    $self->login( undef );
}

# ------------------------------------------------------------------------------
# $ authorized()
# check if user is authorized
# ------------------------------------------------------------------------------
sub authorized
{
    my ($self, $r);

    $self = shift;
    $r    = Eidolon::Core::Registry->get_instance;

    return $r->cgi->get_session("login") && ($r->cgi->get_session("ip") eq $self->ip);
}

1;

__END__