Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
LWPsearch.pl	2.68 KB	-rw-r--r--
README	1.2 KB	-rw-r--r--
dot.tklkup	1.77 KB	-rw-r--r--
isMember.pl	9.46 KB	-rw-r--r--
jpegDisplay.pl	7.08 KB	-rw-r--r--
jpegLoad.pl	7.27 KB	-rw-r--r--
ldapmodify.pl	1.43 KB	-rw-r--r--
ldifdiff.pl	9.63 KB	-rw-r--r--
ldifsort.pl	2.69 KB	-rw-r--r--
ldifuniq.pl	1.59 KB	-rw-r--r--
printMembers.pl	6.48 KB	-rw-r--r--
recursive-ldap-delete.pl	1 KB	-rw-r--r--
schema2ad.pl	8.91 KB	-rw-r--r--
simple-proxy.pl	2.83 KB	-rw-r--r--
tklkup	170.28 KB	-rw-r--r--

Name

Size

Permission

Action

LWPsearch.pl

2.68 KB

-rw-r--r--

README

1.2 KB

-rw-r--r--

dot.tklkup

1.77 KB

-rw-r--r--

isMember.pl

9.46 KB

-rw-r--r--

jpegDisplay.pl

7.08 KB

-rw-r--r--

jpegLoad.pl

7.27 KB

-rw-r--r--

ldapmodify.pl

1.43 KB

-rw-r--r--

ldifdiff.pl

9.63 KB

-rw-r--r--

ldifsort.pl

2.69 KB

-rw-r--r--

ldifuniq.pl

1.59 KB

-rw-r--r--

printMembers.pl

6.48 KB

-rw-r--r--

recursive-ldap-delete.pl

1 KB

-rw-r--r--

schema2ad.pl

8.91 KB

-rw-r--r--

simple-proxy.pl

2.83 KB

-rw-r--r--

tklkup

170.28 KB

-rw-r--r--

Code Editor : recursive-ldap-delete.pl

#!/usr/bin/perl -w
#
# recursive-ldap-delete.pl
#
# originally by Mike Jackson <mj@sci.fi>
# shortened by Peter Marschall <peter@adpm.de>
# based on ideas by Norbert Kiesel <nkiesel@tbdetworks.com>
#
# ToDo: check errors, handle references, ....

use strict;
use Net::LDAP;

my $server      = "localhost";
my $binddn      = "cn=directory manager";
my $bindpasswd  = "foobar";
my $delbranch   = "ou=users,dc=bigcorp,dc=com";		# branch to remove

my $ldap        = Net::LDAP->new( $server ) or die "$@";
$ldap->bind( $binddn, password => $bindpasswd, version => 3 );

my $search      = $ldap->search( base   => $delbranch,
                                 filter => "(objectclass=*)" );

# delete the entries found in a sorted way:
# those with more "," (= more elements) in their DN, which are deeper in the DIT, first
# trick for the sorting: tr/,// returns number of , (see perlfaq4 for details)
foreach my $e (sort { $b->dn =~ tr/,// <=> $a->dn =~ tr/,// } $search->entries()) {
  $ldap->delete($e);
}

$ldap->unbind();

${this.title}

Code Editor : recursive-ldap-delete.pl