blah.erl

 case can_send_to_conference(From, StateData) of
        true ->
            ?INFO_MSG("================PROCESS GROUPCHAT MES SAGE HELLO WORLD =============== ~p =====>", [Packet] ),

            case length(erlang:binary_to_list(xml:get_tag_cdata(xml:get_subtag(Packet, <<"subject">>)))) > 0 of
              true ->
                ?INFO_MSG("================ True =============== ~p =====>", []),
                ?INFO_MSG("================ True =============== ~p =====>", []),
                ?INFO_MSG("================ True =============== ~p =====>", []),
                ?INFO_MSG("================ True =============== ~p =====>", []);
              false ->
                ?INFO_MSG("================ False =============== ~p =====>", []),
                ?INFO_MSG("================ False =============== ~p =====>", []),
                ?INFO_MSG("================ False =============== ~p =====>", []),
                ?INFO_MSG("================ False =============== ~p =====>", []),
                ?INFO_MSG("================ False =============== ~p =====>", [])
            end,

            % Subject = xml:get_tag_cdata(xml:get_subtag(Packet, <<"subject">>)),

            % ?INFO_MSG("================SUBJECT is  =============== ~p =====>", [Subject]),
            Subject = erlang:binary_to_list(xml:get_tag_cdata(xml:get_subtag(Packet, <<"subject">>))),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~n",[]),
            io:fwrite("====>~p~n", [Subject]),



            ?INFO_MSG("================PROCESS GROUPCHAT MESSAGE HELLO WORLD =============== ~p =====>", [StateData]),
            ?INFO_MSG("================ SUBJECT =============== ~p =====>", [mod_muc:room_jid_to_subject(StateData#state.jid)]),

            io:fwrite("======================================================================> "),

            String = mod_muc:room_jid_to_subject(StateData#state.jid),
            String2 = erlang:binary_to_list(proplists:get_value(subject, element(2,String))),


            % Xmlcdata = xml:get_tag_cdata(xml:get_subtag(element(2,String), <<"body">>)),
            % ?INFO_MSG("================ SUBJECT ======BLHA========= ~p =====>", [Xmlcdata]),
            % subject = string:tokens(Xmlcdata, ","),

            io:fwrite("======================================================================> Here T = ~p", [erlang:binary_to_list(element(2,String)) ]),