in reply to Adding attribut to AD

Once it gets to the line you indicated, $entry is going to be some sort of emptiness or false... either you hit on ( !$entry ) in your if, or your while($entry) was false because that's how it was set in 

entry = $AD_conn->nextEntry();

[download]

And indeed the error indicates that $entry == "" when you try to dereference it.

So... maybe try creating your new entry within the while loop?

    while ($entry ) {

        # Create the new Directory entry
        #
        my $new_entry = new Mozilla::LDAP::Entry;
        # etc.

        $entry = $AD_conn->nextEntry();
    }    # End of while loop

[download]

Replies are listed 'Best First'.
Re^2: Adding attribut to AD
by mr_evans2u (Novice) on Nov 25, 2008 at 20:18 UTC
    thank you oeuftete. I was able to get it to work like this: 
        $entry = $AD_conn->search($adld{root}, $adld{scope}, "(&(|(employe
+eID=$UMF))(mail=*))", 0, @attr);
    
if (!$entry) {
    my $code = $AD_conn->getErrorCode();
 
    if ($code == 0) {
        print "No Directory records found to process on this run.\n"
    } else {
        print "Run terminated on LDAP Error=" . $AD_conn->getErrorStri
+ng() . ".\n";
    }
}
else {
    while($entry) {

       print "employeeID mail: $entry->{mail}[0],\n";      
       my $ID = $entry->{mail}[0];

    # Create the new Directory entry
    #
    $entry = new Mozilla::LDAP::Entry;
    $entry->setDN(("cn=$CN,OU=FunctionalContacts,OU=Functional,OU=Exch
+ange,OU=Services,") . $adld{root});
    $entry->addValue("objectclass", "top");
    $entry->addValue("objectclass", "organizationalPerson");
    $entry->addValue("objectclass", "person");
    $entry->addValue("objectclass", "contact"); 
    $entry->addValue("description", "POC:$ID");

    # Put the remaining values into the AD Directory

   $fa_values{"mailnickname"}       = $username;
   while (($attr,$value) = each %fa_values) {
    $entry->addValue($attr, $value);
    }
    $AD_conn->add($entry);

if ($AD_conn->getErrorCode()) {
    print "FAILED create_record:$entry->{mailNickname}[0] because '" .
+ $AD_conn->getErrorString() . "'\n\n";
}
else {

    print "Created mailNickname:$entry->{mailNickname}[0]\n";
    }
   
   $entry = $AD_conn->nextEntry();

    } # End of while loop
  }

    [download]
    One thing I did notice though with this is if their is not a functional number then it just skips over that functional and doesn't create an account at all.
    I need it to still add functionals even though they don't have a functional number.
[reply]
[d/l]
      I got it working thank you again oeuftete
[reply]

In Section Seekers of Perl Wisdom