Changeset 2381


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
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/PwRst.pm

    r2351 r2381  
    2020    my ( $self, $c ) = @_; 
    2121 
    22     $c->model('Accounts')->db->SetConnectedUser('$ROOT'); 
     22    $c->model('Accounts')->db->SetConnectedUser('@ROOT'); 
    2323    $c->stash->{user} = $c->model('Accounts')->db->get_object('user', 'thauvin'); 
    2424    $c->log->debug('Allow ' . $c->model('Accounts')->db->check_acl($c->stash->{user}, 'userPassword', 'w')); 

  • 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.