trying to get shorewall to install+status indicator

git-svn-id: svn://svn.alpinelinux.org/acf/shorewall/trunk@251 ab2d0c66-481e-0410-8bed-d214d4d58bed

1 files changed, 27 insertions, 0 deletions

diff --git a/shorewall-read-html.lsp b/shorewall-read-html.lsp
new file mode 100644
index 0000000..0ea1ec8
--- /dev/null
+++ b/shorewall-read-html.lsp
@@ -0,0 +1,27 @@
+<? local view = ... ?>
+
+<h1>Edit</h1>
+
+<? --Status Block
+    for i,item in ipairs(view.note or {}) do
+        ?><p class='error'><?= item.content ?></p><?
+    end
+?>
+
+<table border=0>
+<? local sct=""
+for i,item in ipairs(view.list) do
+    if item.section ~= sct then
+        ?><tr><td colspan='3'><h2><?= item.section ?></td></tr><?
+        sct = item.section
+    end
+    ?><tr><td><?= item.status or '' ?><?
+    ?><td><?= html.link{
+        value = view.script .. view.prefix .. view.controller .. "/"
+        .. view.action .. "?id=" .. tostring(item.id),
+        label=item.name
+    }
+    ?></td><td><?= item.descr
+    ?></td></tr><? 
+end -- vim: set filetype=lua : ?>
+</table>