Листинг 7.

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

Code That Changes a User ObjectA?s Attributes
use strict;
use Net::LDAP;
# Настройте для вашего окружения
my $dc = ?dc1?;
my $user = ?administrator@mycorp.com?;
my $passwd = ?Adminpasswd?;
my $dn = «cn=jdoe, cn=users, dc=mycorp, dc=com»;
# Connect and authenticate. 
# Соединение и авторизация.
my $ldap = Net::LDAP->new($dc) or die «$@
»;
my $rc = $ldap->bind( $user, password => $passwd);
die $rc->error if $rc->code;
# Modify several attributes.
# Изменение нескольких атрибутов
print «Setting givenname, sn and mail...
»;
$rc = $ldap->modify($dn, 
	changes => [
		add => [ givenname => «Johnny» ], 
		add => [ sn => «Doh»], 
		add => [ mail => ?jdoe@mycorp.com?], 
	]);
die $rc->error if $rc->code;
print «Changing givenname to John...
»;
$rc = $ldap->modify($dn, 
	replace => { givenname => «John» });
die $rc->error if $rc->code;
print «Deleting the mail attribute...
»;
$rc = $ldap->modify($dn, 
	delete => [ ?mail? ]);
die $rc->error if $rc->code;
print «Setting the telephoneNumber and sn...
»;
$rc = $ldap->modify($dn, 
	changes => [
		add => [ telephoneNumber => ?555-123-4567?], 
		replace => [ sn => ?Doe?], 
	]);
die $rc->error if $rc->code;
print «
Modifications successful
»;
$ldap->unbind;