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>
|
