TT#81700 generate_test_tt2.pl: add filter option

Allow to filter out headers, match is case-insensitive

> ./bin/generate_test_tt2.pl -f Route -f Call-id -f via log/scenarios/invite/0001.json

Change-Id: Ia89792a99c36a375509bf4d8faea3f8950a2be25

.gitignore

@@ -10,3 +10,4 @@ sipp_scenario_responder*_reg.xml
 presence_*xml
 presence.sh
 apicert.pem
+.ngcpcfg_perms

bin/generate_test_tt2.pl

@@ -31,15 +31,28 @@ use JSON;
 
 sub usage
 {
-  my $output = "usage: generate_test_tt2.pl [-h] file\n";
+  my $output = "usage: generate_test_tt2.pl [-h] [-f Header] file\n";
   $output .= "\tOptions:\n";
   $output .= "-h --help: this help\n";
+  $output .= "-f --filter: remove this header ( can be used multiple times )\n";
   return $output
 }
 
+my @headers;
+sub filter_header
+{
+  my $line = $_[0];
+  foreach my $header (@headers) {
+    if ($line =~ /${header}:/i) {
+      return 1;
+    }
+  }
+  return 0;
+}
+
 my $yml = '';
 my $help = 0;
-GetOptions ("h|help" => \$help)
+GetOptions ("h|help" => \$help, "f|filter=s" => \@headers)
   or die("Error in command line arguments\n".usage());
 
 if($#ARGV!=0 || $help)
@@ -70,7 +83,9 @@ foreach my $i (@{$inlog->{'sip_in'}})
   foreach my $l (@line)
   {
     if($l) {
-      print "  - '$l'\n";
+      if(!filter_header($l)) {
+        print "  - '$l'\n";
+      }
     } else {
       # we don't care about SDP
       last;
@@ -85,7 +100,9 @@ foreach my $i (@{$inlog->{'sip_out'}})
   foreach my $l (@line)
   {
     if($l) {
-      print "      '$l',\n";
+      if(!filter_header($l)) {
+        print "      '$l',\n";
+      }
     } else {
       # we don't care about SDP
       last;