12 |
|
|
13 |
BEGIN { Jifty->new; }; |
BEGIN { Jifty->new; }; |
14 |
|
|
15 |
my $limit = 0; |
my $limit = 100; |
16 |
GetOptions( |
GetOptions( |
17 |
'limit=i', => \$limit, |
'limit=i', => \$limit, |
18 |
); |
); |
42 |
|
|
43 |
Jifty->log->info( "found ", $mesg->count, " entries" ); |
Jifty->log->info( "found ", $mesg->count, " entries" ); |
44 |
|
|
45 |
foreach my $entry ( $mesg->entries ) { |
#foreach my $entry ( $mesg->entries ) { |
46 |
|
while ( my $entry = $mesg->shift_entry ) { |
47 |
|
|
48 |
# $entry->dump; |
# $entry->dump; |
49 |
|
|
56 |
foreach my $attr ( $entry->attributes ) { |
foreach my $attr ( $entry->attributes ) { |
57 |
if ( grep(/^\Q$attr\E$/, @columns ) ) { |
if ( grep(/^\Q$attr\E$/, @columns ) ) { |
58 |
$data->{$attr} = $entry->get_value( $attr ); |
$data->{$attr} = $entry->get_value( $attr ); |
59 |
} else { |
} elsif ( $attr !~ m/^(objectClass)$/i ) { |
60 |
Jifty->log->error(ref($user)," doesn't have $attr"); |
Jifty->log->error(ref($user)," doesn't have $attr"); |
61 |
} |
} |
62 |
} |
} |
63 |
|
|
64 |
Jifty->log->debug( dump( $data ) ); |
Jifty->log->debug( dump( $data ) ); |
65 |
|
|
66 |
my ( $id, $message ) = $user->load_or_create( %$data ); |
# my ( $id, $message ) = $user->load_or_create( %$data ); |
67 |
|
my ( $id, $message ) = $user->create( %$data ); |
68 |
|
|
69 |
if ( $id ) { |
if ( $id ) { |
70 |
Jifty->log->info("added $id ", $data->{uid}); |
Jifty->log->info("added $id ", $data->{uid}); |