PageRenderTime 534ms CodeModel.GetById 160ms app.highlight 3ms RepoModel.GetById 184ms app.codeStats 85ms

/ucengine/src/backends/auth/password/password_auth.erl

http://github.com/AF83/ucengine
Erlang | 38 lines | 17 code | 4 blank | 17 comment | 0 complexity | 7a4445307b0812ccf73f3f3ad75f325a MD5 | raw file
 1%%
 2%%  U.C.Engine - Unified Collaboration Engine
 3%%  Copyright (C) 2011 af83
 4%%
 5%%  This program is free software: you can redistribute it and/or modify
 6%%  it under the terms of the GNU Affero General Public License as published by
 7%%  the Free Software Foundation, either version 3 of the License, or
 8%%  (at your option) any later version.
 9%%
10%%  This program is distributed in the hope that it will be useful,
11%%  but WITHOUT ANY WARRANTY; without even the implied warranty of
12%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13%%  GNU Affero General Public License for more details.
14%%
15%%  You should have received a copy of the GNU Affero General Public License
16%%  along with this program.  If not, see <http://www.gnu.org/licenses/>.
17%%
18-module(password_auth).
19
20-include("uce.hrl").
21
22-export([assert/2, check/2]).
23
24assert(User, Credential) ->
25    case check(User, Credential) of
26        {ok, true} ->
27            {ok, true};
28        {ok, false} ->
29            throw({error, bad_credentials})
30    end.
31
32check(User, Credential) ->
33    case User#uce_user.credential of
34        Credential ->
35            {ok, true};
36        _ ->
37            {ok, false}
38    end.