-module(client).
-compile(export_all).

request(Pid,Content) ->
        All = loop(Content,[]),
        Pid ! {ok, All}.

loop([],CompleteText) ->
        CompleteText;

loop([Current|Data],CompleteText) ->
        RefId = make_ref(),
        case element(1,Current) of
                text ->
                        CompleteText2 = CompleteText++[Current],
                        loop(Data,CompleteText2);
                img ->
                        webserver ! {self(),RefId,element(1,Current),element(2,Current)},
                        receive
                                {ok,_RefId2,NewData} ->
                                        CompleteText2 = CompleteText++[{img, NewData}],
                                        loop(Data,CompleteText2)
                        end;
                dbquery ->
                        webserver ! {self(),RefId,element(1,Current),element(2,Current)},
                        receive
                                {ok,_RefId2,NewData} ->
                                        NewCompleteText = loop(element(2,NewData),CompleteText),
                                        loop(Data,NewCompleteText)
                        end;
                doc ->
                        webserver ! {self(),RefId,element(1,Current),element(2,Current)},
                        receive
                                {ok,_RefId2,NewData} ->
                                        NewCompleteText = loop(element(2,NewData),CompleteText),
                                        loop(Data,NewCompleteText)
                        end;
                _ ->
                        {error, got_something_unexpected}
        end. %This is end of casE