view release on metacpan or  search on metacpan

lib/Apache2_4/AuthzCaps.pm  view on Meta::CPAN

our $VERSION = '0.002';

use Apache2::AuthzCaps 'hascaps';
use Apache2::Const qw/AUTHZ_GRANTED AUTHZ_DENIED AUTHZ_DENIED_NO_USER/;
use Apache2::RequestRec;
use Apache2::RequestUtil;

##################################################

# General handler template stolen from Apache2_4::AuthCookie
sub handler {
	my ($r, $caps) = @_;
	my $user = $r->user;
	local $Apache2::AuthzCaps::rootdir = $r->dir_config('AuthzCapsRootdir');
	return AUTHZ_DENIED_NO_USER unless $user;
	my @caps = split ' ', $caps;
	hascaps($user, @caps) ? AUTHZ_GRANTED : AUTHZ_DENIED
}

1;