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 = 0;
my @models;
GetOptions(
        'limit=i', => \$limit,
        'model=s', => \@models,
);

@models = ( 'Organization' ) unless @models;

my $ldap = A3C::LDAP->new;

Jifty->log->info( 'syncing: ', join(',', @models) );

foreach my $model ( @models ) {
        my $collection = $ldap->collection( $model, $limit );
        Jifty->log->info( "found ", $collection->count, " entries for $model" );
}

1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use lib 'lib';
7
8	use Jifty;
9	use A3C::LDAP;
10	use Data::Dump qw/dump/;
11	use Getopt::Long;
12
13	BEGIN { Jifty->new; };
14
15	my $limit = 0;
16	my @models;
17	GetOptions(
18	'limit=i', => \$limit,
19	'model=s', => \@models,
20	);
21
22	@models = ( 'Organization' ) unless @models;
23
24	my $ldap = A3C::LDAP->new;
25
26	Jifty->log->info( 'syncing: ', join(',', @models) );
27
28	foreach my $model ( @models ) {
29	my $collection = $ldap->collection( $model, $limit );
30	Jifty->log->info( "found ", $collection->count, " entries for $model" );
31	}
32