@ -755,39 +755,39 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
SDP
is $ ftr , undef , 'from-tag matches' ;
is_deeply $ fts , [ ft( ) , t t( ) ] , 'from-tags match' ;
is_deeply $ fts , [ tt( ) , f t( ) ] , 'from-tags match' ;
is_deeply $ tag_medias , [
{
tag = > f t( ) ,
tag = > t t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 1 ',
label = > ' 0 ',
mode = > 'sendrecv' ,
} ,
] ,
} ,
{
tag = > t t( ) ,
tag = > f t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 0 ',
label = > ' 1 ',
mode = > 'sendrecv' ,
} ,
] ,
@ -863,41 +863,41 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
SDP
is $ ftr , undef , 'from-tag matches' ;
is_deeply $ fts , [ ft( ) , t t( ) ] , 'from-tags match' ;
is_deeply $ fts , [ tt( ) , f t( ) ] , 'from-tags match' ;
is_deeply $ tag_medias , [
{
tag = > f t( ) ,
label = > 'calle r ',
tag = > t t( ) ,
label = > 'calle d ',
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 1 ',
label = > ' 0 ',
mode = > 'sendrecv' ,
} ,
] ,
} ,
{
tag = > t t( ) ,
label = > 'calle d ',
tag = > f t( ) ,
label = > 'calle r ',
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 0 ',
label = > ' 1 ',
mode = > 'sendrecv' ,
} ,
] ,
@ -976,7 +976,7 @@ rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x3456, "\x00" x 160));
snd ( $ sock_a , $ port_b , rtp ( 0 , 4000 , 7000 , 0x6543 , "\x00" x 160 ) ) ;
rcv ( $ sock_b , $ port_a , rtpm ( 0 , 4000 , 7000 , 0x6543 , "\x00" x 160 ) ) ;
( $ ftr , $ ttr , $ fts , undef , undef , $ port_ c, undef , $ port_d ) = subscribe_request ( '"all" sub' ,
( $ ftr , $ ttr , $ fts , undef , undef , $ port_ d, undef , $ port_c ) = subscribe_request ( '"all" sub' ,
{ 'flags' = > [ 'all' ] } , << SDP ) ;
v = 0
o = - SDP_VERSION IN IP4 203.0 .113 .1
@ -997,7 +997,7 @@ a=rtcp:PORT
SDP
is $ ftr , undef , 'from-tag matches' ;
is_deeply $ fts , [ ft( ) , t t( ) ] , 'from-tags match' ;
is_deeply $ fts , [ tt( ) , f t( ) ] , 'from-tags match' ;
subscribe_answer ( '"all" sub' ,
{ 'to-tag' = > $ ttr , flags = > [ 'allow transcoding' ] } , << SDP ) ;
@ -1005,10 +1005,10 @@ v=0
o = - 1545997027 1 IN IP4 198.51 .100 .1
s = tester
t = 0 0
m = audio 608 4 RTP / AVP 8
m = audio 608 6 RTP / AVP 8
c = IN IP4 198.51 .100 .14
a = recvonly
m = audio 608 6 RTP / AVP 8
m = audio 608 4 RTP / AVP 8
c = IN IP4 198.51 .100 .14
a = recvonly
SDP
@ -1616,7 +1616,7 @@ rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x3456, "\x00" x 160));
snd ( $ sock_a , $ port_b , rtp ( 0 , 4000 , 7000 , 0x6543 , "\x00" x 160 ) ) ;
rcv ( $ sock_b , $ port_a , rtpm ( 0 , 4000 , 7000 , 0x6543 , "\x00" x 160 ) ) ;
( undef , $ ttr , undef , undef , undef , $ port_ c, undef , $ port_d ) = subscribe_request ( 'SIPREC sub pause/resume' ,
( undef , $ ttr , undef , undef , undef , $ port_ d, undef , $ port_c ) = subscribe_request ( 'SIPREC sub pause/resume' ,
{ flags = > [ 'all' , 'SIPREC' ] } , << SDP ) ;
v = 0
o = - SDP_VERSION IN IP4 203.0 .113 .1
@ -1624,13 +1624,13 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
@ -1642,14 +1642,14 @@ v=0
o = - 1545997027 1 IN IP4 198.51 .100 .1
s = tester
t = 0 0
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
m = audio 6124 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:0
a = recvonly
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
SDP
snd ( $ sock_b , $ port_a , rtp ( 0 , 2001 , 4160 , 0x3456 , "\x00" x 160 ) ) ;
@ -1706,7 +1706,7 @@ a=recvonly
a = rtcp:PORT
SDP
( undef , undef , undef , $ tag_medias , $ media_labels , $ port_ c, undef , $ port_d ) = subscribe_request ( 'SIPREC sub pause/resume' ,
( undef , undef , undef , $ tag_medias , $ media_labels , $ port_ d, undef , $ port_c ) = subscribe_request ( 'SIPREC sub pause/resume' ,
{ flags = > [ 'all' , 'SIPREC' ] , 'to-tag' = > $ ttr } , << SDP ) ;
v = 0
o = - SDP_VERSION IN IP4 203.0 .113 .1
@ -1714,38 +1714,38 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = inactive
a = sendonly
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = sendonly
a = inactive
a = rtcp:PORT
SDP
is_deeply $ tag_medias , [
{
tag = > f t( ) ,
tag = > t t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 1 ',
mode = > ' send only',
label = > ' 0 ',
mode = > ' recv only',
} ,
] ,
} ,
{
tag = > t t( ) ,
tag = > f t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 0 ',
mode = > ' recv only',
label = > ' 1 ',
mode = > ' send only',
} ,
] ,
} ,
@ -1771,14 +1771,14 @@ v=0
o = - 1545997027 1 IN IP4 198.51 .100 .1
s = tester
t = 0 0
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = inactive
m = audio 6124 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:0
a = recvonly
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = inactive
SDP
snd ( $ sock_b , $ port_a , rtp ( 0 , 2001 , 4320 , 0x3456 , "\x00" x 160 ) ) ;
@ -1827,7 +1827,7 @@ a=sendrecv
a = rtcp:PORT
SDP
( undef , $ ttr , undef , $ tag_medias , $ media_labels , $ port_ c, undef , $ port_d ) = subscribe_request ( 'SIPREC sub pause/resume' ,
( undef , $ ttr , undef , $ tag_medias , $ media_labels , $ port_ d, undef , $ port_c ) = subscribe_request ( 'SIPREC sub pause/resume' ,
{ flags = > [ 'all' , 'SIPREC' ] , 'to-tag' = > $ ttr } , << SDP ) ;
v = 0
o = - SDP_VERSION IN IP4 203.0 .113 .1
@ -1835,13 +1835,13 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = sendonly
a = rtcp:PORT
@ -1849,23 +1849,23 @@ SDP
is_deeply $ tag_medias , [
{
tag = > f t( ) ,
tag = > t t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 1 ',
label = > ' 0 ',
mode = > 'sendrecv' ,
} ,
] ,
} ,
{
tag = > t t( ) ,
tag = > f t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 0 ',
label = > ' 1 ',
mode = > 'sendrecv' ,
} ,
] ,
@ -1892,14 +1892,14 @@ v=0
o = - 1545997027 1 IN IP4 198.51 .100 .1
s = tester
t = 0 0
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
m = audio 6124 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:0
a = recvonly
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
SDP
snd ( $ sock_b , $ port_a , rtp ( 0 , 2001 , 4480 , 0x3456 , "\x00" x 160 ) ) ;
@ -1952,7 +1952,7 @@ a=recvonly
a = rtcp:PORT
SDP
( undef , undef , undef , $ tag_medias , $ media_labels , $ port_ c, undef , $ port_d ) = subscribe_request ( 'SIPREC sub pause/resume' ,
( undef , undef , undef , $ tag_medias , $ media_labels , $ port_ d, undef , $ port_c ) = subscribe_request ( 'SIPREC sub pause/resume' ,
{ flags = > [ 'all' , 'SIPREC' ] , 'to-tag' = > $ ttr } , << SDP ) ;
v = 0
o = - SDP_VERSION IN IP4 203.0 .113 .1
@ -1960,38 +1960,38 @@ s=RTPE_VERSION
t = 0 0
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 1
a = label: 0
a = rtpmap:0 PCMU / 8000
a = sendonly
a = inactive
a = rtcp:PORT
m = audio PORT RTP / AVP 0
c = IN IP4 203.0 .113 .1
a = label: 0
a = label: 1
a = rtpmap:0 PCMU / 8000
a = inactive
a = sendonly
a = rtcp:PORT
SDP
is_deeply $ tag_medias , [
{
tag = > f t( ) ,
tag = > t t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 1 ',
mode = > ' recv only',
label = > ' 0 ',
mode = > ' send only',
} ,
] ,
} ,
{
tag = > t t( ) ,
tag = > f t( ) ,
medias = > [
{
index = > 1 ,
type = > 'audio' ,
label = > ' 0 ',
mode = > ' send only',
label = > ' 1 ',
mode = > ' recv only',
} ,
] ,
} ,
@ -2017,14 +2017,14 @@ v=0
o = - 1545997027 1 IN IP4 198.51 .100 .1
s = tester
t = 0 0
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
m = audio 6124 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:0
a = inactive
m = audio 6122 RTP / AVP 0
c = IN IP4 198.51 .100 .14
a = label:1
a = recvonly
SDP
snd ( $ sock_a , $ port_b , rtp ( 0 , 4001 , 7480 , 0x6543 , "\x00" x 160 ) ) ;