From 81d127768c638a8df038862ca79608de00b89be3 Mon Sep 17 00:00:00 2001
From: Matthew Hooker <mwhooker@gmail.com>
Date: Thu, 12 Apr 2018 23:05:05 -0700
Subject: [PATCH] Add key press interval to virtualbox.

---
 builder/virtualbox/common/step_type_boot_command.go |  2 +-
 common/boot_command/pc_at_driver.go                 | 13 +++++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/builder/virtualbox/common/step_type_boot_command.go b/builder/virtualbox/common/step_type_boot_command.go
index a33c61e3d..b979ef59f 100644
--- a/builder/virtualbox/common/step_type_boot_command.go
+++ b/builder/virtualbox/common/step_type_boot_command.go
@@ -64,7 +64,7 @@ func (s *StepTypeBootCommand) Run(ctx context.Context, state multistep.StateBag)
 
 		return driver.VBoxManage(args...)
 	}
-	d := bootcommand.NewPCATDriver(sendCodes, 20)
+	d := bootcommand.NewPCATDriver(sendCodes, 25)
 
 	ui.Say("Typing the boot command...")
 	for i, command := range s.BootCommand {
diff --git a/common/boot_command/pc_at_driver.go b/common/boot_command/pc_at_driver.go
index 834a4b02a..ca87c1926 100644
--- a/common/boot_command/pc_at_driver.go
+++ b/common/boot_command/pc_at_driver.go
@@ -3,15 +3,20 @@ package bootcommand
 import (
 	"fmt"
 	"log"
+	"os"
 	"strings"
+	"time"
 	"unicode"
 	"unicode/utf8"
+
+	"github.com/hashicorp/packer/common"
 )
 
 // SendCodeFunc will be called to send codes to the VM
 type SendCodeFunc func([]string) error
 
 type pcATDriver struct {
+	interval    time.Duration
 	sendImpl    SendCodeFunc
 	specialMap  map[string][]string
 	scancodeMap map[rune]byte
@@ -21,6 +26,12 @@ type pcATDriver struct {
 }
 
 func NewPCATDriver(send SendCodeFunc, chunkSize int) *pcATDriver {
+	// We delay (default 100ms) between each input event to allow for CPU or
+	// network latency. See PackerKeyEnv for tuning.
+	keyInterval := common.PackerKeyDefault
+	if delay, err := time.ParseDuration(os.Getenv(common.PackerKeyEnv)); err == nil {
+		keyInterval = delay
+	}
 	// Scancodes reference: http://www.win.tue.nl/~aeb/linux/kbd/scancodes-1.html
 	//
 	// Scancodes are recorded here in pairs. The first entry represents
@@ -87,6 +98,7 @@ func NewPCATDriver(send SendCodeFunc, chunkSize int) *pcATDriver {
 	}
 
 	return &pcATDriver{
+		interval:          keyInterval,
 		sendImpl:          send,
 		specialMap:        sMap,
 		scancodeMap:       scancodeMap,
@@ -107,6 +119,7 @@ func (d *pcATDriver) Finalize() error {
 		if err := d.sendImpl(b); err != nil {
 			return err
 		}
+		time.Sleep(d.interval)
 	}
 	return nil
 }