Added a 'Guided configuration' for Shorewall. This is a test!

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

1 files changed, 62 insertions, 10 deletions

diff --git a/shorewall-controller.lua b/shorewall-controller.lua
index 27da886..a2ff244 100644
--- a/shorewall-controller.lua
+++ b/shorewall-controller.lua
@@ -23,19 +23,10 @@ local function getstatus(self)
 	return status
 end
 
-local function displaycmdsave(self)
-	-- Add a cmd button to the view
-	local cmdsave = cfe({ name="cmdsave",
-		label="Save/Apply above settings",
-		value="Save",
-		type="submit",
-		})
-	return cmdsave
-end
-
 local function displaycmdmanagement(disablestart,disablestop,disablerestart)
 	-- Add a management buttons
 	local management = {}
+---[[
 	management.start = cfe({ name="cmdmanagement",
 		label="Program control-panel",
 		value="Start",
@@ -46,6 +37,7 @@ local function displaycmdmanagement(disablestart,disablestop,disablerestart)
 		value="Stop",
 		type="submit",
 		})
+--]]
 	management.restart = cfe({ name="cmdmanagement",
 		label="Program control-panel",
 		value="Restart",
@@ -60,10 +52,70 @@ local function displaycmdmanagement(disablestart,disablestop,disablerestart)
 	return management
 end
 
+local function displaycmdsave(self)
+	-- Add a cmd button to the view
+	local cmdsave = cfe({ name="cmdsave",
+		label="Save/Apply above settings",
+		value="Save",
+		type="submit",
+		})
+	return cmdsave
+end
+
 function status(self)
 	return { status=getstatus(self) }
 end
 
+function config(self)
+	local config=self.model:getconfig()
+	local status=getstatus(self)
+
+	-- Add a [New] record to the options
+	table.insert(config.zones_list.option, "[New]")
+	table.insert(config.policies_list.option, "[New]")
+
+	-- Add button
+	config.zones_list_cmd = cfe ({
+		name="zones_list_cmd",
+		label="Edit above record",
+		value="Edit",
+		type="submit",
+		disabled="yes",
+		})
+	config.zones_list_cmd.descr="Mark a item in above list before pressing [" .. config.zones_list_cmd.value .. "]"
+
+	-- Add button
+	config.policies_list_cmd = cfe ({
+		name="policies_list_cmd",
+		label="Edit above record",
+		value="Edit",
+		type="submit",
+		disabled="yes",
+		})
+	config.zones_list_cmd.descr="Mark a item in above list before pressing [" .. config.zones_list_cmd.value .. "]"
+
+	-- Add button
+	config.rules_list_cmd = cfe ({
+		name="rules_list_cmd",
+		label="Edit above record",
+		value="Edit",
+		type="submit",
+		disabled="yes",
+		})
+	config.zones_list_cmd.descr="Mark a item in above list before pressing [" .. config.zones_list_cmd.value .. "]"
+
+	-- Management buttons
+	-- Display management buttons
+	local management = displaycmdmanagement(disablestart,disablestop,disablerestart)
+
+	return {
+		status=status,
+		config=config,
+		management = management,
+
+		}
+end
+
 --[=[
 function config(self)
 	local cmdmanagement, cmdmanagementresult