1 files changed, 59 insertions, 0 deletions
diff --git a/rc-model.lua b/rc-model.lua
new file mode 100644
index 0000000..189d381
--- /dev/null
+++ b/rc-model.lua
@@ -0,0 +1,59 @@
+module (..., package.seeall)
+
+require("processinfo")
+require("validator")
+
+local config
+
+status = function()
+	config = config or processinfo.read_startupsequence()
+	return cfe({ type="structure", value=config, label="Startup Sequence Status" })
+end
+
+read_sequence = function(servicename)
+	local value = {}
+	value.servicename = cfe({ value=servicename or "", label="Service Name" })
+	value.sequence = cfe({ label="Startup Sequence" })
+	value.kill = cfe({ type="boolean", value=false, label="Add kill link for shutdown" })
+	value.system = cfe({ type="boolean", value=false, label="System init service" })
+
+	-- read in the value for the servicename
+	config = config or processinfo.read_startupsequence()
+	for i,conf in ipairs(config) do
+		if conf.servicename == servicename then
+			value.sequence.value = conf.sequence
+			value.kill.value = conf.kill
+			value.system.value = conf.system
+			break
+		end
+	end
+	
+	return cfe({ type="group", value=value, label="Service Startup Sequence"})
+end
+
+
+update_sequence = function(sequence)
+	local success = false
+	sequence.value.servicename.errtxt = "Invalid service"
+	for name in posix.files("/etc/init.d") do
+		if name == sequence.value.servicename.value then
+			success = true
+			sequence.value.servicename.errtxt = nil
+		end
+	end
+	if sequence.value.sequence.value ~= "" and not validator.is_integer_in_range(sequence.value.sequence.value, 1, 99) then
+		success = false
+		sequence.value.sequence.errtxt = "Invalid sequence number"
+	end
+	if success then
+		if sequence.value.sequence.value == "" then
+			sequence.descr, sequence.errtxt = processinfo.delete_startupsequence(sequence.value.servicename.value)
+		else
+			sequence.descr, sequence.errtxt = processinfo.add_startupsequence(sequence.value.servicename.value, sequence.value.sequence.value, sequence.value.kill.value, sequence.value.system.value)
+		end
+	else
+		sequence.errtxt = "Failed to set sequence"
+	end
+
+	return sequence
+end