Vasundhar wrote:


On 4/24/07, *Rudy Gevaert* <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>> wrote:

    Hi,

    I'm trying to change the dn of an ldap entry:

    my $result = $ldaps->search( base   => "${base}",
                                 filter => "(umMailUid=${old_mailUid})",


    my $entry = $result->pop_entry;
    $entry->changetype('modrdn');
    $entry->add(newrdn => "umMailUid=${new_mailUid}");
    $result = $entry->update($ldaps);

    But I get this error:
    [Ldap] No DN specified

    I couldn't find any examples of changing the (r)dn with the changetype
    fuction.

Is your search successful ?

yes. If I dump with Dumper the output that is in the attachment.

Thanks in advance,




--
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Rudy Gevaert          [EMAIL PROTECTED]          tel:+32 9 264 4734
Directie ICT, afd. Infrastructuur ICT Department, Infrastructure office
Groep Systemen                    Systems group
Universiteit Gent                 Ghent University
Krijgslaan 281, gebouw S9, 9000 Gent, Belgie               www.UGent.be
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
result of search:

$VAR1 = bless( {
                 'changes' => [],
                 'changetype' => 'modify',
                 'asn' => {
                            'objectName' => '[EMAIL 
PROTECTED],umDomain=dict.ugent.be,ou=mail',
                            'attributes' => [
                                              {
                                                'type' => 'objectClass',
                                                'vals' => [
                                                            'umCyrusMailBox',
                                                            
'simpleSecurityObject'
                                                          ]
                                              },
                                              {
                                                'type' => 'umDomain',
                                                'vals' => [
                                                            'dict.ugent.be'
                                                          ]
                                              },
                                              {
                                                'type' => 'umMailboxStatus',
                                                'vals' => [
                                                            'enabled'
                                                          ]
                                              },
                                              {
                                                'type' => 'umMailObjectStatus',
                                                'vals' => [
                                                            'enabled'
                                                          ]
                                              },
                                              {
                                                'type' => 'umMailHost',
                                                'vals' => [
                                                            'mail1.ugent.be'
                                                          ]
                                              },
                                              {
                                                'type' => 'umCyrusStatus',
                                                'vals' => [
                                                            'enabled'
                                                          ]
                                              },
                                              {
                                                'type' => 'umMailUid',
                                                'vals' => [
                                                            '[EMAIL PROTECTED]'
                                                          ]
                                              },
                                              {
                                                'type' => 'umLogin',
                                                'vals' => [
                                                            '[EMAIL PROTECTED]',
                                                            'hlpdsk1'
                                                          ]
                                              },
                                              {
                                                'type' => 'userPassword',
                                                'vals' => [
                                                            '{crypt}bliepbliep'
                                                          ]
                                              },
                                              {
                                                'type' => 'umTransport',
                                                'vals' => [
                                                            
'mail1:mail1.ugent.be'
                                                          ]
                                              }
                                            ]
                          }
               }, 'Net::LDAP::Entry' );

Just before update:
$VAR1 = bless( {
                 'attrs' => {
                              'objectclass' => [
                                                 'umCyrusMailBox',
                                                 'simpleSecurityObject'
                                               ],
                              'umlogin' => [
                                             '[EMAIL PROTECTED]',
                                             'hlpdsk1'
                                           ],
                              'userpassword' => [
                                                  '{crypt}bliepbliep'
                                                ],
                              'umcyrusstatus' => [
                                                   'enabled'
                                                 ],
                              'umtransport' => [
                                                 'mail1:mail1.ugent.be'
                                               ],
                              'umdomain' => [
                                              'dict.ugent.be'
                                            ],
                              'ummailboxstatus' => [
                                                     'enabled'
                                                   ],
                              'ummailuid' => [
                                               '[EMAIL PROTECTED]'
                                             ],
                              'ummailobjectstatus' => [
                                                        'enabled'
                                                      ],
                              'ummailhost' => [
                                                'mail1.ugent.be'
                                              ],
                              'newrdn' => [
                                            '[EMAIL PROTECTED]'
                                          ]
                            },
                 'changes' => [],
                 'changetype' => 'modrdn',
                 'asn' => {
                            'objectName' => '[EMAIL 
PROTECTED],umDomain=dict.ugent.be,ou=mail',
                            'attributes' => [
                                              {
                                                'type' => 'objectClass',
                                                'vals' => 
$VAR1->{'attrs'}{'objectclass'}
                                              },
                                              {
                                                'type' => 'umDomain',
                                                'vals' => 
$VAR1->{'attrs'}{'umdomain'}
                                              },
                                              {
                                                'type' => 'umMailboxStatus',
                                                'vals' => 
$VAR1->{'attrs'}{'ummailboxstatus'}
                                              },
                                              {
                                                'type' => 'umMailObjectStatus',
                                                'vals' => 
$VAR1->{'attrs'}{'ummailobjectstatus'}
                                              },
                                              {
                                                'type' => 'umMailHost',
                                                'vals' => 
$VAR1->{'attrs'}{'ummailhost'}
                                              },
                                              {
                                                'type' => 'umCyrusStatus',
                                                'vals' => 
$VAR1->{'attrs'}{'umcyrusstatus'}
                                              },
                                              {
                                                'type' => 'umMailUid',
                                                'vals' => 
$VAR1->{'attrs'}{'ummailuid'}
                                              },
                                              {
                                                'type' => 'umLogin',
                                                'vals' => 
$VAR1->{'attrs'}{'umlogin'}
                                              },
                                              {
                                                'type' => 'userPassword',
                                                'vals' => 
$VAR1->{'attrs'}{'userpassword'}
                                              },
                                              {
                                                'type' => 'umTransport',
                                                'vals' => 
$VAR1->{'attrs'}{'umtransport'}
                                              },
                                              {
                                                'type' => 'newrdn',
                                                'vals' => 
$VAR1->{'attrs'}{'newrdn'}
                                              }
                                            ]
                          }
               }, 'Net::LDAP::Entry' );

Reply via email to