Revision 682

Date:
2018/05/26 20:18:53
Author:
ahitrov
Revision Log:
confirm patch

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/plugins/users/lib/users/Keeper.pm

     
    87 87 my %opts = @_;
    88 88
    89 89 return if !($opts{login} || $opts{email}) && !$opts{md5};
    90 my $class = $self->state->profile_document_class;
    91 my $res = $keeper->get_documents (
    92 class => $class,
    90 my $res = $self->get_profile (
    93 91 $opts{login} ? (login => $opts{login}) : (),
    94 92 $opts{email} ? (email => lc($opts{email})) : (),
    95 return_mode => 'array_ref',
    96 93 );
    97 $res = ref $res eq 'ARRAY' && scalar @$res ? $res->[0] : undef;
    98 94 return unless ref $res;
    99 95 warn "MD5 = ".$opts{md5}."; user MD5 = ".$res->passwd."\n" if $DEBUG;
    100 96 if ($res->passwd eq $opts{md5} ) {
    … …  
    104 100 $res->status(1);
    105 101 $res->store;
    106 102 return $res;
    107 }else{
    103 } else {
    108 104 return;
    109 105 }
    110 106