small fix to test script

13 years ago · 1f20801856
parent fcabc7254c
commit 1f20801856
1 changed files with 2 additions and 2 deletions
--- a/tests/simulator-ng.pl
+++ b/tests/simulator-ng.pl
@ -188,9 +188,9 @@ sub gen_rtcp_session_keys {
 sub rtcp_encrypt {
 	my ($r, $ctx, $dir) = @_;

-	if (!$$ctx{rtcp_session_key}) {
+	if (!$$ctx{$dir}{rtcp_session_key}) {
 		($$ctx{$dir}{rtcp_session_key}, $$ctx{$dir}{rtcp_session_auth_key}, $$ctx{$dir}{rtcp_session_salt})
-			= gen_rtp_session_keys($$ctx{$dir}{rtp_master_key}, $$ctx{$dir}{rtp_master_salt});
+			= gen_rtcp_session_keys($$ctx{$dir}{rtp_master_key}, $$ctx{$dir}{rtp_master_salt});
 	}

 	my $idx = $$ctx{$dir}{rtcp_index} || 0;