--- bin/ldap.pl	2008/03/17 13:06:40	25
+++ bin/ldap.pl	2008/03/18 16:43:14	30
@@ -12,7 +12,7 @@
 
 BEGIN { Jifty->new; };
 
-my $limit = 0;
+my $limit = 100;
 GetOptions(
 	'limit=i', => \$limit,
 );
@@ -42,7 +42,8 @@
 
 Jifty->log->info( "found ", $mesg->count, " entries" );
 
-foreach my $entry ( $mesg->entries ) {
+#foreach my $entry ( $mesg->entries ) {
+while ( my $entry = $mesg->shift_entry ) {
 
 #	$entry->dump;
 
@@ -62,7 +63,8 @@
 
 	Jifty->log->debug( dump( $data ) );
 
-	my ( $id, $message ) = $user->load_or_create( %$data );
+#	my ( $id, $message ) = $user->load_or_create( %$data );
+	my ( $id, $message ) = $user->create( %$data );
 
 	if ( $id ) {
 		Jifty->log->info("added $id ", $data->{uid});