#!/usr/bin/perl
#
#  Clean LDAP database 
#  by pfalcon@users.sourceforge.net 2000-10-18
#  $Id: ldap-clean,v 1.3 2000/10/20 01:26:26 pfalcon Exp $
#

use DBI;

require("include.pl");  # Include all the predefined functions
&db_connect;		# Parsing config in db_connect is bogus!

$cmd = "${ldap_prefix}ldapdelete -D '$sys_ldap_admin_dn' -W -r '$sys_ldap_base_dn'";
print "Destroying LDAP database...\n";
system($cmd);
