Re: Copying an entry

[Jim H. <ha...@us...>]

I haven't yet gotten any nibbles on this.  I will add some clarification
and a line of code.  The 3 lines :
  print "attempting to add entry ",$newentry->dn,"\n" if $testing;
  $mesg = $ldap->add($newentry);
  print "returned ", $mesg->code,"\n";
result in "attempting to add" being printed twice with no "returned'.  If
I run with perl -d and put breakpoints at the two prints above, the second
one is never caught and after the second, it loops so tightly that I can't
even use Ctl-C to get out.  Any ideas?

  --Jim Harle


On Tue, 19 Sep 2000, Jim Harle wrote:

> I'm attempting to move an entry to another container via copy and delete
> since my server (Novell NDS eDirectory) apparently won't allow a moddn to
> a different one.  I am using perl-ldap-0.19 and perl 5.005_03 on one
> Solaris system and perl-ldap-0.22 on another. Strange things are happening
> with both versions.  In executing the code below, which is a callback from
> a search, it prints the "attempting to add" message for both things found
> in the search, but never prints either "Add fail" or "attempting to
> delete", which seems like an impossibility.  It goes into some sort of
> catatonic state after printing the 2 "attempting to add" messages.  It
> also neither adds nor deletes.
> 
> Any ideas of what I should try?
> 
> Here is the code I am using:
> 
> sub process_entry {
> # execute this once for each entry found in searchldap
>   my $uid;
>   my ( $search, $entry ) = @_ ;
>   return unless $search;
>   return unless $entry;
>   $dn = $entry->dn;                 # get the dn for this one;
> #set the dn for the corresponding disabled place
>   my $newdn = $dn;
>   $dn =~ /^\w+\=(\w+)/;             # the first thing in the dn is what we
> want
>   $uid = $1;                        # the uid
>   $newdn =~ s/o\s*\=\s*usna/ou\=usna\,o\=disabled/i; 
>   my $newentry = Net::LDAP::Entry->new;
>   $newentry = $entry;
>   $newentry->dn($newdn);
>   print "attempting to add entry ",$newentry->dn,"\n" if $testing;
>   $mesg = $ldap->add($newentry);
>   if ($mesg->code) {
>     print "Add fail for $newdn\n  ",
>            Net::LDAP::Util::ldap_error_name($mesg->code), "\n" if
> $testing;
>     print ERROR "Add fail for $newdn\n  ",
>            Net::LDAP::Util::ldap_error_name($mesg->code), "\n";
>   } else {
>     print "attempting to delete $dn\n" if $testing;
>     $mesg = $ldap->delete($dn); #delete old entry
>     print LOG "moved to $newdn\n";
>     if ($mesg->code) {
>       print "Delete fail for $dn\n  ",
>            Net::LDAP::Util::ldap_error_name($mesg->code), "\n" if
> $testing;
>       print ERROR "Delete fail for $dn\n  ",
>            Net::LDAP::Util::ldap_error_name($mesg->code), "\n";
>     } else {
>       if ($testing) {
>          print "would have sent deluser for $uid\n";
>       } else {
>         system "senddeluser $uid";
>       }
>     }
>   }
>   $search->pop_entry;
> }
> 
> 
> --Jim Harle
> 
> 
>