Anton Belousov

NAME

Eidolon::Driver::User::Basic - Eidolon basic user driver.

SYNOPSIS

Login handler:

    my ($r, $user, $login, $pass);

    $r     = Eidolon::Core::Registry->get_instance;
    $user  = $r->loader->get_object("Eidolon::Driver::User::Basic");
    
    if (!$user->authorized)
    {
        $login = $r->cgi->post("login");
        $pass  = $r->cgi->post("password");

        # login & password validation
        # ...

        $user->authorize($login) if ($login_and_password_are_valid);
    }

Logout handler:

    my ($r, $user);

    $r    = Eidolon::Core::Registry->get_instance;
    $user = $r->loader->get_object("Eidolon::Driver::User::Basic");

    $user->unauthorize;

DESCRIPTION

The Eidolon::Driver::User::Basic is a user driver for Eidolon, that provides simple session-based authorization.

METHODS

new()

Inherited from "new()" in Eidolon::Driver::User.

authorize($login)

Implementation of abstract method from "authorize($login)" in Eidolon::Driver::User.

unauthorize()

Implementation of abstract method from "unauthorize()" in Eidolon::Driver::User.

authorized()

Implementation of abstract method from "authorized()" in Eidolon::Driver::User.

ATTRIBUTES

The Eidolon::Driver::User::Basic package adds one useful class attribute that is filled in during user authorization. See "ATTRIBUTES" in Eidolon::Driver::User for more information about using user driver class attributes.

agent

Inherited from "agent" in Eidolon::Driver::User.

ip

Inherited from "ip" in Eidolon::Driver::User.

language

Inherited from "language" in Eidolon::Driver::User.

referer

Inherited from "referer" in Eidolon::Driver::User.

login

User login. Contains information only if user was authorized before, undef otherwise.

SEE ALSO

Eidolon, Eidolon::Driver::User

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Anton Belousov, <abel@cpan.org>

COPYRIGHT

Copyright (c) 2009, Atma 7, http://www.atma7.com