From 378e53f20a0f11c36afffbaef78f47a5303df9ce Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Wed, 30 Apr 2008 20:36:02 +0000
Subject: Modified cfe, removing option, errtxt, and name, and adding label -
 This may break things. Rewrote password module, adding model Modified
 authenticator to make password module work

git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@1052 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 app/acf-util/password-status-html.lsp | 92 ++++++++++-------------------------
 1 file changed, 25 insertions(+), 67 deletions(-)

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

diff --git a/app/acf-util/password-status-html.lsp b/app/acf-util/password-status-html.lsp
index e6d15b0..b7c9b05 100755
--- a/app/acf-util/password-status-html.lsp
+++ b/app/acf-util/password-status-html.lsp
@@ -7,77 +7,35 @@ io.write("</span>")
 --]]
 ?>
 
-<?
-function displayinfo(myform,tags,viewonly)
-	io.write("<DL>")
-	for k,v in pairs(tags) do 
-		if (myform[v]) and (myform[v]["value"]) then
-			local val = myform[v] 
-			io.write("\t<DT")
-			if (#val.errtxt > 0) then 
-				val.class = "error"
-				io.write(" class='error'")
-			end
-			io.write(">" .. val.label .. "</DT>\n")
-			if (viewonly) then
-				io.write("\t\t<DD>" .. val.value .. "\n")
-			else
-				io.write("\t\t<DD>" .. html.form[val.type](val) .. "\n")
-			end
-			if (val.descr) and (#val.descr > 0) then io.write("\t\t<P CLASS='descr'>" .. string.gsub(val.descr, "\n", "<BR>") .. "</P>\n") end
-			if (#val.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(val.errtxt, "\n", "<BR>") .. "</P>\n") end
-			io.write("\t\t</DD>\n")
-		end
-	end
-	io.write("</DL>")
-end
-?>
-
 <H1>USER ACCOUNTS</H1>
 <H2>Create new account</H2>
-<form name="createnew" action="" method="POST">
-<? 
-local myform = form.status
-local tags = { "cmdnew", }
-displayinfo(myform,tags)
-?>
+<form action="newuser" method="POST">
+<dl><dt><input class="submit" type="submit" value="New User"></dt></dl>
 </form>
 <H2>Existing account</H2>
-<?
---function displayinfo(myform,tags,viewonly)
-local myform = form.status.users
-
-io.write("<DL>")
-if (type(myform) == "table") then
-	for k,v in pairs(myform) do
-		local myform = myform[k]
-		io.write("\t<DT")
-		if (#myform.errtxt > 0) then 
-			myform.class = "error"
-			io.write(" class='error'")
-		end
-		io.write("><IMG SRC='/static/tango/16x16/apps/system-users.png' HEIGHT='16' WIDTH='16'> " .. myform.label .. "</DT>\n")
-		io.write("\t\t<DD>\n\t\t<TABLE>")
-		io.write("\n\t\t\t<TR>\n\t\t\t\t<TD><B>".. myform.value.userid.label ..
-			"</B></TD>\n\t\t\t\t<TD WIDTH='90%'>" .. myform.value.userid.value .. "</TD>\n\t\t\t</TR>")
-		io.write("\n\t\t\t<TR>\n\t\t\t\t<TD><B>".. myform.value.username.label ..
-			"</B></TD>\n\t\t\t\t<TD>" .. myform.value.username.value .. "</TD>\n\t\t\t</TR>")
-		io.write("\n\t\t\t<TR>\n\t\t\t\t<TD><B>".. myform.value.roles.label ..
-			"</B></TD>\n\t\t\t\t<TD>" .. myform.value.roles.value .. "</TD>\n\t\t\t</TR>")
-		if (myform.value.errors) then
-			io.write("\n\t\t\t<TR>\n\t\t\t\t<TD CLASS='error'><B>".. myform.value.errors.label .. 
-				"</B></TD>\n\t\t\t\t<TD CLASS='error'>" .. myform.value.errors.value .. "</TD>\n\t\t\t</TR>")
-		end
-		io.write("</TD>\n\t\t\t</TR>")
-		io.write("\n\t\t\t<TR>\n\t\t\t\t<TD><B>Option</B></TD>\n\t\t\t\t<TD>[<A HREF='administrator?orguserid=".. myform.value.userid.value .. "'>Edit this account</A>]</TD>\n\t\t\t</TR>")
-		io.write("\n\t\t</TABLE>\n")
-		if (#myform.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(myform.errtxt, "\n", "<BR>") .. "</P>\n") end
-		io.write("\t\t</DD>\n")
-	end
-end
-io.write("</DL>")
-?>
-
+<DL>
+<? for name,user in pairs(form.value) do ?>
+	<DT><IMG SRC='/static/tango/16x16/apps/system-users.png' HEIGHT='16' WIDTH='16'> <?= name ?></DT>
+	<DD><TABLE>
+		<TR>
+			<TD><B><?= user.value.userid.label ?></B></TD>
+			<TD WIDTH='90%'><?= user.value.userid.value ?></TD>
+		</TR><TR>
+			<TD><B><?= user.value.username.label ?></B></TD>
+			<TD><?= user.value.username.value ?></TD>
+		</TR><TR>
+			<TD><B><?= user.value.roles.label ?></B></TD>
+			<TD><?= table.concat(user.value.roles.value, " / ") ?></TD>
+		</TR><TR>
+			<TD><B>Option</B></TD>
+			<TD>
+			[<A HREF='edituser?userid=<?= name ?>'>Edit this account</A>]
+			[<A HREF='deleteuser?userid=<?= name ?>'>Delete this account</A>]
+			</TD>
+		</TR>
+	</TABLE></DD>
+<? end ?>
+</DL>
 
 <?
 --[[ DEBUG INFORMATION
-- 
cgit v1.2.3