Net::LDAP and rdn

[Jerome h. <jb...@if...>]

Hi,

When I delete an entry in LDAP, rather than completely deleting the
entry, I move the entry to a "deleted" tree.

I use the following code:
my $newrdn = $retailer->dn;
	    $newrdn =~ s/([^,]+),.*/$1/;
	    $newrdn = "$newrdn-" . time;
	    $mesg = $ldap->moddn( $retailer->dn,
				  newrdn => $newrdn,
				  newsuperior => $LDAP_DELETED,
				  );

First, my regular expression is certainly a bit too much simple.
( $newrdn =~ s/([^,]+),.*/$1/; )
Can someone give a reasonable regexp to retrieve the rdn of a dn ?

Perhaps, an "rdn" function should be available in NET::LDAP to
retrieve the rdn like we retrieve the dn.

Regards,
Jerome. 


 
______________________________________________________________________________
ifrance.com, l'email gratuit le plus complet de l'Internet !
vos emails depuis un navigateur, en POP3, sur Minitel, sur le WAP...
http://www.ifrance.com/_reloc/email.emailif