From 2efe10ee27653bda832641dc52a82142a767820f Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Tue, 8 Apr 2008 15:17:39 +0000
Subject: Added 2 libraries. viewfunctions.lua is used by the view-files to
 present data. processinfo.lua shows autostartsequence and packageversion.

git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@964 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lib/processinfo.lua | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 lib/processinfo.lua

(limited to 'lib/processinfo.lua')

diff --git a/lib/processinfo.lua b/lib/processinfo.lua
new file mode 100644
index 0000000..3b27663
--- /dev/null
+++ b/lib/processinfo.lua
@@ -0,0 +1,31 @@
+
+module(..., package.seeall)
+
+require("posix")
+
+function package_version(packagename)
+	local cmderrors
+	local f = io.popen( "/sbin/apk_version -vs " .. packagename .." | egrep -v 'acf' 2>/dev/null" )
+	local cmdresult = f:read("*l")
+	if (cmdresult) and (#cmdresult > 0) then
+		cmdresult = (string.match(cmdresult,"^%S*") or "Unknown")
+	else
+		cmderrors = "Program not installed"
+	end	
+	f:close()
+	return cmdresult,cmderrors
+end
+
+function process_botsequence(processname)
+	local cmderrors
+	local f = io.popen( "/sbin/rc_status | egrep '^S' | egrep '" .. processname .."' 2>/dev/null" )
+	local cmdresult = f:read("*a")
+	if (cmdresult) and (#cmdresult > 0) then
+		cmdresult = "Process will autostart at next boot (at sequence '" .. string.match(cmdresult,"^%a+(%d%d)") .. "')"
+	else
+		cmderrors = "Not programmed to autostart"
+	end	
+	f:close()
+	return cmdresult,cmderrors
+end
+
-- 
cgit v1.2.3