Eidolon::Driver::User::Basic - Eidolon basic user driver.
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;
The Eidolon::Driver::User::Basic is a user driver for Eidolon, that provides simple session-based authorization.
Inherited from "new()" in Eidolon::Driver::User.
Implementation of abstract method from "authorize($login)" in Eidolon::Driver::User.
Implementation of abstract method from "unauthorize()" in Eidolon::Driver::User.
Implementation of abstract method from "authorized()" in Eidolon::Driver::User.
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.
Inherited from "agent" in Eidolon::Driver::User.
Inherited from "ip" in Eidolon::Driver::User.
Inherited from "language" in Eidolon::Driver::User.
Inherited from "referer" in Eidolon::Driver::User.
User login. Contains information only if user was authorized before, undef otherwise.
Eidolon, Eidolon::Driver::User
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Anton Belousov, <abel@cpan.org>
Copyright (c) 2009, Atma 7, http://www.atma7.com
To install Eidolon::Driver::User::Basic, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Eidolon::Driver::User::Basic
CPAN shell
perl -MCPAN -e shell install Eidolon::Driver::User::Basic
For more information on module installation, please visit the detailed CPAN module installation guide.