Schema::RDBMS::AUS::UserManipulate users and groups in the AUS schema. | |
Download |
Schema::RDBMS::AUS::User Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Tyler MacDonald
- Publisher web site:
- http://search.cpan.org/~crakrjack/
Schema::RDBMS::AUS::User Tags
Schema::RDBMS::AUS::User Description
Manipulate users and groups in the AUS schema. Schema::RDBMS::AUS::User is a Perl module that allows you to manipulate users and groups in the AUS schema.SYNOPSIS use Schema::RDBMS::AUS::User; use DBIx::Transaction; my $dbh = DBIx::Transaction->connect('DBI:Pg:'); if(my $user = Schema::RDBMS::AUS::User->login('user', 'pass', _dbh => $dbh)) { print "user id is $user->{id} "; $user->clear_flag("never_logged_in"); } $user->change_password($old, $new); my $group = Schema::RDBMS::AUS::User->create(name => "Resellers", is_group => 1); $user->add_to_group($group); $user->save; $group->set_flag("back_room", 1, 1); $group->save; $user->refresh; if($user->permission('back_room')) { print "User $user->{name} is allowed in the back room. "; } etc...A Schema::RDBMS::AUS::User object represents a User or a Group in the Authentication, Users and Sessions (AUS) schema. Most of the rest of the schema is managed via a user. Requirements: · Perl
Schema::RDBMS::AUS::User Related Software