I was not able to find this script. Could you please send me the url or
navigational steps to find it in CPAN.

Thanks,

Jeremiah

-----Original Message-----
From: Mike Jackson [mailto:[EMAIL PROTECTED] 
Sent: Friday, January 28, 2005 2:18 AM
To: Messerer, Jeremiah
Cc: [email protected]
Subject: Re: Recursive delete ...

ext Messerer, Jeremiah ([EMAIL PROTECTED]) wrote:
> Is there any existing Perl API to delete an entire directory or do
> selective deletion? I have searched many web sources and found
nothing.
> I need to delete an entire organization. Also, I need to delete all
> entries of a subtree except for one.

Hi,
 You could have a look at a script which I contributed to Net::LDAP.
Find it in /contrib. It's called recursive-ldap-delete.pl.

 It probably needs a little bit of enhancement, such as using
Getopt::Long
to specify some of the options, and doing naming context discovery
instead of manually specifying it...

 I will enhance it a bit when I get time, but it certainly does it's
job already.

BR,
--
mike 

Reply via email to