From df2ca8213ed127c998fb5661f4e369bbd13552a9 Mon Sep 17 00:00:00 2001
From: Richard Gooch <rg+github0@safe-mbox.com>
Date: Thu, 17 May 2018 08:03:26 -0700
Subject: [PATCH] Add -vmHostname option to vm-control tool.

---
 cmd/vm-control/createVm.go | 1 +
 cmd/vm-control/main.go     | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/cmd/vm-control/createVm.go b/cmd/vm-control/createVm.go
index e2f80da7..266d091b 100644
--- a/cmd/vm-control/createVm.go
+++ b/cmd/vm-control/createVm.go
@@ -85,6 +85,7 @@ func createVmOnHypervisor(hypervisor string, logger log.DebugLogger) error {
 	request := proto.CreateVmRequest{
 		DhcpTimeout: *dhcpTimeout,
 		VmInfo: proto.VmInfo{
+			Hostname:    *vmHostname,
 			MemoryInMiB: *memory,
 			MilliCPUs:   *milliCPUs,
 			OwnerGroups: ownerGroups,
diff --git a/cmd/vm-control/main.go b/cmd/vm-control/main.go
index e7b73ffa..4b18870b 100644
--- a/cmd/vm-control/main.go
+++ b/cmd/vm-control/main.go
@@ -51,7 +51,8 @@ var (
 		"If true, trace metadata calls until interrupted")
 	userDataFile = flag.String("userDataFile", "",
 		"Name file containing user-data accessible from the metadata server")
-	vmTags tags.Tags
+	vmHostname = flag.String("vmHostname", "", "Hostname for VM")
+	vmTags     tags.Tags
 
 	logger log.DebugLogger
 )