Ariel Brosh (PAUSE Custodial Account) > Data-ACL-0.01 > Data::ACL

Download:
Data-ACL-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Data::ACL - Perl extension for simple ACL lists

SYNOPSIS ^

  use Data::ACL;
  use Set::NestedGroups; # You should acquire this module from CPAN

  my $groups = new Set::NestedGroups;
  $groups->add('root', 'wheel');
  $groups->add('wheel', 'staff');
  $groups->add('webmaster', 'staff'); # See Set::NestedGroups documentation

  my $acl = new Data::ACL($groups);
  my $web = $acl->Realm("web");
  $web->Deny('all');
  $web=>Allow('staff');
  $web->Deny('.boss'); # User boss, not group

  &DenyAccess unless $acl->IsAuthorized($user, 'web');

DESCRIPTION ^

This module implements Deny/Allow series, and requires Set::NestedGroups to define the groups.

Permissions are given per realm. A special realm called 'all' may contain prerequisites for all other realms. If evaluating that realm results in denying access, the specific realm is not evaluated. Otherwise evaluation proceeds to it.

AUTHOR ^

Ariel Brosh, schop@cpan.org

COPYRIGHT ^

This module is distributed under the same terms as Perl itself.

COMMERCIAL SUPPORT ^

Commercial support may be obtained via Raz Information Systems, Israel, raz@raz.co.il. No royalty is needed whatsoever for using the module, including in commercial applications.

SEE ALSO ^

perl(1), Set::NestedGroups.

syntax highlighting: