summaryrefslogtreecommitdiffstats
path: root/lbu-expert-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'lbu-expert-html.lsp')
-rw-r--r--lbu-expert-html.lsp50
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>