TT#116100 permanent registrations

* just obey what is defined at scenario.yml
* bin/create_registrations.pl: add transport to contact

Change-Id: Ia851594064f348b778f1be0979b345090a303d20

bin/create_registrations.pl

@@ -95,7 +95,8 @@ sub contact
     {
       if( $resp->{username} eq $subscriber && $resp->{domain} eq $domain)
       {
-        return "sip:$resp->{ip}:$resp->{port}";
+        $resp->{proto} = 'udp' unless(defined($resp->{proto}));
+        return "sip:$resp->{ip}:$resp->{port};transport=$resp->{proto}";
       }
     }
   }

bin/scenario.pl

@@ -284,7 +284,11 @@ sub network_data
     foreach my $resp (@{$scen->{responders}})
     {
         my $rdata = {};
-        if(defined($resp->{peer_host})) {
+        if(defined($resp->{register}) && $resp->{register} eq "permanent") {
+            $rdata->{ip} = $resp->{ip};
+            $rdata->{port} = $resp->{port};
+            $rdata->{mport} = $resp->{mport};
+        } elsif(defined($resp->{peer_host})) {
             $rdata->{peer} = $resp->{peer_host};
             $rdata = $hm->merge($rdata, peer_data($resp->{peer_host}));
         } else {
@@ -299,6 +303,11 @@ sub network_data
         $resp->{port} = $rdata->{port};
         $resp->{mport} = $rdata->{mport};
         if(defined($resp->{domain})) { $rdata->{domain} = $resp->{domain}; }
+        if(defined($resp->{register})) {
+            $rdata->{register} = $resp->{register};
+            $resp->{proto} = 'udp' unless(defined($resp->{proto}));
+            $rdata->{proto} = $resp->{proto};
+        }
         push @{$data->{responders}}, $rdata;
     }
     push @{$ids->{scenarios}}, $data;