amttool patch

Hi,

Attached is a patch for your amttool code which allows access to
machines provisioned in Enterprise mode. In Enterprise mode, machines
listen on port 16993 rather than 16992, and only take SSL. Its a pretty
basic patch to make the code work...

Simon

--
Simon Thompson
Senior Experimental Computing Specialist
School of Computer Science, The University of Birmingham

1 files changed, 11 insertions, 1 deletions

diff --git a/amttool b/amttool
index 6734ff3..c1adf9e 100755
--- a/amttool
+++ b/amttool
@@ -6,6 +6,16 @@ use SOAP::Lite;
 
 my $amt_host = shift;
 my $amt_port = "16992";
+my $amt_proto = 'http';
+
+if ($amt_host =~ /([^:]+):(\d+)/) {
+  $amt_host = $1;
+  $amt_port = $2;
+  if ($amt_port == 16993) {
+    $amt_proto = 'https';
+  }
+}
+
 $main::amt_user = "admin";
 $main::amt_pass = $ENV{'AMT_PASSWORD'};
 my $amt_debug = 0;
@@ -96,7 +106,7 @@ sub SOAP::Transport::HTTP::Client::get_basic_credentials {
 }
 
 sub soap_init() {
-	my $proxybase = "http://$amt_host:$amt_port";
+	my $proxybase = "$amt_proto://$amt_host:$amt_port";
 	my $schemabase = "http://schemas.intel.com/platform/client";
 
 	$nas = SOAP::Lite->new(