openwrt-packages-dist/net/privoxy-luci/files/luasrc/controller/privoxy.lua

--[[
LuCI - Lua Configuration Interface

Copyright 2014 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

	http://www.apache.org/licenses/LICENSE-2.0

$Id$
]]--

module("luci.controller.privoxy", package.seeall)

local NX   = require "nixio"
local NXFS = require "nixio.fs"
local HTTP = require "luci.http"
local IPKG = require "luci.model.ipkg"
local UCI  = require "luci.model.uci"
local SYS  = require "luci.sys"
local UTIL = require "luci.util"

version_luci_app = "1.0.0"	-- luci-application / openwrt Makefile compatible version
version_required = "3.0.22"	-- minimum required service version

function index()
	local _service	= "privoxy"
	local _vermin	= "3.0.22"
	local _verinst
	local _util	= require "luci.util"
	local _ipkg	= require "luci.model.ipkg"
	local _info	= _ipkg.info(_service)
	for _, v in pairs(_info) do
		if v.Package == _service and v.Status.installed then
			_verinst = v.Version
			break
		end
	end
	local _sver = _util.split(_verinst, "[%.%-]", nil, true)
	local _rver = _util.split(_vermin , "[%.%-]", nil, true)

	-- check config file and version 
	if not nixio.fs.access("/etc/config/" .. _service )
	    or (tonumber(_sver[1]) or 0) < (tonumber(_rver[1]) or 0)
	    or (tonumber(_sver[2]) or 0) < (tonumber(_rver[2]) or 0)
	    or (tonumber(_sver[3]) or 0) < (tonumber(_rver[3]) or 0)
	    or (tonumber(_sver[4]) or 0) < (tonumber(_rver[4]) or 0) then
		entry( {"admin", "services", "privoxy"}, cbi("privoxy/apperror", 
			{hideapplybtn=true, hidesavebtn=true, hideresetbtn=true }), _("Privoxy WEB proxy"), 59)
	else
		entry( {"admin", "services", "privoxy"}, cbi("privoxy/detail"), _("Privoxy WEB proxy"), 59)
		entry( {"admin", "services", "privoxy", "logview"}, call("logread") ).leaf = true
		entry( {"admin", "services", "privoxy", "startstop"}, call("startstop") ).leaf = true
		entry( {"admin", "services", "privoxy", "status"}, call("get_pid") ).leaf = true
	end
end

-- called by XHR.get from detail_logview.htm
function logread()
	-- read application settings
	local uci     = UCI.cursor()
	local logdir  = uci:get("privoxy", "privoxy", "logdir") or "/var/log"
	local logfile = uci:get("privoxy", "privoxy", "logfile") or "privoxy.log"
	uci:unload("privoxy")

	local lfile=logdir .. "/" .. logfile
	local ldata=NXFS.readfile(lfile)
	if not ldata or #ldata == 0 then
		ldata="_nodata_"
	end
	HTTP.write(ldata)
end

-- called by XHR.get from detail_startstop.htm
function startstop()
	local pid = get_pid(true)
	if pid > 0 then
		SYS.call("/etc/init.d/privoxy stop")
		NX.nanosleep(1)		-- sleep a second
		if NX.kill(pid, 0) then	-- still running
			NX.kill(pid, 9)	-- send SIGKILL
		end
		pid = 0
	else
		SYS.call("/etc/init.d/privoxy start")
		NX.nanosleep(1)		-- sleep a second
		pid = tonumber(NXFS.readfile("/var/run/privoxy.pid") or 0 )
		if pid > 0 and not NX.kill(pid, 0) then
			pid = 0		-- process did not start
		end
	end
	HTTP.write(tostring(pid))	-- HTTP needs string not number
end

-- called by XHR.poll from detail_startstop.htm
-- and from lua (with parameter "true")
function get_pid(from_lua)
	local pid = tonumber(NXFS.readfile("/var/run/privoxy.pid") or 0 )
	if pid > 0 and not NX.kill(pid, 0) then
		pid = 0
	end
	if from_lua then
		return pid
	else
		HTTP.write(tostring(pid))	-- HTTP needs string not number
	end
end

-- get the "name" of the current active theme
function get_theme()
	local _uci  = UCI.cursor()
	local _base = _uci:get("luci", "main", "mediaurlbase")	-- only pathname
	_uci:unload("luci")

	for k, v in pairs(luci.config.themes) do
		if k:sub(1, 1) ~= "." and v == _base then
			return k
		end
	end
	return nil
end

-- read version information for given package if installed
function ipkg_version(package)
	if not package then
		return nil
	end
	local _info = IPKG.info(package)
	local _data = {}
	local _version = ""
	local i = 0
	for k, v in pairs(_info) do
		if v.Package == package and v.Status.installed then
			_version = v.Version
			i = i + 1
		end
	end
	if i > 1 then	-- more then one valid record
		return _data
	end
	local _sver = UTIL.split(_version, "[%.%-]", nil, true)
	_data = {
		version = _version,
		major   = tonumber(_sver[1]) or 0,
		minor   = tonumber(_sver[2]) or 0,
		patch   = tonumber(_sver[3]) or 0,
		build   = tonumber(_sver[4]) or 0
	}
	return _data
end

-- replacement of build-in Flag.parse of cbi.lua
-- modified to mark section as changed if value changes
-- current parse did not do this, but it is done AbstaractValue.parse()
function flag_parse(self, section)
	local fexists = self.map:formvalue(
		luci.cbi.FEXIST_PREFIX .. self.config .. "." .. section .. "." .. self.option)

	if fexists then
		local fvalue = self:formvalue(section) and self.enabled or self.disabled
		local cvalue = self:cfgvalue(section)
		if fvalue ~= self.default or (not self.optional and not self.rmempty) then
			self:write(section, fvalue)
		else
			self:remove(section)
		end
		if (fvalue ~= cvalue) then self.section.changed = true end
	else
		self:remove(section)
		self.section.changed = true
	end
end