[Openinteract-commits] CVS: SPOPS/eg ldap_multidatasource.pl,NONE,1.1

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/SPOPS/eg
In directory usw-pr-cvs1:/tmp/cvs-serv28521/eg

Added Files:
	ldap_multidatasource.pl 
Log Message:
added example of SPOPS::LDAP::MultiDatasource, including a simple object and connection manager


--- NEW FILE: ldap_multidatasource.pl ---
#!/usr/bin/perl

# $Id: ldap_multidatasource.pl,v 1.1 2001/10/23 14:25:31 lachoy Exp $

# ldap_multidatasource.pl
#   This is an example of how you can setup multiple datasources. You
#   will need to change the connection configuration information
#   located in eg/My/LDAPConnect.pm

use strict;
use SPOPS::Initialize;

{
    my $config = {
        user => {
          datasource   => [ 'main', 'remote' ],
          class        => 'My::LDAPUser',
          isa          => [ 'My::LDAPConnect', 'SPOPS::LDAP::MultiDatasource' ],
          field        => [ qw/ cn sn givenname displayname mail
                                telephonenumber objectclass uid ou / ],
          ldap_base_dn => 'ou=People',
          multivalue   => [ 'objectclass' ],
          id_field     => 'uid',
        },
    };

    SPOPS::Initialize->process({ config => $config });

    my $user_list = My::LDAPUser->fetch_group_all({ filter => 'givenname=User' });
    foreach my $user ( @{ $user_list } ) {
        print "I am ", $user->dn, " and I came from $user->{_datasource}\n";
    }
}