--- bin/ldap.pl 2008/03/13 13:49:41 8 +++ bin/ldap.pl 2008/03/13 14:00:40 9 @@ -11,7 +11,8 @@ BEGIN { Jifty->new; }; -#warn "# config->app(LDAP) = ",dump( Jifty->config->app('LDAP') ); +my $ldap_config = Jifty->config->app('LDAP'); +Jifty->log->debug( "config->app(LDAP) = ",dump( $ldap_config ) ); my $ldap = Net::LDAP->new( Jifty->config->app('LDAP')->{Server} ) or die "$@"; @@ -34,7 +35,7 @@ warn $mesg->code, ": ", $mesg->error, "\n"; } -warn "# found ", $mesg->count, " entries\n"; +Jifty->log->info( "found ", $mesg->count, " entries" ); foreach my $entry ( $mesg->entries ) { @@ -54,7 +55,7 @@ } } - warn dump( $data ); + Jifty->log->debug( dump( $data ) ); $user->load_or_create( %$data ); }