Hi all, I am trying to delete entries from an LDAP server and I don't
understand why my code is not deleting the relevant entries. Using an ldap
browser the top level directory has the following next to it:
dc=test_ldap_server, dc=com

There are four subdirectories within this directory:

cn=Manager
ou=admin
ou=list1
ou=list2

The users I want to delete are in the buyers and suppliers directories and
each have nodes:

uid = username1
uid = username2
........
uid = username100


How come my script doesn't actually delete the users? It is connecting to
the correct server. I think the problem is perhaps something to do with the
ldap dir structure - perhaps.


here is my code:
#############################################################
#!/usr/bin/perl
use Net::LDAP;
use strict;
use lib ('/app/tracker/perl');
use MDR::Password;
use CGI;
use DBI;

$ENV{'NLS_LANG'}="ENGLISH_UNITED KINGDOM.WE8ISO8859P1";
$ENV{'ORACLE_HOME'}="/home/oracle/OraHome1";

use BIP::SSO;
my $conf = BIP::SSO->new();
my $cf = $conf->{_cfg};

my $ldap = Net::LDAP->new($cf->{'ldap_host'});
$ldap->bind("cn=Manager,dc=test_ldap_server,dc=com", $cf->{'ldap_passwd'});
$ldap->bind ( # bind to a directory with dn and password
dn => 'cn=Manager,dc=test_ldap_server,dc=com',
password => $cf->{'ldap_passwd'}
);
while(<>) {
chomp $_;
print "username: $_ n";
if($_ eq 'test_user1'){
my $dn="uid=$_,ou=Manager,dc=test_ldap_server,dc=com";
eval{$ldap->delete($dn)};
if($@){
print "error: $@ n";
}else{
print "username $_ deleted n";
}
exit;
}
}
#############################################################


Any ideas ?


Cheers,

Graeme :)

On 6/27/05, Graeme McLaren <[Email Removed]> wrote:

Morning all, I have made changes to that ldap script and when I tried to
delete a user I got "subtree delete not supported". I want to delete
everything associated with a user, is there a way that I can delete
everything with just the user id ?


Cheers for any advice folks.

G :)