Changeset 1829 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 08/09/16 13:28:19 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Expiredaliases.pm
r1819 r1829 53 53 54 54 my %existedAliases = map { $_ => 1 } $self->{_base}->search_objects('aliases', 'user.active=0'); 55 my $date = DateTime->now->subtract(days => 31)->ymd('-'); 56 foreach my $user ($self->{_base}->search_objects('user', 'status=expired', "expired>$date")) { 55 foreach my $user ($self->{_base}->search_objects('user', 'status=expired')) { 57 56 $existedAliases{$user} and next; # An alias existed, doing nothing 58 57 $self->{_base}->log(LA_NOTICE, "Adding alias to expired user $user");
Note: See TracChangeset
for help on using the changeset viewer.