|
|
|
@ -189,7 +189,7 @@ SDP |
|
|
|
snd($sock_b, $port_a, rtp(0, 1000, 3000, 0x1234, "\x99" x 160)); |
|
|
|
Time::HiRes::usleep(20000); # resample delay |
|
|
|
snd($sock_b, $port_a, rtp(0, 1001, 3160, 0x1234, "\x99" x 160)); |
|
|
|
rcv($sock_a, $port_b, rtpm(9, 1000, 3000, 0x1234, "\x92\x20\x84\x20\x85\x20\xa0\x26\xa6\x27\xe7\xe8\xe9\xe9\xea\xeb\xec\xed\xed\xee\xee\xef\xf0\xf0\xf0\xf0\xf0\xf1\xf1\xf2\xf3\xf4\xf3\xf4\xf3\xf4\xf4\xf2\xf5\xf4\xf3\xf5\xf5\xf5\xf4\xf3\xf6\xf5\xf4\xf4\xf4\xf4\xf3\xf5\xf5\xf5\xf4\xf4\xf4\xf2\xf5\xf4\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf3\xf8\xf3\xf6\xf4\xf3\xf9\xf2\xf7\xf6\xf4\xf4\xf1\xf6\xf5\xf3\xf9\xf4\xf3\xf7\xf6\xf5\xf2\xf8\xf4\xf1\xf5\xf5\xf4\xf2\xf8\xf4\xf2\xf6\xf6\xf6\xf3\xfa\xf6\xf3\xf8\xf1\xf6\xf4\xf4\xf6\xf3\xfc\xef\xfb\xf6\xf6\xf6\xf3\xfe\xf0\xf2\xfc\xf2\xf8\xf0\xf8\xf4\xef\xdb\xee\xfd\xf2\xfa\xf8\xed\xde\xf1\xf9\xf4")); |
|
|
|
rcv($sock_a, $port_b, rtpm(9, 1000, 3000, 0x1234, "\x92\x20\x84\x20\x85\x20\xa0\x26\xa6\x27\xe7\xe8\xe9\xe9\xea\xeb\xec\xed\xed\xee\xee\xef\xf0\xf0\xf0\xf0\xf0\xf1\xf1\xf2\xf3\xf4\xf3\xf4\xf3\xf4\xf4\xf2\xf5\xf4\xf3\xf5\xf5\xf5\xf4\xf3\xf6\xf5\xf4\xf4\xf4\xf4\xf3\xf5\xf5\xf5\xf4\xf4\xf4\xf2\xf5\xf4\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf3\xf8\xf3\xf6\xf4\xf3\xf9\xf2\xf7\xf6\xf4\xf4\xf1\xf6\xf5\xf3\xf9\xf4\xf3\xf7\xf6\xf5\xf2\xf8\xf4\xf1\xf5\xf5\xf4\xf2\xf8\xf4\xf2\xf6\xf6\xf6\xf3\xfa\xf6\xf3\xf8\xf1\xf6\xf4\xf4\xf6\xf3\xfc\xef\xfb\xf6\xf6\xf6\xf3\xfe\xf0\xf2\xfc\xf2\xf8\xf0\xf8\xf4\xef\xdb\xee\xfd\xf2\xfa\xf8\xed\xde\xf1\xf9\xf4", "\x92\x20\x84\x20\x85\x20\xa0\x26\xa6\x27\xe7\xe8\xe9\xe9\xea\xeb\xec\xed\xed\xee\xee\xef\x70\xf0\xf0\xf0\xf0\xf1\xf1\x72\xf3\xf4\xf3\xb4\xf3\xf4\xf4\xf2\xf5\xf4\xf3\xf5\xf5\xb5\xb4\xf3\xf6\xb5\xf4\xf4\xf4\xb4\xf3\xf5\xf5\xb5\xf4\xf4\xf4\xb2\xf5\xf4\xf4\xf3\xb7\xf7\xf5\xf4\xb3\xf7\xf5\xf4\xb3\xf7\xf7\xf5\xf4\xb3\xf7\xf5\xf4\xb3\xf7\xf8\xf1\xb4\xf3\xf8\xf1\xf5\xb6\xf5\xb4\xf1\xf7\xf5\xb4\xf2\xf8\xf3\xf6\xf5\xf3\xfa\xf2\xf8\xf2\xf5\xf5\xf2\xf9\xf2\xf9\xf2\xf6\xf6\xf3\xfb\xf3\xfb\xf4\xf1\xf7\xf5\xf5\xf3\xfc\xf2\xf4\xf3\xf9\xf4\xf0\xf8\xf4\xf3\xf6\xf7\xf9\xf1\xf6\xfa\xf1\xf5\xf4\xf7\xf7\xb6\xb8\xb0\x73\xbd\xf1\xf6\xb8\xf5\xf3\xf6\xfa\xf4")); |
|
|
|
|
|
|
|
snd($sock_a, $port_b, rtp(9, 3000, 5000, 0x6321, "\x92\x20\x84\x20\x85\x20\xa0\x26\xa6\x27\xe7\xe8\xe9\xe9\xea\xeb\xec\xed\xed\xee\xee\xef\xf0\xf0\xf0\xf0\xf0\xf1\xf1\xf2\xf3\xf4\xf3\xf4\xf3\xf4\xf4\xf2\xf5\xf4\xf3\xf5\xf5\xf5\xf4\xf3\xf6\xf5\xf4\xf4\xf4\xf4\xf3\xf5\xf5\xf5\xf4\xf4\xf4\xf2\xf5\xf4\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf4\xf3\xf7\xf5\xf4\xf3\xf7\xf7\xf5\xf3\xf8\xf3\xf6\xf4\xf3\xf9\xf2\xf7\xf6\xf4\xf4\xf1\xf6\xf5\xf3\xf9\xf4\xf3\xf7\xf6\xf5\xf2\xf8\xf4\xf1\xf5\xf5\xf4\xf2\xf8\xf4\xf2\xf6\xf6\xf6\xf3\xfa\xf6\xf3\xf8\xf1\xf6\xf4\xf4\xf6\xf3\xfc\xef\xfb\xf6\xf6\xf6\xf3\xfe\xf0\xf2\xfc\xf2\xf8\xf0\xf8\xf4\xef\xdb\xee\xfd\xf2\xfa\xf8\xed\xde\xf1\xf9\xf4")); |
|
|
|
Time::HiRes::usleep(20000); # resample delay |
|
|
|
|