From 50daef0e55d37b5ea18877894ff29419ae25b75d Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 25 Oct 2016 16:19:28 -0400
Subject: [PATCH] support recording flag in simulator-ng

Change-Id: Id43e8b3e3a7c80dfdd8d959b29c83fc6bf99ea25
---
 tests/simulator-ng.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/simulator-ng.pl b/tests/simulator-ng.pl
index b853f7201..4147a722b 100755
--- a/tests/simulator-ng.pl
+++ b/tests/simulator-ng.pl
@@ -18,7 +18,7 @@ use NGCP::Rtpclient::SRTP;
 my ($NUM, $RUNTIME, $STREAMS, $PAYLOAD, $INTERVAL, $RTCP_INTERVAL, $STATS_INTERVAL)
 	= (1000, 30, 1, 160, 20, 5, 5);
 my ($NODEL, $IP, $IPV6, $KEEPGOING, $REINVITES, $PROTOS, $DEST, $SUITES, $NOENC, $RTCPMUX, $BUNDLE, $LAZY,
-	$CHANGE_SSRC, $PORT_LATCHING);
+	$CHANGE_SSRC, $PORT_LATCHING, $RECORD);
 GetOptions(
 		'no-delete'	=> \$NODEL,
 		'num-calls=i'	=> \$NUM,
@@ -41,6 +41,7 @@ GetOptions(
 		'lazy-params'	=> \$LAZY,
 		'change-ssrc'   => \$CHANGE_SSRC,
 		'port-latching' => \$PORT_LATCHING,
+		'record'	=> \$RECORD,
 ) or die;
 
 ($IP || $IPV6) or die("at least one of --local-ip or --local-ipv6 must be given");
@@ -660,6 +661,7 @@ a=rtpmap:111 opus/48000/2
 		'rtcp-mux' => ['demux'],
 	};
 	$PORT_LATCHING and push(@{$dict->{flags}}, 'port latching');
+	$RECORD and $dict->{'record-call'} = 'yes';
 	#$viabranch and $dict->{'via-branch'} = $viabranch;
 	if ($op eq 'offer') {
 		$dict->{'from-tag'} = $$A{tag};