diff options
author | Bill MacAllister <whm@dropbox.com> | 2015-12-18 21:54:52 +0000 |
---|---|---|
committer | Bill MacAllister <whm@dropbox.com> | 2015-12-18 21:54:52 +0000 |
commit | f61bff40b0c76b01b89f8b977eb27fdef9409c2a (patch) | |
tree | 9812f0b1c38e001d6ddd8d7343adc40fa800e338 /perl/lib/Wallet/ACL/Base.pm | |
parent | 0eb853eb2ef7e7063c0219ce2cbd1e239d5579b7 (diff) | |
parent | 4a777845b06b62a6deb1df5e69cc9b21226c3c2f (diff) |
Merge branch 'master' into ad-keytabs
Conflicts:
NEWS
Diffstat (limited to 'perl/lib/Wallet/ACL/Base.pm')
-rw-r--r-- | perl/lib/Wallet/ACL/Base.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/perl/lib/Wallet/ACL/Base.pm b/perl/lib/Wallet/ACL/Base.pm index a2b07cc..19ca612 100644 --- a/perl/lib/Wallet/ACL/Base.pm +++ b/perl/lib/Wallet/ACL/Base.pm @@ -20,7 +20,7 @@ use vars qw($VERSION); # This version should be increased on any code change to this module. Always # use two digits for the minor version with a leading zero if necessary so # that it will sort properly. -$VERSION = '0.02'; +$VERSION = '0.03'; ############################################################################## # Interface @@ -37,6 +37,11 @@ sub new { return $self; } +# The default name check method allows any name. +sub syntax_check { + return 1; +} + # The default check method denies all access. sub check { return 0; @@ -92,6 +97,12 @@ inherit from it. It is not used directly. Creates a new ACL verifier. The generic function provided here just creates and blesses an object. +=item syntax_check(PRINCIPAL, ACL) + +This method should be overridden by any child classes that want to +implement validating the name of an ACL before creation. The default +implementation allows any name for an ACL. + =item check(PRINCIPAL, ACL) This method should always be overridden by child classes. The default |