File Coverage

blib/lib/Apache/Authenlemonldap.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Apache::Authenlemonldap;
use Apache::Constants qw(:common);
use Apache2::Log;
our $VERSION = '1.0.0';
sub handler {
    my $r = shift;
    return OK unless $r->is_initial_req;
    my ( $res, $role ) = $r->get_basic_auth_pw;
    return $res if $res;
    my $user = $r->connection->user;
    if ( !$user ) {
        $r->note_basic_auth_failure;
        $r->log_reason( "no uid found", $r->uri );
        return AUTH_REQUIRED;
    }
    my @directives = @{ $r->requires };
    $r->subprocess_env( ROLE => $role );
    $r->log->info("$user with role $role EXPECTED");
    for $req (@directives) {
        my ( $require, @rest ) = split /\s+/, $req->{requirement};
        if ( lc($directive) eq 'valid-user' ) {
            $r->log->info("$user with role $role GRANTED");
            return OK;
        }

        if ( lc($require) eq "user" ) {
            if ( grep { $_ eq $user } @rest ) {
                $r->log->info("$user with role $role GRANTED");
                return OK;

            }
        }
    }
        return AUTH_REQUIRED;

}
1;
__END__