From 4be7e5a5819bc8c880a462d90633f957f1cb9c92 Mon Sep 17 00:00:00 2001
From: Michael Vogel <icarus@dabo.de>
Date: Sun, 24 Jul 2016 11:22:44 +0200
Subject: [PATCH] "Fast lane" mechanism to reserve one queue for priority
 processes

---
 include/poller.php | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/include/poller.php b/include/poller.php
index 3f1c1d3089..f71872c579 100644
--- a/include/poller.php
+++ b/include/poller.php
@@ -39,7 +39,7 @@ function poller_run(&$argv, &$argc){
 		return;
 
 	// Checking the number of workers
-	if (poller_too_much_workers($entries, $queues, $maxqueues)) {
+	if (poller_too_much_workers($entries, $queues, $maxqueues, $active)) {
 		poller_kill_stale_workers();
 		return;
 	}
@@ -58,7 +58,7 @@ function poller_run(&$argv, &$argc){
 		sleep(4);
 
 	// Checking number of workers
-	if (poller_too_much_workers($entries, $queues, $maxqueues))
+	if (poller_too_much_workers($entries, $queues, $maxqueues, $active))
 		return;
 
 	$cooldown = Config::get("system", "worker_cooldown", 0);
@@ -78,7 +78,7 @@ function poller_run(&$argv, &$argc){
 			return;
 
 		// Count active workers and compare them with a maximum value that depends on the load
-		if (poller_too_much_workers($entries, $queues, $maxqueues))
+		if (poller_too_much_workers($entries, $queues, $maxqueues, $active))
 			return;
 
 		$argv = json_decode($r[0]["parameter"]);
@@ -91,16 +91,25 @@ function poller_run(&$argv, &$argc){
 		/// @todo Better check for priority processes
 		$priority = array("delivery_run", "notifier_run", "pubsubpublish_run");
 
+		// Reserve a speed lane
+		if (($active == ($queues - 1)) AND ($maxqueues >= 2) AND !in_array($funcname, $priority)) {
+			logger("Delay call to '".$funcname."' to reserve a speed lane for high priority processes", LOGGER_DEBUG);
+			$delay = true;
+		}
+
 		// Delay other processes if the system has a high load and there are many pending processes.
 		// The "delayed" value is a safety mechanism for the case when there are no high priority processes in the queue.
-		if ((($queues / $maxqueues) <= 0.5) AND (($entries > 100) AND ($delayed < 100)) AND !in_array($funcname, $priority)) {
-			q("UPDATE `workerqueue` SET `created` = '%s' WHERE `id` = %d",
-				dbesc(datetime_convert()),
-				intval($r[0]["id"]));
-
+		if (!$delay AND (($queues / $maxqueues) <= 0.5) AND (($entries > 100) AND ($delayed < 100)) AND !in_array($funcname, $priority)) {
 			// Count the number of delayed processes
 			++$delayed;
 			logger("Delay call to '".$funcname."' for performance reasons (Delay ".$delayed.")", LOGGER_DEBUG);
+			$delay = true;
+		}
+
+		if ($delay) {
+			q("UPDATE `workerqueue` SET `created` = '%s' WHERE `id` = %d",
+				dbesc(datetime_convert()),
+				intval($r[0]["id"]));
 			continue;
 		}
 
@@ -268,7 +277,7 @@ function poller_kill_stale_workers() {
 		}
 }
 
-function poller_too_much_workers(&$entries, &$queues, &$maxqueues) {
+function poller_too_much_workers(&$entries, &$queues, &$maxqueues, &$active) {
 
 	$entries = 0;
 
-- 
2.39.5