Revision 8357
Added by ben leinfelder about 11 years ago
| src/perl/ldapweb.cgi | ||
|---|---|---|
| 360 | 360 |
foreach $entry ($mesg->all_entries) {
|
| 361 | 361 |
$dn = $entry->dn(); |
| 362 | 362 |
# remove the entry |
| 363 |
debug("DRY RUN: Removing expired account: " . $dn);
|
|
| 364 |
#$ldap->delete($dn);
|
|
| 363 |
debug("Removing expired account: " . $dn);
|
|
| 364 |
$ldap->delete($dn); |
|
| 365 | 365 |
} |
| 366 | 366 |
} |
| 367 | 367 |
$ldap->unbind; # take down session |
Also available in: Unified diff
actually remove the entry if it is expired (uncomment the function call). https://projects.ecoinformatics.org/ecoinfo/issues/6099