A3C/bin/import-ldap.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';

use Jifty;
use A3C::LDAP;
use Data::Dump qw/dump/;
use Getopt::Long;

BEGIN { Jifty->new; };

my $limit = 100;
GetOptions(
        'limit=i', => \$limit,
);

# perform a search
my $mesg = A3C::LDAP->search(
        base   => "dc=skole,dc=hr",
#       filter => "(&(sn=Barr) (o=Texas Instruments))",
        filter => "(objectClass=hrEduPerson)",
        sizelimit => $limit, # 0 = off
);

if ( $mesg->code ) {
        Jifty->log->error( $mesg->code, ": ", $mesg->error );
}

Jifty->log->info( "found ", $mesg->count, " entries" );

sub ldap2model {
        my ( $model, $entry, $additional ) = @_;
        my $data;

        my @columns = map { $_->name } $model->columns;
        #warn "# columns = ",dump( @columns );

        foreach my $attr ( $entry->attributes ) {
                if ( grep(/^\Q$attr\E$/, @columns ) ) {
                        $data->{$attr} = $entry->get_value( $attr );
#               } elsif ( $attr !~ m/^(objectClass)$/i ) {
#                       Jifty->log->error(ref($model)," doesn't have $attr");
                }
        }

        Jifty->log->debug( ref($model), ' = ', dump( $data ) );

        my ( $id, $message ) = $model->load_or_create( %$data, %$additional );

        if ( $id ) {
                Jifty->log->info( $message || 'Added', ' ', ref($model), ' ', $model->id );
        } else {
                Jifty->log->error( ref($model), " ", $message );
        }
}

#foreach my $entry ( $mesg->entries ) {
while ( my $entry = $mesg->shift_entry ) {

#       $entry->dump;

        my $organization = A3C::Model::Organization->new;
        ldap2model( $organization, $entry );

        my $user = A3C::Model::User->new;
        ldap2model( $user, $entry, { organization => $organization } );

}

1	dpavlin	5	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use lib 'lib';
7
8			use Jifty;
9	dpavlin	36	use A3C::LDAP;
10	dpavlin	7	use Data::Dump qw/dump/;
11	dpavlin	22	use Getopt::Long;
12	dpavlin	5
13			BEGIN { Jifty->new; };
14
15	dpavlin	30	my $limit = 100;
16	dpavlin	22	GetOptions(
17			'limit=i', => \$limit,
18			);
19
20	dpavlin	5	# perform a search
21	dpavlin	36	my $mesg = A3C::LDAP->search(
22	dpavlin	5	base => "dc=skole,dc=hr",
23			# filter => "(&(sn=Barr) (o=Texas Instruments))",
24			filter => "(objectClass=hrEduPerson)",
25	dpavlin	22	sizelimit => $limit, # 0 = off
26	dpavlin	5	);
27
28			if ( $mesg->code ) {
29	dpavlin	22	Jifty->log->error( $mesg->code, ": ", $mesg->error );
30	dpavlin	5	}
31
32	dpavlin	9	Jifty->log->info( "found ", $mesg->count, " entries" );
33	dpavlin	7
34	dpavlin	32	sub ldap2model {
35			my ( $model, $entry, $additional ) = @_;
36	dpavlin	7	my $data;
37
38	dpavlin	32	my @columns = map { $_->name } $model->columns;
39	dpavlin	7	#warn "# columns = ",dump( @columns );
40
41			foreach my $attr ( $entry->attributes ) {
42			if ( grep(/^\Q$attr\E$/, @columns ) ) {
43			$data->{$attr} = $entry->get_value( $attr );
44	dpavlin	32	# } elsif ( $attr !~ m/^(objectClass)$/i ) {
45			# Jifty->log->error(ref($model)," doesn't have $attr");
46	dpavlin	7	}
47			}
48
49	dpavlin	32	Jifty->log->debug( ref($model), ' = ', dump( $data ) );
50	dpavlin	7
51	dpavlin	32	my ( $id, $message ) = $model->load_or_create( %$data, %$additional );
52	dpavlin	17
53	dpavlin	22	if ( $id ) {
54	dpavlin	34	Jifty->log->info( $message \|\| 'Added', ' ', ref($model), ' ', $model->id );
55	dpavlin	22	} else {
56	dpavlin	32	Jifty->log->error( ref($model), " ", $message );
57	dpavlin	22	}
58	dpavlin	5	}
59
60	dpavlin	32	#foreach my $entry ( $mesg->entries ) {
61			while ( my $entry = $mesg->shift_entry ) {
62
63			# $entry->dump;
64
65			my $organization = A3C::Model::Organization->new;
66			ldap2model( $organization, $entry );
67
68			my $user = A3C::Model::User->new;
69			ldap2model( $user, $entry, { organization => $organization } );
70
71			}
72