summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorMike Mason <ms13sp@gmail.com>2007-11-23 18:32:46 +0000
committerMike Mason <ms13sp@gmail.com>2007-11-23 18:32:46 +0000
commitbf5d83c373f610aea01220b74b77590bdf0a473f (patch)
tree0a365dffc7c4081bc2d913ea3353f5fccacdcbb4 /lib
parent65461dce7f8de33ca4c61a855876ac11cda4e825 (diff)
downloadacf-core-bf5d83c373f610aea01220b74b77590bdf0a473f.tar.bz2
acf-core-bf5d83c373f610aea01220b74b77590bdf0a473f.tar.xz
Cleaning up libraries
git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@363 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'lib')
-rw-r--r--lib/Makefile3
-rw-r--r--lib/log_view.lua56
-rw-r--r--lib/service_controller.lua189
-rw-r--r--lib/service_model.lua115
4 files changed, 0 insertions, 363 deletions
diff --git a/lib/Makefile b/lib/Makefile
index 5fa957c..9c726ae 100644
--- a/lib/Makefile
+++ b/lib/Makefile
@@ -3,12 +3,9 @@ include ../config.mk
LIB_DIST=fs.lua\
html.lua\
join.lua\
- log_view.lua\
menubuilder.lua\
pidof.lua\
privsep.lua\
- service_controller.lua\
- service_model.lua\
session.lua\
split.lua\
validator.lua\
diff --git a/lib/log_view.lua b/lib/log_view.lua
deleted file mode 100644
index f32400e..0000000
--- a/lib/log_view.lua
+++ /dev/null
@@ -1,56 +0,0 @@
-require ("web_elements")
-
-local function fwrite(fmt, ...)
- return io.write(string.format(fmt, ...))
-end
-
-local function footer(time)
- fwrite("<div id=\"footer\">\n<p>This request was processed in approximately %d seconds</p>\n</div>",time)
-end
-
-header = [[
-content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//ddD HTML 4.01 Transitional//EN">
-<html lang="en">
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
-<title>Alpine log view</title>
-<link rel="stylesheet" type="text/css" href="/static/webconf.css" />
-<meta http-equiv='Cache-Control' content='no-cache' />
-<Meta http-equiv='Pragma' content='no-cache' />
-</head>]]
-
---
-
-print(header)
-print("<body>\n<div id=\"head\">")
-
-fwrite("<h1>%s</h1>",cf.hostinfo.alpine_hostname)
-
-fwrite("<p><em>%s</em></p>",cf.hostinfo.alpine_release)
-
-print("</div>")
-
-print ('<div id="mainmenu">')
-local group, cat, subcat =
- web_elements.render_mainmenu ( menu, cf.prefix, cf.controller, cf.action )
-print([[
-</div>
-
-<div id="submenu">]])
-web_elements.render_submenu ( menu, group, cat, subcat )
-print([[</div>
-
-<div id="content">
-<p>]])
--- get the wc and view tables
--- walk the tree
-web_elements.render_table ( view )
-print("</p>\n</div>")
-
-print(footer(cf.time))
-print("</body></html>")
-
--- /* vim: set filetype=lua : */
diff --git a/lib/service_controller.lua b/lib/service_controller.lua
deleted file mode 100644
index 09595a4..0000000
--- a/lib/service_controller.lua
+++ /dev/null
@@ -1,189 +0,0 @@
-local function build_status(model, name)
- return {
- type = "form",
- method = "post",
- action = cf.uri .. "/chrun",
- value = {
- {
- type = "formtext",
- name = "status",
- label = "Status: <B>" .. name .. "</B>",
- value = model.status(name)
- },
- {
- type = "hidden",
- name = "service",
- value = name
- },
- {
- type = "submit",
- name = "cmd",
- label = "Running controls",
- value = { "Start", "Stop", "Restart" }
- },
- }
- }
-end
-
-local function build_note(model, name)
- return {
- type = "form",
- method = "post",
- action = cf.uri .. "/note_set",
- value = {
- {
- type = "textarea",
- name = "note",
- label = "Notes",
- cols = 80,
- rows = 8,
- value = model.get_note(name)
- },
- {
- type = "submit",
- label = "Command",
- value = "Save"
- }
- }
- }
-end
-
-local function mkerr(str)
- return {
- {
- type = "formtext",
- class = "error",
- value = str
- }
- }
-end
-
-local function mkresult(str)
- return {
- {
- type = "formtext",
- value = str
- }
- }
-end
-
-local function chrun(model, name, ucmd)
- local cmd = string.lower(ucmd)
- --TODO chect that name is in get_service_names()
- if cmd ~= "start" and cmd ~= "stop" and cmd ~= "restart" then
- return mkerr("unknown command")
- end
- return mkresult(model.initd(name, cmd))
-end
-
-local function build_log_file(model, name)
- return {
- type = "group",
- label = name,
- text = "FILE " .. model.get_log_names()[name].path,
- value = {
- {
- type = "log",
- lines = model.get_log_producer(name)
- }
- }
- }
-end
-
-local function build_edit_file(model, name)
- return {
- type = "form",
- method = "post",
- action = cf.uri .. "/cfg_set",
- value = {
- {
- type = "textarea",
- name = "cfg",
- label = name,
- cols = 80,
- rows = 12,
- value = model.get_cfg(name)
- },
- {
- type = "hidden",
- name = "name",
- value = name
- },
- {
- type = "submit",
- label = "Command",
- value = "Save"
- }
- }
- }
-
-end
-
-local function build_cfg(model)
- local ret = {}
- for name, whatever in pairs(model.get_cfg_names()) do
- table.insert(ret, build_edit_file(model, name))
- end
- return ret
-end
-
-local function set_cfg(model)
- for name, whatever in pairs(model.get_cfg_names()) do
- if name == FORM.name then
- model.set_cfg(name, FORM.cfg)
- return
- end
- end
- return mkerr("unknown config")
-end
-
-local function build_log(model)
- local ret = {}
- for name, whatever in pairs(model.get_log_names()) do
- table.insert(ret, build_log_file(model, name))
- end
- return ret
-end
-
-local function build_service(model)
- local ret = {}
- for name, whatever in pairs(model.get_service_names()) do
- table.insert(ret, build_status(model, name))
- end
- table.insert(ret, build_note(model))
- return ret
-end
-
-function create_service_controller()
-
- local me = {}
-
- me.service = build_service
- me.default = me.service
- me.cfg = build_cfg
- me.log = build_log
-
- function me.chrun(model)
- return chrun(model, FORM.service, FORM.cmd)
- end
-
- function me.note_set(model)
- local ret = model.set_note(FORM.note)
- if ret then
- return ret
- end
- return me.service(model)
- end
-
-
- function me.cfg_set(model)
- set_cfg(model)
- return me.cfg(model)
- end
-
- return me
-
-end
-
--- /* vim: set filetype=lua shiftwidth=4: */
-
diff --git a/lib/service_model.lua b/lib/service_model.lua
deleted file mode 100644
index 3f81794..0000000
--- a/lib/service_model.lua
+++ /dev/null
@@ -1,115 +0,0 @@
-require("fs")
-
-function create_service_model(cfglist, loglist, servlist, notepath)
-
- local me = {}
-
- local function get_any_pid(pname)
- for e in posix.files("/proc") do
- if e == string.match(e, "^%d*$") then
- for line in io.lines("/proc/" .. e .. "/status") do
- tag, val = string.match(line, "^([^:]*):%s*(%S*)$");
- if tag == "Name" then
- if val == pname then return e end
- break
- end
- end
- end
- end
- end
-
- local function get_cfg_path(name)
- if not cfglist or not cfglist[name] then
- return
- end
- return cfglist[name].path
- end
-
- local function get_log_path(name)
- if not loglist or not loglist[name] then
- return
- end
- return loglist[name].path
- end
-
- --[[ Public Functions go here ]]--
-
- function me.status(name)
- if not servlist or not servlist[name] then
- return "unknown service"
- end
- local cmdname = servlist[name].cmdname
- if get_any_pid(cmdname) == nil then
- return "seems to be stopped"
- else
- return "seems to be running"
- end
- end
-
- function me.initd(name, action)
- if not servlist or not servlist[name] then
- return "unknown service"
- end
- local p = io.popen("/etc/init.d/"
- .. servlist[name].initdname .. " " .. action, "r")
- local ret = p:read("*a")
- p:close()
- return ret
- end
-
- function me.get_note()
- if not notepath or not fs.is_file(notepath) then return "" end
- return fs.read_file(notepath)
- end
-
- function me.set_note(value)
- if notepath == nil then return end
- fs.write_file(notepath, value)
- end
-
- function me.get_cfg_names()
- return cfglist
- end
-
- function me.get_log_names()
- return loglist
- end
-
- function me.get_service_names()
- return servlist
- end
-
- function me.get_cfg(name)
- local path = get_cfg_path(name)
- if not path or not fs.is_file(path) then
- return ""
- end
- return fs.read_file(path)
- end
-
- function me.set_cfg(name, value)
- local path = get_cfg_path(name)
- if path then
- fs.write_file(path, value)
- end
- end
-
--- local function wrap_single(x)
--- return function(state, prev)
--- if not prev then
--- return x
--- end
--- end
--- end
-
- function me.get_log_producer(name)
- local path = get_log_path(name)
- if not path or not fs.is_file(path) then
- return "cannot access " .. path
- end
- return io.lines(path)
- end
-
- return me
-
-end
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-25 13:20:04 +0000