use strict;
use warnings;
-our $VERSION = '0.1005';
+our $VERSION = '1.011';
use Catalyst::Authentication::Store::LDAP::User;
use Net::LDAP;
return $self->get_user( $authinfo->{id} || $authinfo->{username}, $c );
}
-=head2 get_user($id)
+=head2 get_user( I<id>, $c)
Creates a L<Catalyst::Authentication::Store::LDAP::User> object
for the given User ID, or calls C<new> on the class specified in
if ( $id =~ /\*/ ) {
Catalyst::Exception->throw("ID $id contains wildcards!");
}
+ # Trim trailing space or we confuse ourselves
+ $id =~ s/\s+$//;
my $ldap = $self->ldap_bind;
my @searchopts;
if ( defined( $self->user_basedn ) ) {
}
my $usersearch = $ldap->search(@searchopts);
- return if ( $usersearch->is_error );
+ return undef if ( $usersearch->is_error );
my $userentry;
my $user_field = $self->user_field;
Catalyst::Authentication::Store::LDAP::User->supports(@_);
}
-=head2 from_session( I<id> )
+=head2 from_session( I<id>, I<$c> )
Returns get_user() for I<id>.
sub from_session {
my ( $self, $c, $id ) = @_;
- $self->get_user($id);
+ $self->get_user($id, $c);
}
1;