From 53f09791d574f6b7be87491aa819c29cb9ff7d3e Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 13 Apr 2021 15:35:06 +0200
Subject: [PATCH] TT#116100 bin/create_peers.pl: use defined IP/port from
 scenario_ids.yml

Change-Id: I42d7aac330d805e46045f9f02fce9049ea8a2d72
---
 bin/create_peers.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/bin/create_peers.pl b/bin/create_peers.pl
index 66a30d4a..7f755ae9 100755
--- a/bin/create_peers.pl
+++ b/bin/create_peers.pl
@@ -155,6 +155,35 @@ sub manage_inbound_rules
   return;
 }
 
+sub update_network
+{
+  my $host = shift;
+
+  foreach my $scen (@{$ids->{scenarios}})
+  {
+    if(defined($scen->{peer})) {
+      if($scen->{peer} eq $host->{name}) {
+        $host->{ip} = $scen->{ip};
+        $host->{port} = $scen->{port};
+        print "peer: $host->{name} [$host->{ip}:$host->{port}]\n";
+        return;
+      }
+    }
+    foreach my $resp (@{$scen->{responders}})
+    {
+      if(defined($resp->{peer})) {
+        if($resp->{peer} eq $host->{name}) {
+          $host->{ip} = $resp->{ip};
+          $host->{port} = $resp->{port};
+          print "peer: $host->{name} [$host->{ip}:$host->{port}]\n";
+          return;
+        }
+      }
+    }
+  }
+  return;
+}
+
 sub manage_hosts
 {
   my $data = shift;
@@ -166,6 +195,7 @@ sub manage_hosts
     if(defined $host->{id}) {
       print "peer: $host->{name} already there [$host->{id}]\n";
     } else {
+      update_network($host);
       $host->{id} = $api->create_peeringserver($host);
       print "peer: $host->{name} created [$host->{id}]\n";
     }