#!/usr/bin/perl -w

my $name = shift @ARGV;
@results = `ldapsearch -x -w 'PASSWORD' -H ldaps://directory.upenn.edu:636 -b "ou=PennPeople,dc=upenn,dc=edu" -D "uid=USERNAME,ou=PennPeople,dc=upenn,dc=edu" "cn=*$name*" cn mail`;
print "Searching LDAP for $name...\n";

$curname = '';
$any = 0;

%names = ();

foreach $line (@results) {
    if ($line eq '') {
	$curname = '';
    } elsif ($line =~ /^cn: (.*)/) {
	$curname = $1;
	$curname = lc($curname);
	$curname =~ s/\b(.)/\u$1/g;
    } elsif ($line =~ /^mail: (.*)/) {
	$names{$curname} = $1;
	$any = 1;
    }
}

if (!$any) {
    exit 1;
} else {
    foreach $name (sort (keys %names)) {
	print "$names{$name}\t$name\n";
    }
}