Листинг 8

Программа, переименовывающая и удаляющая объект

Code That Renames a User Object
use strict;
use Net::LDAP;
BEGIN COMMENT
# Customize for your environment.
# Настройте для вашей среды
END COMMENT
my $dc = ?dc1?;
my $user = ?administrator@mycorp.com?;
my $passwd = ?Adminpasswd?;
my $dn = «cn=jdoe, cn=users, dc=mycorp, dc=com»;
my $new_rdn = «cn=jsmith»;
BEGIN COMMENT
# Connect and authenticate.
# Соединение и авторизация 
END COMMENT
my $ldap = Net::LDAP->new($dc) or die «$@
»;
my $rc = $ldap->bind( $user, password => $passwd);
die $rc->error if $rc->code;
# BEGIN CALLOUT A
BEGIN COMMENT
# Rename jdoe to jsmith.
END COMMENT
$rc = $ldap->moddn($dn, newrdn => $new_rdn, deleteoldrdn => 1);
# END CALLOUT A
if ($rc->code) {
	print «Error renaming user: «, $rc->error, «
»;
}
else {
	print «Successfully renamed user
»;
}
$ldap->unbind;