ZDO Corporation

Most mail programs, and services like GMail and Yahoo Mail accepts CSV files for importing external address books. If your company is using an LDAP server to store the corporate address book, you can use this small PERL program to export address book records from your company's LDAP server into a CSV file for importing it to a mail program.

#!/usr/bin/perl
#
# Copyright (c) 2004
#      Ali Onur Cinar &060;cinar&064;zdo.com&062;
#
# License:
#
#   Permission  to  use,  copy, modify, and  distribute  this software and its
#   documentation for  non-commercial  purposes  and  without  fee  is  hereby
#   granted,  provided  that the  above  copyright notice appear in all copies
#   and  that both  the  copyright  notice  and  this  permission  notice  and
#   warranty  disclaimer appear in supporting documentation, and that the name
#   of Ali Onur Cinar not be  used  in  advertising or publicity pertaining to
#   distribution of the software without specific, written prior permission.
#
# @author  A. Onur Cinar <cinar(a)zdo.com>
# @version $Id: ldap2csv.pl,v 1.1 2004/12/07 15:12:38 cinar Exp $
#

use Net::LDAP;

@fields =                                             # fields to export
(
#  Label         Field Name        Index
  ['First Name', 'givenName'      , 0],
  ['Last Name' , 'sn'             , 0],
  ['Title'     , 'title'          , 0],
  ['Email'     , 'mail'           , 0],
  ['Email 2'   , 'mail'           , 1],
  ['Phone'     , 'telephoneNumber', 0],
  ['Phone'     , 'telephoneNumber', 1],
  ['Phone'     , 'telephoneNumber', 2],
  ['Phone'     , 'telephoneNumber', 3],
  ['Phone'     , 'telephoneNumber', 4],
  ['Mobile'    , 'mobile'         , 0],
  ['Birthday'  , 'birthday'       , 0],
  ['Address'   , 'street'         , 0],
  ['Address'   , 'street'         , 1],
  ['Address'   , 'street'         , 2],
);

$ldap = Net::LDAP->new('localhost') or die "$@";      # open connection
$mesg = $ldap->bind(                                  # login
  "cn=cinar,dc=zdo", password => "");

$mesg = $ldap->search(                                # search
 base => "dc=zdo",
 filter => "(objectClass=inetOrgPerson)"
);

sub get                                               # get field value
{
  return $_[0]->exists($_[1])
    ? $_[0]->get($_[1])->[$_[2] ? $_[2] : 0]
    : '';
}

print '"'.(join '","', "Organization",                # header
  map {$_->[0]} @fields)."\"\n";

foreach $entry ($mesg->all_entries)                   # for each entry
{
  @dn = map {s/[a-z]+=//gi; $_ = ucfirst}             # organization
     reverse split /,/, $entry->dn;
  shift @dn;
  pop @dn;

  print '"'.(join '","', "@dn",                       # row
    map {get $entry, $_->[1], $_->[2]} @fields)."\"\n";
}

$mesg = $ldap->unbind;                                # close connection