Листинг 5

Программа, добавляющая объект Contact

# Code That Adds a Contact Object
use strict;
use Net::LDAP;
# BEGIN CALLOUT A
BEGIN COMMENT
# Customize for your environment.
# Настройте для вашего окружения.
END COMMENT
my $dc = ?dc1?;
my $user = ?administrator@mycorp.com?;
my $passwd = ?Adminpasswd?;
my $parent_dn = «cn=users, dc=mycorp, dc=com»;
# END CALLOUT A
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 B
BEGIN COMMENT
# Add the John Doe contact object.
# Добавление объекта contact John Doe.
END COMMENT
$rc = $ldap->add( «cn=mycontact, $parent_dn», 
	attrs => [
		objectclass => ?contact?, 
		displayName => ?John Doe?, 
		sn => ?Doe?, 
		givenName => ?John?, 
		telephoneNumber => ?555-123-4567?, 
	]);
# END CALLOUT B
if ($rc->code) {
	print «Add failed: «, $rc->error, «
»;
}
else {
	print «Add successful
»;
}
$ldap->unbind;