#!/usr/bin/perl

# $Id: datasource_configure_ldap.pl,v 3.1 2004/01/10 02:49:58 lachoy Exp $

use strict;
use Data::Dumper qw( Dumper );
use Log::Log4perl;
Log::Log4perl::init( 'log4perl.conf' );

use SPOPS::Initialize;

# Assumes you have user entries in $LDAP_BASE_DN

my $LDAP_BASE_DN = 'ou=People,dc=yourcompany,dc=com';
{
    my $config = {
          user => {
             class          => 'My::User',
             isa            => [ 'SPOPS::LDAP' ],
             rules_from     => [ 'SPOPS::Tool::LDAP::Datasource' ],
             id_field       => 'uid',
             field          => [ qw/ cn sn givenname displayname mail
                                     telephonenumber objectclass uid ou / ],
             ldap_base_dn   => $LDAP_BASE_DN,
             multivalue     => [ qw/ objectclass / ],
          },
    };
    SPOPS::Initialize->process({ config => $config });
    my $iter = eval { My::User->fetch_iterator({ filter => "(givenname=*)" }) };
    if ( $@ ) {
        print "Error trying action [", $@->action, "]: $@\n",
              $@->trace->as_string;
        exit;
    }
    while ( my $user = $iter->get_next ) {
        print "User: ", $user->dn, "\n";
    }
}