users_ValidateUser.txt

  // ----------------------------------------------------
  // users_ValidateUser : Validate User & password
  //
  // Parameters:
  //     $1: user name
  //     $2: password
  //
  // Return:
  //     $0 = true:password is valid
  //
  // Assumptions:
  //
  //
C_BOOLEAN($0)
C_TEXT($1;$user;$2;$password)

  //--- copy parameters to locals
$user:=$1
$password:=$2

  //--- locals
C_LONGINT($i)

  //--- code

  //
  // if you have your own user management system, add code here to validate user & passwprd
  //

  //--- maybe this is a 4D password system user (designer for ex.)
GET USER LIST($aUsers;$aIDs) // get list of user defined in the database
$i:=Find in array($aUsers;$user)
If ($i>0)
$0:=Validate password($aIDs{$i};$password)
Else 
$0:=False
End if