Changeset 1971 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 03/07/17 13:44:28 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Heimdal/User.pm
r1071 r1971 161 161 /uid/ and return $self->id; 162 162 /modName/ and return $self->{entry}->getModName(); 163 /krb5ValidEnd/ and return $self->{entry}->getPrincExpireTime(); 163 /krb5ValidEnd/ and do { 164 # (2^31) - 1 means no expiration 165 my $val = $self->{entry}->getPrincExpireTime(); 166 return $val == 2_147_483_647 ? undef : $val; 167 }; 164 168 /krb5KDCFlags/ and return $self->{entry}->getAttributes(); 165 169 /krb5MaxRenew/ and return $self->{entry}->getMaxRenewableLife(); … … 174 178 my ($principal, %fields) = @_; 175 179 for (keys %fields) { 176 /krb5ValidEnd/ and $principal->setPrincExpireTime($fields{$_} || 0); 180 # It's seems krb5ValidEnd cannot be unset using perl API 181 # so we're setting the expiration to max time (2^31 - 1) 182 /krb5ValidEnd/ and $principal->setPrincExpireTime($fields{$_} || 2_147_483_647); 177 183 /krb5KDCFlags/ and $principal->setAttributes($fields{$_} || 0); 178 184 /krb5MaxRenew/ and $principal->setMaxRenewableLife($fields{$_} || 0);
Note: See TracChangeset
for help on using the changeset viewer.