#!/usr/bin/perl -w
#######
#
# Sample perl script to search the ldap server on bob
# for someone's email address.
#
#####
use Net::LDAP;
use strict;

my $host = "bob.marlboro.edu";
my $ldap = Net::LDAP->new($host, version=>3) or die "LDAP->new failed: $@";
$ldap->bind();	# This server has read access for all; no authentication needed

my $name='';

# Look for all people whose name contains "Jim"
my $result = $ldap->search( base => 'dc=marlboro,dc=edu',
			    scope  => 'sub',
			    filter => "&(objectclass=inetOrgPerson)(cn=*$name*)",
		       );
warn("problem: " . $result->error . "\n") if $result->code;

# Print all the results found.
my @entries = $result->entries;
print "Folks in the database:\n";
foreach my $entry (@entries) {
  my @names =  $entry->get_value('cn');
  my @emails = $entry->get_value('mail');
  print " " . $names[0]  . " <" . $emails[0] .  ">\n";
}