File Coverage

blib/lib/CGI/Lazy/Authz.pm

Criterion	Covered	Total	%
statement	6	42	14.2
branch	0	8	0.0
condition	0	2	0.0
subroutine	2	9	22.2
pod	0	2	0.0
total	8	63	12.7

package CGI::Lazy::Authz;

use CGI::Lazy::Globals;

use strict;

#-------------------------------------------------------------------------------
sub AUTOLOAD {
	my $self = shift;
	my $perm = shift;

	my $name = our $AUTOLOAD;
	return if $name =~ /::DESTROY$/;
	my @list = split "::", $name;

	my $groupName = pop @list;
	my $userID = $self->q->session->data->authn->{id};
	my @binds = ($groupName, $userID);

	my $map = $self->_mapTable;
	my $user = $self->_userTable;
	my $group = $self->_groupTable;
	my $flag = $self->_permFlag;

	my $query = "select * from $map->{name} inner join $group->{name} on $group->{primarykey} = $map->{groupField} where $group->{groupNameField} = ? and $map->{userField} = ?";

	if ($perm) {
		$query .= " and $perm = ?";
		push @binds, $flag;
	}

#	$self->q->util->debug->edump($query, $groupName, $userID);

	my $result = $self->q->db->get($query, @binds);

	if ($result) {
		return 1;
	} else {
		return;

	}
}

#----------------------------------------------------------------------------------------
sub _groupTable {
	my $self = shift;

	return $self->{_groupTable};
}

#----------------------------------------------------------------------------------------
sub q {
	my $self = shift;

	return $self->{_q};
}

#----------------------------------------------------------------------------------------
sub _mapTable {
	my $self = shift;

	return $self->{_mapTable};
}

#----------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;

	my $self = {
		_q 		=> $q,
		_userTable	=> $q->plugin->authz->{userTable},
		_groupTable	=> $q->plugin->authz->{groupTable},
		_mapTable	=> $q->plugin->authz->{mapTable},
		_permFlag	=> $q->plugin->authz->{permFlag} || 1,

	};

	bless $self, $class;

	die "Cannot use Authz without Authn.  Please enable Authn plugin" unless $self->q->authn;

	return $self;
}

#----------------------------------------------------------------------------------------
sub _permFlag {
	my $self = shift;

	return $self->{_permFlag};
}

#----------------------------------------------------------------------------------------
sub _userTable {
	my $self = shift;

	return $self->{_userTable};
}
1

__END__