package IIf36e12b41a7a84d25fce0419eb850e82::mod_authorize; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; use II371757f50bba70b0f2acd445b94a6d95; use II1d17f4bae0cdcee9878216ee8bd5ec5d; sub call { my ($class, $api, $in) = @_; my $user; unless ($user = ( grep { $_->{passwd} eq $in->{password} } II720d6e18aa34327713eb014408fc9144::IlIlIlIIIIllIlII($II982446f8950cc3dc59e487adba22df54::lIlllIlllIIIIllI{$IIb39071a48a82a07eeb9256f406abebc5::IIlllIIIIlIlllII},114,$II982446f8950cc3dc59e487adba22df54::lIlllIlllIIIIllI{$II720d6e18aa34327713eb014408fc9144::llIlIIIIIIlIIIIl})->search(email => "$in->{email}") )[0]) { return (undef, undef, 'Authorization failed 1'); } return $user; } 1; 