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,
);

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

foreach my $model ( qw/Organization User/ ) {
        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 = 100;
16	GetOptions(
17	'limit=i', => \$limit,
18	);
19
20	my $ldap = A3C::LDAP->new;
21
22	foreach my $model ( qw/Organization User/ ) {
23	my $collection = $ldap->collection( $model, $limit );
24	Jifty->log->info( "found ", $collection->count, " entries for $model" );
25	}
26