Wallet::ACL::Krb5::Regex3pm

Usage

    my $verifier = Wallet::ACL::Krb5::Regex->new;
    my $status = $verifier->check ($principal, $acl);
    if (not defined $status) {
        die "Something failed: ", $verifier->error, "\n";
    } elsif ($status) {
        print "Access granted\n";
    } else {
        print "Access denied\n";
    }

Overview

Wallet::ACL::Krb5::Regex is the wallet ACL verifier used to verify ACL lines of type "krb5-regex". The value of such an ACL is a Perl regular expression, and the ACL grants access to a given Kerberos principal if and only if the regular expression matches that principal.

Methods

new()

Creates a new ACL verifier. For this verifier, there is no setup work.

check(PRINCIPAL, ACL)

Returns true if the Perl regular expression specified by the ACL matches the PRINCIPAL, false if not, and undef on an error (see "DIAGNOSTICS" below).

error()

Returns the error if check() returned undef.

Diagnostics