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

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

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

Added Files:
	auth.prg auth.xml 
Log Message:
Move all components to top level. Remove ocmng and xml2xmo sources. Add components:
- dbconsole
- form_menu, form_action and form_localization for menu generation
- update form component for generation menu

--- NEW FILE: auth.prg ---
/*-------------------------------------------------------------------------*/
/*   E/AS Component (part of E/AS project)								   */
/*						   								              	   */
/*   Copyright (C) 2005 by E/AS Software Foundation	 					   */
/*   Author: Andrey Cherepanov <sk...@ea...>						   */
/*   																	   */
/*   This program is free software; you can redistribute it and/or modify  */
/*   it under the terms of the GNU General Public License as               */
/*   published by the Free Software Foundation; either version 2 of the    */
/*   License, or (at your option) any later version.                       */
/*-------------------------------------------------------------------------*/

/*--------------------------------------------------------------------------/
/ 																		    /
/ Name:		User authentication										   	    /
/ System name:	auth													    /
/ Description:	User authentication										    /
/ Version:	0.1															    /
/ Author: 	Andrey Cherepanov <sk...@ea...>						    /
/ 																		    /
/ Available commands:													    /
/   AUTH		Authenticate user									   	    /
/	<params>	Authenticate parameters									    /
/ 																		    /
/--------------------------------------------------------------------------*/
#define DEFAULT_AUTH_METHOD	'PAM'
/** Component: auth */

parameters cMethod, params

local cContent:=''
local oErr, i, err:=''
local authMethod := DEFAULT_AUTH_METHOD, cfg
local cCmd, cStdOut:=space(0), cStdErr:=space(0)
local user, password, authString

eDebug(12, "AUTH method:", cMethod, params)

oErr := ErrorBlock({|e| break(e) })
begin sequence

  /*=========================================================================*/
  // AUTH()
  if lower(cMethod) == 'authenticate'
	

	cfg := EASGetConfig()
	cMethod := cfg:getValue('AUTH','METHOD')
	if .not. empty(cMethod)
		authMethod := cMethod
	endif
	
	// PAM authentication
	if upper(cMethod) == 'PAM'
		cCmd := cfg:getValue('AUTH','PAM')
		
		// Substitute CLIPROOT if neccessary
		cCmd := strtran(cCmd, '$CLIPROOT', getenv("CLIPROOT"))
		
		if empty(cCmd) .or. .not. file(cCmd)
			eDebug(2, "AUTH: 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'")
			return .F.
		endif
		
		authString := params:name+" "+params:password+"&\n"
		syscmd(cCmd, authString, @cStdOut, @cStdErr)
		//if ( syscmd(cCmd, authString, @cStdOut, @cStdErr) != 0 )
               	//eDebug(2, "AUTH executable error:",cCmd)
               	//return .F.
		//endif
		eDebug(2, "AUTH result:",cStdOut)
		if left(cStdOut,2) == "OK"
			eDebug(12, "AUTH: access granted for", params:name)
			return .T. // Access granted
		else
			eDebug(12, "AUTH: access denied for", params:name)
			return .F. // Access denied
		endif
		
	endif
  endif	
recover using oErr
	i := 1
	while ( !empty(ProcName(i)) )
		err += "Called from "+allTrim(ProcName(i)) + ;
			":" + alltrim(str(ProcLine(i))) + chr(10)
		i++
	end

	eDebug(5, "Component internal error:", errorMessage(oErr))
	return NIL
end sequence

return .F.

--- NEW FILE: auth.xml ---
<?xml version="1.0" encoding="koi8-r" standalone="no" ?>  

<component>
	<name>auth</name>
	<category>Core/Security</category>
	<version>0.1</version> 
	<description>User authentication</description>
	<license>GNU/GPL</license> 
	<created>2006-04-23</created> 
	<modified>2006-06-04</modified> 
	
	<requires>
		<dependence type="component">../forms/form.xml</dependence>
	</requires>
 	
	<author>Skull</author>
	
	<data>
		<objects depository="ETC0101" class="mng_form">
			<object>
				<attr name="name">auth.po</attr>
				<attr name="type">application/x-clip-plugin</attr>
				<attr name="description">Authentication plugin</attr>
				<attr name="content">auth.po</attr>
			</object>
		</objects>
		<objects depository="ETC0101" class="mng_command">
			<object>
				<attr name="name">authenticate</attr>
				<attr name="component_name">auth</attr>
				<attr name="form" refTo="ETC0101:mng_form">auth.po</attr>
				<attr name="description"><![CDATA[Authenticate user.
					Arguments:
						method - String. Authentication method. Default: 'PAM'.
						params - Map. Parameters (name:C,password:C).
					Returns:
						Logical. .T. if access is granted.]]></attr>
			</object>
		</objects>
	</data>		
	
	<locale lang="ru">
		<name>auth</name>
		<description>áÕÔÅÎÔÉÆÉËÁÃÉÑ ÐÏÌØÚÏ×ÁÔÅÌÅÊ</description>
  	</locale>

</component>