/ucengine/src/controllers/meeting_controller.erl

%%
%%  U.C.Engine - Unified Collaboration Engine
%%  Copyright (C) 2011 af83
%%
%%  This program is free software: you can redistribute it and/or modify
%%  it under the terms of the GNU Affero General Public License as published by
%%  the Free Software Foundation, either version 3 of the License, or
%%  (at your option) any later version.
%%
%%  This program is distributed in the hope that it will be useful,
%%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%%  GNU Affero General Public License for more details.
%%
%%  You should have received a copy of the GNU Affero General Public License
%%  along with this program.  If not, see <http://www.gnu.org/licenses/>.
%%
-module(meeting_controller).

-export([init/0, add/4, list/4, get/4, update/4, leave/4, join/4, roster/4]).

-include("uce.hrl").

init() ->
    [#uce_route{method='POST',
                path=["meeting"],
                callback={?MODULE, add,
                          [{"uid", required, string},
                           {"sid", required, string},
                           {"name", required, string},
                           {"metadata", [], dictionary}]}},

     #uce_route{method='GET',
                path=["meeting"],
                callback={?MODULE, list,
                          [{"uid", required, string},
                           {"sid", required, string}]}},


     #uce_route{method='GET',
                path=["meeting", meeting],
                callback={?MODULE, get,
                          [{"uid", required, string},
                           {"sid", required, string}]}},

     #uce_route{method='PUT',
                path=["meeting", meeting],
                callback={?MODULE, update,
                          [{"uid", required, string},
                           {"sid", required, string},
                           {"metadata", [], dictionary}]}},

     #uce_route{method='POST',
                path=["meeting", meeting, "roster"],
                callback={?MODULE, join,
                          [{"uid", required, string},
                           {"sid", required, string},
                           {"metadata", [], dictionary}]}},

     #uce_route{method='DELETE',
                path=["meeting", meeting, "roster", uid],
                callback={?MODULE, leave,
                          [{"uid", required, string},
                           {"sid", required, string}]}},

     #uce_route{method='GET',
                path=["meeting", meeting, "roster"],
                callback={?MODULE, roster,
                          [{"uid", required, string},
                           {"sid", required, string}]}}].

add(Domain, [], [Uid, Sid, Name, Metadata], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, "", "meeting", "add"),
    {ok, created} = uce_meeting:add(Domain,
                                    #uce_meeting{id=Name,
                                                 metadata=json_helpers:to_struct(Metadata)}),
    {ok, _} = uce_event:add(Domain, #uce_event{id=none,
                                               from=Uid,
                                               location=Name,
                                               type="internal.meeting.add"}),
    json_helpers:created(Domain).

list(Domain, [], [Uid, Sid], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, "", "meeting", "list"),
    {ok, Meetings} = uce_meeting:list(Domain),
    json_helpers:json(Domain, Meetings).

get(Domain, [{meeting, Name}], [Uid, Sid], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, "", "meeting", "get"),
    {ok, Meeting} = uce_meeting:get(Domain, Name),
    json_helpers:json(Domain, Meeting).

update(Domain, [{meeting, Name}], [Uid, Sid, Metadata], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, Name, "meeting", "update"),
    {ok, Meeting} = uce_meeting:get(Domain, Name),
    {ok, updated} = uce_meeting:update(Domain,
                                       #uce_meeting{id=Name,
                                                    roster=Meeting#uce_meeting.roster,
                                                    metadata=json_helpers:to_struct(Metadata)}),
    {ok, _} = uce_event:add(Domain, #uce_event{id=none,
                                               from=Uid,
                                               location=Name,
                                               type="internal.meeting.update"}),
    json_helpers:ok(Domain).

join(Domain, [{meeting, Name}], [Uid, Sid, Metadata], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, Name, "roster", "add"),
    {ok, updated} = uce_meeting:join(Domain, Name, Uid),
    uce_presence:join(Domain, Sid, Name),
    {ok, _} = uce_event:add(Domain,
                            #uce_event{id=none,
                                       type="internal.roster.add",
                                       location=Name,
                                       from=Uid,
                                       metadata=json_helpers:to_struct(Metadata)}),
    json_helpers:ok(Domain).

%% TODO : Incomplete Sid must be ToSid
leave(Domain, [{meeting, Name}, {uid, User}], [Uid, Sid], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, Name, "roster", "delete"),
    {ok, updated} = uce_meeting:leave(Domain, Name, User),
    uce_presence:leave(Domain, Sid, Name),
    {ok, _} = uce_event:add(Domain,
                            #uce_event{id=none,
                                       type="internal.roster.delete",
                                       location=Name,
                                       from=User}),
    json_helpers:ok(Domain).

roster(Domain, [{meeting, Name}], [Uid, Sid], _) ->
    {ok, true} = uce_presence:assert(Domain, Uid, Sid),
    {ok, true} = uce_access:assert(Domain, Uid, Name, "roster", "list"),
    {ok, Roster} = uce_meeting:roster(Domain, Name),
    json_helpers:json(Domain, lists:map(fun(Member) ->
                                                {ok, User} = uce_user:get(Domain, Member),
                                                User
                                        end,
                                        Roster)).