view release on metacpan or  search on metacpan

lib/CGI/Lazy/Authz.pm  view on Meta::CPAN

sub _userTable {
	my $self = shift;

	return $self->{_userTable};
}
1

__END__

=head1 LEGAL

#===========================================================================

Copyright (C) 2008 by Nik Ogura. All rights reserved.

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

Bug reports and comments to nik.ogura@gmail.com. 

#===========================================================================

=head1 NAME

CGI::Lazy::Authz

=head1 SYNOPSIS

	use CGI::Lazy;

	my $q = CGI::Lazy->new({

			tmplDir         => '/templates',

			jsDir           => '/js',

			cssDir          => '/css',

			imgDir          => '/css',

			buildDir        => '/tmp',

			plugins         => {

					dbh     => {

						dbDatasource    => 'dbi:mysql:someDB:localhost',

						dbUser          => 'someUser',

						dbPasswd        => 'somePass',

						dbArgs          => {RaiseError  => 1},

					},

					session => {

						sessionTable    => 'session',

						sessionCookie   => 'frobnitz',

						saveOnDestroy   => 1,

						expires         => '+5m',

					},

					authn   => {

						table           => 'user',

						primarykey      => 'user_id',

						template        => 'login.tmpl',
	
						salt            => '2349987sa;lsdfvsdf',

						userField       => 'username',

						passwdField     => 'password',

					},

					authz   => {

						permFlag        => 1,

						userTable       => {

							name            => 'user',

							primarykey      => 'user_id',

							userNameField   => 'username',

						},

						groupTable      => {

							name            => 'group_list',

							primarykey      => 'group_id',

							groupNameField  => 'group_name',

						},

						mapTable        => {

							name            => 'user_group_map',

							groupField      => 'group_id_map',

							userField       => 'user_id_map',

							perms   => [],

						},