[erlang-questions] Please help with MediaDescriptor using Erlang MEGACO

[Maxim Treskin]

Hello

You can use megaco:encode_sdp/1 and megaco:decode_sdp/1.
Also, you cannot use such symbols, as 0x00 (Nul), 0x0a (ASCII newline)
and 0x0d (ASCII carriage return) in SDP, according to rfc2327 (Session
Description Protocol)

---
Maxim Treskin

On 24/04/2008, Ludmila Neitman <lneitman@REDACTED> wrote:
> Hi,
>
> I would like to use Erlang MEGACO stack for the MG emulation in our
> testing environment.
> I've been playing with it for about 2 weeks and can compose simple
> messages and send them between MGC and MG (I am using simple example
> provided within the megaco library as a framework). The version I am
> working with is OTP-R12B-2, megaco-3.7.4.
>
> However, I am stuck with the composing a MediaDescriptor within an
> AddReq. It looks like there is a problem with _decompose_StreamParms_
> function clause.
> Could you please point to what is wrong with the following code:
>
> add_req((ConnHandle, Version) ->
>
> TermID = {megaco_term_id, false, [[$r, $1], [$1, $0,  $1], [$1]]},
>
> PPV = #'PropertyParm'{name= "v",  value = [["0\r\r"]]},
> PPC = #'PropertyParm'{name= "c",  value = ["IN\s\tIP4\s\t10.70.80.50\r\n"]},
> PPM = #'PropertyParm'{name= "m", value=
> ["audio\s\t4444\s\tRTP\/AVP\s\t0\r\n"]},
>
> PropertyParmGroup = [PPV, PPC, PPM],
> RemoteDesc = #'LocalRemoteDescriptor'{propGrps = [PropertyParmGroup]},
>
> StreamParms = #'StreamParms'{remoteDescriptor=RemoteDesc},
>
> MediaDesc = #'MediaDescriptor'{streams={oneStream,SP1}},
>
> AMMR = #'AmmRequest'{terminationID = [TermID],
>                                           descriptors =
> [{mediaDescriptor, MediaDesc},
>
> {eventsDescriptor, EventsDesc}]},
> CR = #'CommandRequest'{command = {addReq, AMMR}},
>
> AR = #'ActionRequest'{contextId = ?megaco_choose_context_id,
>                                      commandRequests = [CR]},
>
> case megaco:cast(ConnHandle, [AR], [{protocol_version, Version}]) of
>     {error, Reason} ->
>         d("start -> cast failed, Error: ~n~p Reason: ~n~p", [error,
> Reason]);
>     _ ->
>         ok
>     end.
>
> Also, as simple MediaDescriptor as the one containing only
> LocalControlDescriptor with a SendMode =recvOnly, does not work...:
> ...
>  LCD1   = #'LocalControlDescriptor'{streamMode=recvOnly},
>  SP1    =    #'StreamParms'{localControlDescriptor=LCD1},
>  MediaDesc = #'MediaDescriptor'{streams={oneStream,SP1}},
> ....
>
> I get the following error when I try to run it:
>
> error Reason:
> {megaco_pretty_text_encoder,
>  [[],
>   {'MegacoMessage',asn1_NOVALUE,
>    {'Message',3,
>     {deviceName,"controller"},
>     {transactions,
>      [{transactionRequest,
>        {'TransactionRequest',1,
>         [{'ActionRequest',4294967294,asn1_NOVALUE,asn1_NOVALUE,
>           [{'CommandRequest',
>             {addReq,
>              {'AmmRequest',
>               [{megaco_term_id,false,["r1","101","1"]}],
>               [{mediaDescriptor,
>                 {'MediaDescriptor',asn1_NOVALUE,
>                  {oneStream,
>                   {'StreamDescriptor',1,
>                    {'StreamParms',asn1_NOVALUE,asn1_NOVALUE,
>                     {'LocalRemoteDescriptor',
>                      [[{'PropertyParm',"v",["0\r\r"],asn1_NOVALUE},
>                        {'PropertyParm',"c",
>                         ["IN \tIP4 \t10.70.80.50\r\r"],
>                         asn1_NOVALUE},
>                        {'PropertyParm',"m",
>                         ["audio \t4444 \tRTP/AVP \t0\r\r"],
>                         asn1_NOVALUE}]]}}}}}},
>                {eventsDescriptor,
>                 {'EventsDescriptor',1,
>                  [{'RequestedEvent',
>                    ["al/of"],
>                    asn1_NOVALUE,asn1_NOVALUE,
>
> [{'EventParameter',"strict",["exact"],asn1_NOVALUE}]}]}}]}},
>             asn1_NOVALUE,asn1_NOVALUE}]}]}}]}}}],
>  {function_clause,
>   [{megaco_pretty_text_encoder_v3,decompose_StreamParms,
>     [{'StreamDescriptor',1,
>       {'StreamParms',asn1_NOVALUE,asn1_NOVALUE,
>        {'LocalRemoteDescriptor',
>         [[{'PropertyParm',"v",["0\r\r"],asn1_NOVALUE},
>           {'PropertyParm',"c",
>            ["IN \tIP4 \t10.70.80.50\r\r"],
>            asn1_NOVALUE},
>           {'PropertyParm',"m",
>            ["audio \t4444 \tRTP/AVP \t0\r\r"],
>            asn1_NOVALUE}]]}}}]},
>    {megaco_pretty_text_encoder_v3,enc_MediaDescriptor,2},
>    {megaco_pretty_text_encoder_v3,do_enc_list,5},
>    {megaco_pretty_text_encoder_v3,enc_list,4},
>    {megaco_pretty_text_encoder_v3,enc_AmmRequest,2},
>    {megaco_pretty_text_encoder_v3,enc_Command,2},
>    {megaco_pretty_text_encoder_v3,enc_CommandRequest,2},
>    {megaco_pretty_text_encoder_v3,do_enc_list,5}]}}
>
> In addition, I tried to put the PropertyParms in the following way:
> ...
> CI = #megaco_sdp_c{ connection_addr="224.2.17.12" },
> ML= #megaco_sdp_m{ media="audio",
>                                        port=6003,
>                                        num_ports=1,
>                                        transport="RTP/AVP",
>                                        fmt_list = ["8", "0"]  },
>
>  PropertyParmGroup = [CI, ML],
> ...
> But, it seems to me that the problem is even before coming to these params.
>
> Thank you,
> Ludmila
>
> _______________________________________________
> erlang-questions mailing list
> erlang-questions@REDACTED
> http://www.erlang.org/mailman/listinfo/erlang-questions
>


-- 
Maxim Treskin