Updated lbu to use new cfe model and components

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-conf/trunk@1197 ab2d0c66-481e-0410-8bed-d214d4d58bed

1 files changed, 19 insertions, 31 deletions

diff --git a/lbu-expert-html.lsp b/lbu-expert-html.lsp
index ed87ade..04dfd45 100644
--- a/lbu-expert-html.lsp
+++ b/lbu-expert-html.lsp
@@ -1,4 +1,4 @@
-<? local form = ... 
+<? local form, viewlibrary = ... 
 require("viewfunctions")
 ?>
 <?
@@ -9,40 +9,28 @@ io.write("</span>")
 --]]
 ?>
 
-<H1>SYSTEM INFO</H1>
-<DL>
-<? 
-local myform = form.status 
-local tags = { "status", "version", }
-displayinfo(myform,tags,"viewonly")
-?>
-</DL>
-
-
-<h1>CONFIGURATION</h1>
-<form name="myform" action="" method="POST">
+<? if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("basicstatus")
+end ?>
 
-<H2>EXPERT CONFIGURATION</H2>
-<H3>FILE DETAILS</H3>
+<h1>Configuration</h1>
+<H2>File Details</H2>
 <DL>
-<? 
-local myform = form.file
-local tags = { "filename", "filesize", "mtime", "sumerrors" }
-displayinfo(myform,tags,"viewonly")
+<?
+displayitem(form.value.filename)
+displayitem(form.value.filesize)
+displayitem(form.value.mtime)
 ?>
 </DL>
 
-<H3>FILE CONTENT</H3>
-<? 
-io.write(html.form[myform.filecontent.type](myform.filecontent))
-?>
+<H2>File Content</H2>
+<? if form.descr then ?><P CLASS='descr'><?= string.gsub(form.descr, "\n", "<BR>") ?></P><? end ?>
+<? if form.errtxt then ?><P CLASS='error'><?= string.gsub(form.errtxt, "\n", "<BR>") ?></P><? end ?>
+<form action="" method="POST">
+<textarea name="filecontent">
+<?= form.value.filecontent.value ?>
+</textarea>
+<? if form.value.filecontent.errtxt then ?><P CLASS='error'><?= string.gsub(form.value.filecontent.errtxt, "\n", "<BR>") ?></P><? end ?>
 
-<H2>Save and apply above settings</H2>
-<DL>
-<? 
-local myform = form.file
-local tags = { "cmdsave", }
-displayinfo(myform,tags)
-?>
-</DL>
+<DL><DT><input class="submit" type="submit" name="<?= form.option ?>" value="<?= form.option ?>"></DT></DL>
 </form>