- Timestamp:
- 08/29/19 20:06:06 (5 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm
r2237 r2278 56 56 if ($c->user_exists) { 57 57 # Set login user: 58 $c->model('Accounts')->db-> {_user} = $c->user->{username};58 $c->model('Accounts')->db->SetConnectedUser($c->user->{username}); 59 59 return 1; 60 60 } else { -
trunk/LATMOS-Accounts/Makefile.PL
r2240 r2278 87 87 bin/la-renewEmp 88 88 bin/la-load-csv 89 bin/la-dump 89 90 bin/la-sql-attrvalues 90 91 ) ], -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm
r2259 r2278 36 36 $acls->add( '*.log', [ '$uid: read', '*: deny' ] ); 37 37 $acls->add( 38 'user.{userPasswd,userPassword,encryptedPassword }',38 'user.{userPasswd,userPassword,encryptedPassword,oldPassword}', 39 39 [ '$uid: write', '*: deny' ], 40 40 ); -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm
r2261 r2278 1173 1173 } 1174 1174 1175 =head2 SetConnectedUser($username) 1176 1177 Set the username of the connected user 1178 1179 =cut 1180 1181 sub SetConnectedUser { 1182 my ($self, $username) = @_; 1183 1184 $self->{_user} = $username; 1185 la_log(LA_DEBUG, "Connected as $username"); 1186 } 1187 1175 1188 =head2 connect($username, $password) 1176 1189 … … 1183 1196 my $auth = $self->authenticate_user($username, $password); 1184 1197 if ($auth) { 1185 $self->{_user} = $username; 1186 la_log(LA_DEBUG, "Connected as $username"); 1198 $self->SetConnectedUser($username); 1187 1199 } 1188 1200 return $auth; -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r2277 r2278 889 889 } 890 890 891 my $SubOtype = undef; 892 893 if (@{ $config->{SubOtype} || []}) { 894 $SubOtype = { map { $_ => 1 } @{ $config->{SubOtype} } }; 895 } 896 891 897 if (ref $self && $config->{recur}) { 892 898 my %subobj = $self->ListChildObjects; 893 899 foreach my $otype (sort keys %subobj) { 900 if ($SubOtype) { 901 $SubOtype->{$otype} or next; 902 } 894 903 foreach my $oname (sort @{ $subobj{$otype} }) { 895 904 my $obj = $self->base->get_object($otype, $oname) or next; -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm
r2267 r2278 246 246 'filefmt=s' => \my $filefmt, 247 247 'recur' => \my $recur, 248 'subotype=s' => \my @SubOtype, 248 249 }, @_ 249 250 ); … … 279 280 empty_attr => $empty_attr, 280 281 only_rw => !$with_ro, 282 SubOtype => \@SubOtype, 281 283 } ); 282 284 }
Note: See TracChangeset
for help on using the changeset viewer.