--- bin/ldap.pl	2008/03/12 23:14:13	5
+++ bin/ldap.pl	2008/03/13 13:12:46	7
@@ -7,6 +7,7 @@
 
 use Jifty;
 use Net::LDAP;
+use Data::Dump qw/dump/;
 
 BEGIN { Jifty->new; };
 
@@ -20,14 +21,35 @@
 	base   => "dc=skole,dc=hr",
 #	filter => "(&(sn=Barr) (o=Texas Instruments))",
 	filter => "(objectClass=hrEduPerson)",
-	sizelimit => 0, # off
+	sizelimit => 100, # off
 );
 
 if ( $mesg->code ) {
 	warn $mesg->code, ": ", $mesg->error, "\n";
 }
 
+warn "# found ", $mesg->count, " entries\n";
+
 foreach my $entry ( $mesg->entries ) {
+
 	$entry->dump;
+
+	my $data;
+	my $user = CAdmin::Model::User->new;
+
+	my @columns = map { $_->name } $user->columns;
+	#warn "# columns = ",dump( @columns );
+
+	foreach my $attr ( $entry->attributes ) {
+		if ( grep(/^\Q$attr\E$/, @columns ) ) {
+			$data->{$attr} = $entry->get_value( $attr );
+		} else {
+			warn "model ",ref($user)," doesn't have column $attr\n";
+		}
+	}
+
+	warn dump( $data );
+
+	$user->load_or_create( %$data );
 }