From fbda79f377ffbad71b38d2ddf273913dc95ab177 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 1 May 2008 20:49:59 +0000
Subject: Modified roles, logon, and authenticator

git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@1095 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 app/acf-util/roles-html.lsp | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 app/acf-util/roles-html.lsp

(limited to 'app/acf-util/roles-html.lsp')

diff --git a/app/acf-util/roles-html.lsp b/app/acf-util/roles-html.lsp
new file mode 100644
index 0000000..4a23c25
--- /dev/null
+++ b/app/acf-util/roles-html.lsp
@@ -0,0 +1,38 @@
+<? local view= ... ?> 
+<? --[[
+	io.write(html.cfe_unpack(view))
+--]] ?>
+
+<? ---[[ ?>
+<? if view.value.userid then ?>
+	<H1>Roles/Permission list for <?= view.value.userid.value ?>:</H1>
+<? elseif view.value.role then ?>
+	<H1>Permission list for <?= view.value.role.value ?>:</H1>
+<? else ?>
+	<H1>Complete permission list:</H1>
+<? end ?>
+
+<? if view.value.roles then ?>
+	<H2><?= view.value.userid.value ?> is valid in these roles</H2>
+	<? for a,b in pairs(view.value.roles.value) do
+		print("<li>",b,"</li>")
+	end ?>
+<? end ?>
+<? --]] ?>
+
+<? ---[[ ?>
+<? if view.value.permissions then ?>
+	<? if view.value.userid then ?>
+		<H2><?= view.value.userid.value ?>'s full permissions are</H2>
+	<? elseif view.value.role then ?>
+		<H2><?= view.value.role.value ?>'s full permissions are</H2>
+	<? end ?>
+	<? for x,cont in pairs(view.value.permissions.value) do
+		print("<b>",x,"</b>")
+		for y,act in pairs(cont) do
+			print(y)
+		end
+		print("<br>")
+	end ?>
+<? end ?>
+<? --]] ?>
-- 
cgit v1.2.3