Changeset 2381 for trunk/LATMOS-Accounts


Ignore:
Timestamp:
06/03/20 13:04:09 (4 years ago)
Author:
nanardon
Message:

Fix ACL, replace $ROOT by @ROOT: '$' has special meaning here

Location:
trunk/LATMOS-Accounts/lib/LATMOS/Accounts
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm

    r2351 r2381  
    2727        { 
    2828            _acls => [ 
    29                 LATMOS::Accounts::Acls::Acl->new( '*.*', [ '_WebApp_: read,write' ] ), 
     29                LATMOS::Accounts::Acls::Acl->new( '*.*', [ '@ROOT: read,write' ] ), 
    3030            ], 
    3131            _default_acls => [ 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Acls/Acl.pm

    r2347 r2381  
    108108            return $u->{$perm}; 
    109109        # not login 
    110         } elsif (lc($u->{user}) eq '@anonymous' && $who eq "") { 
     110        } elsif (lc($u->{user}) eq '@anonymous' && $who eq '') { 
    111111            return $u->{$perm}; 
    112112        } 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

    r2379 r2381  
    13021302        if ($who && (my $uo = $self->{_acl_cache}{obj})) { 
    13031303            $groups = $self->{_acl_cache}{groups}; 
    1304         } elsif ($who eq '$ROOT') { 
    1305             return 1; 
     1304        } elsif (substr($who, 0, 1) eq '@') { 
     1305            # special account 
     1306            # only @ROOT should reach here 
    13061307        } else { 
    13071308            $who = ''; 
Note: See TracChangeset for help on using the changeset viewer.