moddn bug ??? - code list

[Rui M. <rmo...@wh...>]

Next is the code from the post "moddn bug ???":


#!/usr/local/bin/perl


use Net::LDAP qw(:all);                      # use for all code

use Net::LDAP::Util qw(ldap_error_name
                       ldap_error_text) ;    # use for Error handling

$ldap = Net::LDAP->new("ldapserver",debug => 3) or die "$@";

$mesg = $ldap->bind("cn=admin",
                     password => "admin5admin",
                     version => 3 );         # use for changes/edits

my $newRDN = "cn=xxx";
my $dn = "cn=vhost1,ou=teste,o=whatevernet,c=pt";

my $result = $ldap->moddn($dn,
                          newrdn => $newRDN,
                          deleteoldrdn => '1'
                          );

printf( "Code: %s, Error name: %s, Error text: %s\n", $result -> code,
            ldap_error_name( $result -> code ), ldap_error_text( $result
-> code ) );

$ldap -> unbind;



--
Rui Monteiro                WhatEverNet Computing, SA
rmo...@wh...    Praca de Alvalade, 6 - Piso 6
Phone: +351 21 7994200      1700 036 Lisboa - Portugal
Fax: +351 21 7994242        http://www.whatevernet.pt