From 1f2bc0676beae8672512edc37fff46a5e76b02a2 Mon Sep 17 00:00:00 2001
From: Alexander Poslavsky <alexander.poslavsky@gmail.com>
Date: Fri, 2 Nov 2007 09:24:00 +0000
Subject: trying to get shorewall to install+status indicator

git-svn-id: svn://svn.alpinelinux.org/acf/shorewall/trunk@251 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 shorewall-read-html.lsp | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 shorewall-read-html.lsp

(limited to 'shorewall-read-html.lsp')

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>
-- 
cgit v1.2.3