From e0b7bd24427cdc3b98a35c2105063d42a05dbab7 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Sat, 22 Dec 2007 11:25:29 +0000
Subject: Added graphic-bars to show usage/free on some values

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-baselayout/trunk@448 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 health-system-html.lsp | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'health-system-html.lsp')

diff --git a/health-system-html.lsp b/health-system-html.lsp
index 6bb0887..62d366c 100644
--- a/health-system-html.lsp
+++ b/health-system-html.lsp
@@ -14,4 +14,22 @@
 <h3>Name</h3>
 <pre><?= view.system.uname ?></pre>
 <h3>Memory</h3>
-<pre><?= view.system.memory ?></pre>
+<pre><?= view.system.memory.value ?></pre>
+
+<TABLE STYLE="margin:0px;padding:0px;border:0px">
+	<TR>
+		<TD>0%</TD><TD WIDTH="<?= view.system.memory.used ?>%" STYLE="background:red;"><CENTER><?= view.system.memory.used ?>%</CENTER></TD><TD WIDTH="<?= (100-view.system.memory.used) ?>%" STYLE="background:green;"><CENTER><?= (100-view.system.memory.used) ?>%</CENTER></TD><TD>100%</TD>
+	</TR>
+</TABLE>
+<TABLE STYLE="margin:0px;padding:0px;border:0px">
+	<TR>
+		<TD WIDTH="100px"><B><?= view.system.memory.used_label ?></B></TD><TD STYLE="background:red;" WIDTH="20px"></TD><TD WIDTH="70px"><B>=Used</B></TD><TD STYLE="background:green;" WIDTH="20px"></TD><TD><B>=Free</B></TD>
+	</TR>
+</TABLE>
+
+<?
+--[[ DEBUG INFORMATION
+require("debugs")
+io.write(debugs.variables(view))
+--]]
+?>
-- 
cgit v1.2.3