|
|
|
|
@ -64,28 +64,44 @@ a=sendrecv
|
|
|
|
|
a=rtcp:PORT
|
|
|
|
|
SDP
|
|
|
|
|
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, 1001, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, 1001, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, 1010, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, 1010, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1000, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1001, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1001, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1010, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1010, 3000, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1011, 3160, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1011, 3160, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1012, 3320, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1012, 3320, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, 1013, 3480, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, 1013, 3480, 0x1234, "\x00" x 160));
|
|
|
|
|
my $seq = 1000;
|
|
|
|
|
my $ts = 3000;
|
|
|
|
|
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq++;
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq += 10;
|
|
|
|
|
snd($sock_a, $port_b, rtp(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(0, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
|
|
|
|
|
$seq = 1000;
|
|
|
|
|
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq++;
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq += 10;
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq++;
|
|
|
|
|
$ts += 160;
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq++;
|
|
|
|
|
$ts += 160;
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
$seq++;
|
|
|
|
|
$ts += 160;
|
|
|
|
|
snd($sock_a, $port_b, rtp(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
rcv($sock_b, $port_a, rtpm(8, $seq, $ts, 0x1234, "\x00" x 160));
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|