isCommandAvailable('entry_delete','simple_delete'))
error(sprintf('%s: %s',_('This operation is not permitted by the configuration'),_('delete entry')),'error','index.php');
$request = array();
$request['dn'] = get_request('dn','REQUEST',true);
if (! is_array($request['dn']))
$request['dn'] = array($request['dn']);
$request['parent'] = array();
foreach ($request['dn'] as $dn)
if (! $app['server']->dnExists($dn))
system_message(array(
'title'=>_('Entry does not exist'),
'body'=>sprintf('%s (%s)',_('Unable to delete entry, it does not exist'),$dn),
'type'=>'error'));
else
array_push($request['parent'],$dn);
printf('%s
',_('Delete LDAP entries'));
printf('%s
',_('Recursive delete progress'));
# Prevent script from bailing early on a long delete
@set_time_limit(0);
foreach ($request['parent'] as $dn) {
echo '
';
echo '';
$result = pla_rdelete($app['server'],$dn);
echo '
';
if ($result) {
printf(_('Entry %s and sub-tree deleted successfully.'),''.$dn.'');
} else {
system_message(array(
'title'=>_('Could not delete the entry.').sprintf(' (%s)',pretty_print_dn($request['dn'])),
'body'=>ldap_error_msg($app['server']->getErrorMessage(null),$app['server']->getErrorNum(null)),
'type'=>'error'));
}
}
function pla_rdelete($server,$dn) {
# We delete all children, not only the visible children in the tree
$children = $server->getContainerContents($dn,null,0,'(objectClass=*)',LDAP_DEREF_NEVER);
if (! is_array($children) || count($children) == 0) {
printf('%s %s...',_('Deleting'),$dn);
if ($server->delete($dn)) {
printf(' %s
',_('Success'));
return true;
} else {
system_message(array(
'title'=>_('Could not delete the entry.').sprintf(' (%s)',pretty_print_dn($request['dn'])),
'body'=>ldap_error_msg($server->getErrorMessage(null),$server->getErrorNum(null)),
'type'=>'error'));
}
} else {
foreach ($children as $child_dn)
pla_rdelete($server,$child_dn);
printf('%s %s...',_('Deleting'),$dn);
if ($server->delete($dn)) {
printf(' %s
',_('Success'));
return true;
} else {
system_message(array(
'title'=>_('Could not delete the entry.').sprintf(' (%s)',pretty_print_dn($request['dn'])),
'body'=>ldap_error_msg($server->getErrorMessage(null),$server->getErrorNum(null)),
'type'=>'error'));
}
}
}
?>