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' );