102 lines
3.1 KiB
Erlang
102 lines
3.1 KiB
Erlang
-module(logic_calendar).
|
||
-include("records.hrl").
|
||
|
||
-export([create_calendar/3, create_calendar/4, get_calendar/2, list_calendars/1,
|
||
update_calendar/3, delete_calendar/2]).
|
||
-export([can_access/2, can_edit/2]).
|
||
|
||
%% Создание календаря с политикой по умолчанию (manual)
|
||
create_calendar(UserId, Title, Description) ->
|
||
create_calendar(UserId, Title, Description, manual).
|
||
|
||
%% Создание календаря с указанной политикой подтверждения
|
||
create_calendar(UserId, Title, Description, Confirmation) ->
|
||
case core_user:get_by_id(UserId) of
|
||
{ok, User} ->
|
||
case User#user.status of
|
||
active ->
|
||
core_calendar:create(UserId, Title, Description, Confirmation);
|
||
_ ->
|
||
{error, user_inactive}
|
||
end;
|
||
{error, _} ->
|
||
{error, user_not_found}
|
||
end.
|
||
|
||
%% Получение календаря с проверкой доступа
|
||
get_calendar(UserId, CalendarId) ->
|
||
case core_calendar:get_by_id(CalendarId) of
|
||
{ok, Calendar} ->
|
||
case can_access(UserId, Calendar) of
|
||
true -> {ok, Calendar};
|
||
false -> {error, access_denied}
|
||
end;
|
||
Error ->
|
||
Error
|
||
end.
|
||
|
||
%% Список календарей пользователя
|
||
list_calendars(UserId) ->
|
||
core_calendar:list_by_owner(UserId).
|
||
|
||
%% Обновление календаря
|
||
update_calendar(UserId, CalendarId, Updates) ->
|
||
case core_calendar:get_by_id(CalendarId) of
|
||
{ok, Calendar} ->
|
||
case can_edit(UserId, Calendar) of
|
||
true ->
|
||
ValidUpdates = validate_updates(Updates),
|
||
core_calendar:update(CalendarId, ValidUpdates);
|
||
false ->
|
||
{error, access_denied}
|
||
end;
|
||
Error ->
|
||
Error
|
||
end.
|
||
|
||
%% Удаление календаря
|
||
delete_calendar(UserId, CalendarId) ->
|
||
case core_calendar:get_by_id(CalendarId) of
|
||
{ok, Calendar} ->
|
||
case can_edit(UserId, Calendar) of
|
||
true ->
|
||
core_calendar:delete(CalendarId);
|
||
false ->
|
||
{error, access_denied}
|
||
end;
|
||
Error ->
|
||
Error
|
||
end.
|
||
|
||
%% Проверка прав доступа (просмотр)
|
||
can_access(UserId, #calendar{owner_id = UserId, status = active}) ->
|
||
true;
|
||
can_access(_UserId, #calendar{type = commercial, status = active}) ->
|
||
true;
|
||
can_access(_UserId, _) ->
|
||
false.
|
||
|
||
%% Проверка прав редактирования
|
||
can_edit(UserId, #calendar{owner_id = UserId, status = active}) ->
|
||
true;
|
||
can_edit(_UserId, #calendar{owner_id = _OwnerId}) ->
|
||
false;
|
||
can_edit(_, _) ->
|
||
false.
|
||
|
||
%% Валидация полей обновления
|
||
validate_updates(Updates) ->
|
||
lists:filter(fun validate_update/1, Updates).
|
||
|
||
validate_update({title, Value}) when is_binary(Value) -> true;
|
||
validate_update({description, Value}) when is_binary(Value) -> true;
|
||
validate_update({tags, Value}) when is_list(Value) -> true;
|
||
validate_update({type, Value}) when Value =:= personal; Value =:= commercial -> true;
|
||
validate_update({confirmation, Value}) ->
|
||
case Value of
|
||
auto -> true;
|
||
manual -> true;
|
||
{timeout, N} when is_integer(N), N > 0 -> true;
|
||
_ -> false
|
||
end;
|
||
validate_update(_) -> false. |