From d7cf24ee0fd16d819bbe97a0745475e7344769b0 Mon Sep 17 00:00:00 2001
From: John Riendeau <riendeau@us.ibm.com>
Date: Mon, 15 Jul 2024 10:07:11 -0500
Subject: [PATCH] Add a sleep in the defrag code

---
 server/storage/backend/backend.go | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/server/storage/backend/backend.go b/server/storage/backend/backend.go
index 95f5cf96fc8..644047bfd26 100644
--- a/server/storage/backend/backend.go
+++ b/server/storage/backend/backend.go
@@ -20,6 +20,7 @@ import (
 	"io"
 	"os"
 	"path/filepath"
+	"strconv"
 	"sync"
 	"sync/atomic"
 	"time"
@@ -574,6 +575,12 @@ func (b *backend) defrag() error {
 }
 
 func defragdb(odb, tmpdb *bolt.DB, limit int) error {
+	if defragWaitStr := os.Getenv("HACK_DEFRAG_WAIT_SECONDS"); defragWaitStr != "" {
+		if defragWaitSeconds, err := strconv.Atoi(defragWaitStr); err != nil && defragWaitSeconds > 0 {
+			time.Sleep(time.Duration(defragWaitSeconds) * time.Second)
+		}
+	}
+
 	// open a tx on tmpdb for writes
 	tmptx, err := tmpdb.Begin(true)
 	if err != nil {