From 983dc66684999e03685a496f17ca75f81cd21ffe Mon Sep 17 00:00:00 2001
From: Bharat Mediratta <bharat@menalto.com>
Date: Wed, 13 May 2009 01:32:11 +0000
Subject: Display the server load average in the platform block.  Fixes ticket
 #198.

---
 core/helpers/core_block.php              | 6 ++++++
 core/views/admin_block_platform.html.php | 3 +++
 2 files changed, 9 insertions(+)

diff --git a/core/helpers/core_block.php b/core/helpers/core_block.php
index 16af66b0..2fd0b342 100644
--- a/core/helpers/core_block.php
+++ b/core/helpers/core_block.php
@@ -64,6 +64,12 @@ class core_block_Core {
       $block->css_id = "gPlatform";
       $block->title = t("Platform Information");
       $block->content = new View("admin_block_platform.html");
+      if (is_readable("/proc/loadavg")) {
+        $block->content->load_average =
+          join(" ", array_slice(split(" ", array_shift(file("/proc/loadavg"))), 0, 3));
+      } else {
+        $block->content->load_average = t("Unavailable");
+      }
       break;
 
     case "project_news":
diff --git a/core/views/admin_block_platform.html.php b/core/views/admin_block_platform.html.php
index 1a43c715..6b79f047 100644
--- a/core/views/admin_block_platform.html.php
+++ b/core/views/admin_block_platform.html.php
@@ -12,4 +12,7 @@
   <li>
     <?= t("MySQL: %mysql_version", array("mysql_version" => Database::instance()->query("SELECT version() as v")->current()->v)) ?>
   </li>
+  <li>
+    <?= t("Server load: %load_average", array("load_average" => $load_average)) ?>
+  </li>
 </ul>
-- 
cgit v1.2.3