source: vendor/current/lib/ldb/tools/ldbdel.c

/* 
   ldb database library

   Copyright (C) Andrew Tridgell  2004

     ** NOTE! The following LGPL license applies to the ldb
     ** library. This does NOT imply that all of Samba is released
     ** under the LGPL
   
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 3 of the License, or (at your option) any later version.

   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, see <http://www.gnu.org/licenses/>.
*/

/*
 *  Name: ldb
 *
 *  Component: ldbdel
 *
 *  Description: utility to delete records - modelled on ldapdelete
 *
 *  Author: Andrew Tridgell
 */

#include "replace.h"
#include "ldb.h"
#include "tools/cmdline.h"
#include "ldbutil.h"

static int dn_cmp(struct ldb_message **msg1, struct ldb_message **msg2)
{
        return ldb_dn_compare((*msg1)->dn, (*msg2)->dn);
}

static int ldb_delete_recursive(struct ldb_context *ldb, struct ldb_dn *dn,struct ldb_control **req_ctrls)
{
        int ret;
        unsigned int i, total=0;
        const char *attrs[] = { NULL };
        struct ldb_result *res;
        
        ret = ldb_search(ldb, ldb, &res, dn, LDB_SCOPE_SUBTREE, attrs, "distinguishedName=*");
        if (ret != LDB_SUCCESS) return ret;

        /* sort the DNs, deepest first */
        TYPESAFE_QSORT(res->msgs, res->count, dn_cmp);

        for (i = 0; i < res->count; i++) {
                if (ldb_delete_ctrl(ldb, res->msgs[i]->dn,req_ctrls) == LDB_SUCCESS) {
                        total++;
                } else {
                        printf("Failed to delete '%s' - %s\n",
                               ldb_dn_get_linearized(res->msgs[i]->dn),
                               ldb_errstring(ldb));
                }
        }

        talloc_free(res);

        if (total == 0) {
                return LDB_ERR_OPERATIONS_ERROR;
        }
        printf("Deleted %u records\n", total);
        return LDB_SUCCESS;
}

static void usage(struct ldb_context *ldb)
{
        printf("Usage: ldbdel <options> <DN...>\n");
        printf("Deletes records from a ldb\n\n");
        ldb_cmdline_help(ldb, "ldbdel", stdout);
        exit(LDB_ERR_OPERATIONS_ERROR);
}

int main(int argc, const char **argv)
{
        struct ldb_control **req_ctrls;
        struct ldb_cmdline *options;
        struct ldb_context *ldb;
        int ret = 0, i;
        TALLOC_CTX *mem_ctx = talloc_new(NULL);

        ldb = ldb_init(mem_ctx, NULL);
        if (ldb == NULL) {
                return LDB_ERR_OPERATIONS_ERROR;
        }

        options = ldb_cmdline_process(ldb, argc, argv, usage);

        if (options->argc < 1) {
                usage(ldb);
        }

        req_ctrls = ldb_parse_control_strings(ldb, ldb, (const char **)options->controls);
        if (options->controls != NULL &&  req_ctrls== NULL) {
                printf("parsing controls failed: %s\n", ldb_errstring(ldb));
                return LDB_ERR_OPERATIONS_ERROR;
        }

        for (i=0;i<options->argc;i++) {
                struct ldb_dn *dn;

                dn = ldb_dn_new(ldb, ldb, options->argv[i]);
                if (dn == NULL) {
                        return LDB_ERR_OPERATIONS_ERROR;
                }
                if (options->recursive) {
                        ret = ldb_delete_recursive(ldb, dn,req_ctrls);
                } else {
                        ret = ldb_delete_ctrl(ldb, dn,req_ctrls);
                        if (ret == LDB_SUCCESS) {
                                printf("Deleted 1 record\n");
                        }
                }
                if (ret != LDB_SUCCESS) {
                        printf("delete of '%s' failed - (%s) %s\n",
                               ldb_dn_get_linearized(dn),
                               ldb_strerror(ret),
                               ldb_errstring(ldb));
                }
        }

        talloc_free(mem_ctx);

        return ret;
}