From 26b388167149cf2f8e799c7210cc14f35e490f96 Mon Sep 17 00:00:00 2001
From: garnier-quentin <garnier.quentin@gmail.com>
Date: Tue, 19 Mar 2019 09:57:18 +0100
Subject: [PATCH] Fix sahipro port connection

---
 apps/sahipro/restapi/mode/scenario.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/apps/sahipro/restapi/mode/scenario.pm b/apps/sahipro/restapi/mode/scenario.pm
index 49dc8832f..180f100e6 100644
--- a/apps/sahipro/restapi/mode/scenario.pm
+++ b/apps/sahipro/restapi/mode/scenario.pm
@@ -254,6 +254,7 @@ sub killed_scenario {
     return if (!defined($self->{user_defined_id}));
     $self->{http}->request(
         proto => $self->{option_results}->{sahi_proto},
+        port => $self->{option_results}->{sahi_port},
         hostname => $self->{option_results}->{sahi_hostname},
         url_path => $self->{option_results}->{sahi_endpoint} . 'SahiEndPoint_killAll',
         timeout => $self->{option_results}->{sahi_http_timeout},
@@ -268,6 +269,7 @@ sub cleanup_scenario {
     return if (!defined($self->{user_defined_id}));
     $self->{http}->request(
         proto => $self->{option_results}->{sahi_proto},
+        port => $self->{option_results}->{sahi_port},
         hostname => $self->{option_results}->{sahi_hostname},
         url_path => $self->{option_results}->{sahi_endpoint} . 'SahiEndPoint_cleanup',
         timeout => $self->{option_results}->{sahi_http_timeout},
@@ -282,6 +284,7 @@ sub run_scenario {
     my $user_defined_id = $self->generate_user_defined_id();
     my ($content) = $self->{http}->request(
         proto => $self->{option_results}->{sahi_proto},
+        port => $self->{option_results}->{sahi_port},
         hostname => $self->{option_results}->{sahi_hostname},
         url_path => $self->{option_results}->{sahi_endpoint} . 'SahiEndPoint_run',
         timeout => $self->{option_results}->{sahi_http_timeout},
@@ -314,6 +317,7 @@ sub check_scenario_status {
     while (1) {
         ($content) = $self->{http}->request(
             proto => $self->{option_results}->{sahi_proto},
+            port => $self->{option_results}->{sahi_port},
             hostname => $self->{option_results}->{sahi_hostname},
             url_path => $self->{option_results}->{sahi_endpoint} . 'SahiEndPoint_status',
             timeout => $self->{option_results}->{sahi_http_timeout},
@@ -347,6 +351,7 @@ sub get_suite_report {
     
     my ($content) = $self->{http}->request(
         proto => $self->{option_results}->{sahi_proto},
+        port => $self->{option_results}->{sahi_port},
         hostname => $self->{option_results}->{sahi_hostname},
         url_path => $self->{option_results}->{sahi_endpoint} . 'sahiEndPoint_suiteReport',
         timeout => $self->{option_results}->{sahi_http_timeout},
@@ -382,6 +387,7 @@ sub get_script_report {
 
     my ($content) = $self->{http}->request(
         proto => $self->{option_results}->{sahi_proto},
+        port => $self->{option_results}->{sahi_port},
         hostname => $self->{option_results}->{sahi_hostname},
         url_path => $self->{option_results}->{sahi_endpoint} . 'SahiEndPoint_scriptReport',
         timeout => $self->{option_results}->{sahi_http_timeout},