SERVER-24511 Make frequency with which background job that kills timed-out cursors is run configurable

1 files changed, 5 insertions, 2 deletions

diff --git a/src/mongo/s/query/cluster_cursor_cleanup_job.cpp b/src/mongo/s/query/cluster_cursor_cleanup_job.cpp
index a7e4159c9b5..068d06ac98a 100644
--- a/src/mongo/s/query/cluster_cursor_cleanup_job.cpp
+++ b/src/mongo/s/query/cluster_cursor_cleanup_job.cpp
@@ -51,6 +51,9 @@ ExportedServerParameter<long long, ServerParameterType::kStartupAndRuntime>
                               "cursorTimeoutMillis",
                               &cursorTimeoutMillis);
 
+// Frequency with which ClusterCursorCleanupJob is run.
+MONGO_EXPORT_SERVER_PARAMETER(clientCursorMonitorFrequencySecs, long long, 4);
+
 }  // namespace
 
 ClusterCursorCleanupJob clusterCursorCleanupJob;
@@ -67,8 +70,8 @@ void ClusterCursorCleanupJob::run() {
     while (!inShutdown()) {
         manager->killMortalCursorsInactiveSince(Date_t::now() -
                                                 Milliseconds(cursorTimeoutMillis.load()));
-        manager->reapZombieCursors();
-        sleepFor(Seconds(4));
+        manager->incrementCursorsTimedOut(manager->reapZombieCursors());
+        sleepsecs(clientCursorMonitorFrequencySecs);
     }
 }