#!/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