From 7cd319e88461c9ef700d4925b236b5091aef00a1 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Sat, 1 Dec 2007 08:19:17 +0000
Subject: Cleaning up dir and some code

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

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

diff --git a/shorewall-check-html.lsp b/shorewall-check-html.lsp
new file mode 100644
index 0000000..0378928
--- /dev/null
+++ b/shorewall-check-html.lsp
@@ -0,0 +1,27 @@
+<? local view = ... ?>
+
+<h1>Firewall configuration</h1>
+
+<h2>SHOREWALL CHECK RESULT</h2>
+<textarea name="checkresult" style="width:100%;height:400px;"><?= view.check.result ?></textarea>
+
+<h2>SHOW CONFIG FILES</h2>
+
+<dt><?= html.link{value = view.url .. "/list", label="View all files/configs" } ?></dt>
+<dd>Provide a autogenerated list of files in '/etc/shorewall'.</dd>
+
+<h2>MANAGEMENT</h2>
+
+<dt>Preform check of configs</dt>
+<dd><form name="check" action="" method="POST"><input type=submit name="cmd" value="check" style="width:100px"></form></dd>
+
+<dt>Preform restart of firewall</dt>
+<dd><form name="check" action="<? io.write(view.url .. "/read") ?>" method="POST"><input type=submit name="cmd" value="restart" style="width:100px"></form><? if (view.check.restart) then io.write(view.programstats.restart) end ?></dd>
+
+<?
+--[[ DEBUG INFORMATION
+require("debugs")
+io.write(debugs.variables(view))
+--]]
+?>
+
-- 
cgit v1.2.3