The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Gantry::Control::C::Users - User Management

SYNOPSIS

  use Gantry::Control::C::Users;
  

DESCRIPTION

This Handler manages users in the database to facilitate the use of that information for authentication, autorization, and use in applications. This replaces the use of htpasswd for user management and puts more information at the finger tips of the application.

APACHE

  <Location /admin/users >
    SetHandler  perl-script

    PerlSetVar  title   "User Management: "

    PerlSetVar  dbconn  "dbi:Pg:dbname=..."
    PerlSetVar  dbuser  "<database_username>"
    PerlSetVar  dbpass  "<database_password>"
    PerlSetVar  dbcommit  off

    PerlHandler Gantry::Control::C::Users
  </Location>

DATABASE

This is the auth_users table that is used by this module. It is also used by the Authentication modules to verify usernames and passwords. The passwords are ecrypted by the crypt(3) function in perl.

  create table "auth_users" (
    "id"            int4 default nextval('auth_users_seq') NOT NULL,
    "user_id"       int4,
    "active"        bool,
    "user_name"     varchar,
    "passwd"        varchar,
    "crypt"         varchar,
    "first_name"    varchar,
    "last_name"     varchar,
    "email"         varchar
  );

METHODS

Most of the methods are mapped to urls.

do_add
do_delete
do_edit
do_main
redirect_to_main

Decides where to go after a button press.

One method is provided for templates to call.

Provides the site nav links for use at the top and/or bottom of the page.

SEE ALSO

Gantry::Control(3), Gantry(3)

LIMITATIONS

The passwords for users are enrypted so they can not be seen at all. In some situations this could be a very big problem.

AUTHOR

Tim Keefer <tkeefer@gmail.com>

COPYRIGHT

Copyright (c) 2005-6, Tim Keefer.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.