From a0f64cff3dfc675ed5ea641c10be72c842b693d5 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 4 Jul 2008 14:54:19 +0000
Subject: Modified lbu to use controllerfunctions, modelfunctions, and common
 lsp files.  Moved basicstatus->status and status->listchanges.

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-conf/trunk@1276 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lbu-status-html.lsp | 31 ++++++++++++++-----------------
 1 file changed, 14 insertions(+), 17 deletions(-)

(limited to 'lbu-status-html.lsp')

diff --git a/lbu-status-html.lsp b/lbu-status-html.lsp
index afe0164..6b8a77d 100644
--- a/lbu-status-html.lsp
+++ b/lbu-status-html.lsp
@@ -9,23 +9,20 @@ io.write("</span>")
 --]]
 ?>
 
-<? if viewlibrary and viewlibrary.dispatch_component then
-	viewlibrary.dispatch_component("basicstatus")
-	if session.permissions.lbu.commit then
-		viewlibrary.dispatch_component("commit")
+<H1>System Info</H1>
+<DL>
+<?
+if view.value.committed.value then
+	view.value.committed.value = "There are no uncommitted files"
+else
+	view.value.committed.value = "WARNING!\nUntil you commit, you will lose your changes at next reboot/shutdown!"
+end
+view.value.committed.type = "string"
+displayitem(view.value.committed)
+
+for name,value in pairs(view.value) do
+	if name ~= "committed" then
+		displayitem(value)
 	end
 end ?>
-
-<H1>Changes Since Last Commit</H1>
-<DL>
-	<dt>Files changed since last commit</dt>
-	<dd><pre><? 
-		if (#view.value == 0) then
-			io.write("None")
-		else
-			for i,file in pairs(view.value) do
-				io.write(file.status .. "\t" .. file.name .. "\n")
-			end
-		end
-	?></pre></DD>
 </DL>
-- 
cgit v1.2.3