[Eas-dev-commit] ocmng/EAS/security auth.prg, 1.1, 1.2 auth.xml, 1.1, 1.2

[Andrey C. <sku...@us...>]

Update of /cvsroot/eas-dev/ocmng/EAS/security
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv2772/EAS/security

Modified Files:
	auth.prg auth.xml 
Log Message:
Add new components. Fix log policy for forms.

Index: auth.prg
===================================================================
RCS file: /cvsroot/eas-dev/ocmng/EAS/security/auth.prg,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- auth.prg	3 Nov 2006 16:31:59 -0000	1.1
+++ auth.prg	15 Nov 2006 11:16:18 -0000	1.2
@@ -33,8 +33,9 @@
 local authMethod := DEFAULT_AUTH_METHOD, cfg
 local cCmd, cStdOut:=space(0), cStdErr:=space(0)
 local user, password, authString
+local componentName:='auth' 
 
-eDebug(12, "AUTH method:", cMethod, params)
+eDebug( 29, componentName + " method:", cMethod, params )
 
 oErr := ErrorBlock({|e| break(e) })
 begin sequence
@@ -58,14 +59,14 @@
 		cCmd := strtran(cCmd, '$CLIPROOT', getenv("CLIPROOT"))
 		
 		if empty(cCmd) .or. .not. file(cCmd)
-			eDebug(2, "AUTH: file not found:", cCmd)
+			eDebug( 9, componentName + " file not found:", cCmd )
 			return .F.
 		endif
 		
 		params := params:params
 		
 		if assertParameters( params, { 'name:C', 'password:C' } )
-			eDebug(2, "AUTH: internal error: missing parameter 'name' and/or 'password'")
+			eDebug( 9, componentName + " internal error: missing parameter 'name' and/or 'password'" )
 			return .F.
 		endif
 		
@@ -75,12 +76,12 @@
                	//eDebug(2, "AUTH executable error:",cCmd)
                	//return .F.
 		//endif
-		eDebug(2, "AUTH result:",cStdOut)
+		eDebug( 39, componentName+" result:",cStdOut)
 		if left(cStdOut,2) == "OK"
-			eDebug(12, "AUTH: access granted for", params:name)
+			eDebug( 29, componentName + ": access granted for", params:name)
 			return .T. // Access granted
 		else
-			eDebug(12, "AUTH: access denied for", params:name)
+			eDebug( 29, componentName + ": access denied for", params:name)
 			return .F. // Access denied
 		endif
 		
@@ -94,7 +95,7 @@
 		i++
 	end
 
-	eDebug(5, "Component internal error:", errorMessage(oErr))
+	eDebug( 19, componentName + " internal error:", errorMessage(oErr) )
 	return NIL
 end sequence
 

Index: auth.xml
===================================================================
RCS file: /cvsroot/eas-dev/ocmng/EAS/security/auth.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- auth.xml	3 Nov 2006 16:31:59 -0000	1.1
+++ auth.xml	15 Nov 2006 11:16:18 -0000	1.2
@@ -7,7 +7,7 @@
 	<description>User authentication</description>
 	<license>GNU/GPL</license> 
 	<created>2006-04-23</created> 
-	<modified>2006-06-04</modified> 
+	<modified>2006-11-13</modified> 
 	
 	<requires>
 		<dependence type="component">../forms/form.xml</dependence>