From 3928babbc55caa5c8b3914fa0a4c26a916c0dbbb Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Tue, 22 Jan 2008 14:34:18 +0000
Subject: Now you can modify the configurations. Committing and
 SimulatingCommit also works (still work in progress) Needs checks when
 creating encrypted archives.

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-conf/trunk@626 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lbu-commit-html.lsp | 85 ++++++++++++++++++++++++++++-------------------------
 1 file changed, 45 insertions(+), 40 deletions(-)

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

diff --git a/lbu-commit-html.lsp b/lbu-commit-html.lsp
index 1efc362..6164739 100644
--- a/lbu-commit-html.lsp
+++ b/lbu-commit-html.lsp
@@ -1,43 +1,48 @@
-<?
-local view = ...
-
-local function packURL(script, prefix, controller, action, extra)
-    ret = script .. "/" .. prefix .. controller .. "/" .. action
-    sep = '?'
-    for k,v in pairs(extra) do
-        ret = ret .. sep .. k .. '=' .. v
-        sep = '&'
-    end
-    return ret
-end
-?>
+<? local view = ... ?>
 
-<h1><?= view.title?></h1>
-<? if (table.maxn(view.data) > 0) then ?>
-	<h2>List</h2>
-<? end ?>
-<? for i,item in ipairs(view.note or {}) do ?>
-	<p class='error'><?= item.content ?></p>
-<? end ?>
-<? for i,item in ipairs(view.data) do ?>
-	<dt><?= item.name ?></dt><dd><?= item.status ?></dd>
-<? end ?>
+<h1>SYSTEM INFO</h1>
+
+<dl>
+	<dt>Program status</dt>
+		<dd><?= view.status.status or "" ?></dd>
+	<dt>Program version</dt>
+		<dd><?= view.status.version ?></dd>
+</dl>
+
+<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2>
+<dl>
+	<dt>Archives will be saved to</dt>
+		<dd><?= view.status.LBU_MEDIA or "" ?></dd>
+	<dt>Archives will be encrypted</dt>
+		<dd><? if (view.status.ENCRYPTION) then io.write("yes <I>(Using cipher: " .. view.status.DEFAULT_CIPHER .. ")</I>") else io.write("No") end ?></DD>
+</dl>
+
+<H1>MANAGEMENT</H1>
 
-<h2>Functions</h2>
-<dt>Save these changes</dt>
-<dd><?= html.form.start {
-    method="POST",
-    action = packURL(view.script, view.prefix,
-        view.controller, view.action, {})
-    }?>
-<?= html.form.submit { name = view.action, value = view.action }?>
-<?= html.form.stop() ?>
-</dd>
-
-<? for i,item in ipairs(view.text) do
-	if item.label then ?>
-		<h2><?= item.label ?></h2>
-	<? end ?>
-	<pre><?= item.content ?></pre>
+<H2>Save to media</h2>
+<form name="cmd" action="" method="POST">
+<dl>
+	<dt>Simulate/Test a commit</dt>
+		<dd><input type=submit class="submit" name="lbusimulate" value="simulate" ></dd>
+	<dt>Actually Commit and save changes</dt>
+		<dd><input type=submit class="submit" name="lbucommit" value="commit" ></dd>
+</dl>
+</form>
+
+
+
+
+<dl>
+<? if (view.cmdresult) then ?>
+	<dt>Result of previous action</dt>
+		<dd><pre><?= view.cmdresult ?></pre></DD>
 <? end ?>
-<? -- vim: set filetype=lua : ?>
+</dl>
+
+<?
+--[[ DEBUG INFORMATION
+require("debugs")
+io.write(debugs.variables(view))
+--]]
+?>
+
-- 
cgit v1.2.3