Subversion Repositories DevTools

Rev

Rev 1281 | Rev 3937 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1281 Rev 3928
Line 115... Line 115...
115 
      Dim tempArr, tempSTR
 115 
      Dim tempArr, tempSTR
116 
 
 116 
 
117 
      tempArr = Split( sString, sSEPARATOR )
 117 
      tempArr = Split( sString, sSEPARATOR )
118 
      tempSTR = Join( Filter( tempArr, sField &"=" ) )   ' Append "=" to field name to get e.g. "user_name="
 118 
      tempSTR = Join( Filter( tempArr, sField &"=" ) )   ' Append "=" to field name to get e.g. "user_name="
119 
 
 119 
 
120 
      Extract = Right( tempSTR, Len(tempSTR) - Len( sField &"=" ))   ' Strip the filed name from value
 120 
      Extract = Right( tempSTR, Len(tempSTR) - Len( sField &"=" ))   ' Strip the fieled name from value
121 
 
 121 
 
122 
   End Function
 122 
   End Function
123 
   '-----------------------------------------------------------------------------------------------------------------
 123 
   '-----------------------------------------------------------------------------------------------------------------
124 
   Private Function GetDataPermission ( sTableName, nRowId, nPermissionType )
 124 
   Private Function GetDataPermission ( sTableName, nRowId, nPermissionType )
125 
      Dim cPermissionValue
 125 
      Dim cPermissionValue
Line 349... Line 349...
349 
            Err.Raise 8, sMessage, ""
 349 
            Err.Raise 8, sMessage, ""
350 
 
 350 
 
351 
         Else
 351 
         Else
352 
 
 352 
 
353 
            ' Proceed with authentication
 353 
            ' Proceed with authentication
354 
            If Authenticated( sUserName, sUserPassword, rsQry("user_password"), "VIX" ) Then
 354 
            If Authenticated( sUserName, sUserPassword, rsQry("user_password"), rsQry("domain") ) Then
355 
               ' Login OK.
 355 
               ' Login OK.
356 
               Call SessionsAndCookieSetup ( rsQry("user_id") )
 356 
               Call SessionsAndCookieSetup ( rsQry("user_id") )
357 
 
 357 
 
358 
               ' Tag user login
 358 
               ' Tag user login
359 
               Call TagLogon ( rsQry )
 359 
               Call TagLogon ( rsQry )
Line 433... Line 433...
433 
      Dim objLoginAuth, return, sMessage
 433 
      Dim objLoginAuth, return, sMessage
434 
      sMessage = NULL
 434 
      sMessage = NULL
435 
 
 435 
 
436 
      Authenticated = FALSE
 436 
      Authenticated = FALSE
437 
 
 437 
 
- 
 
 438 
      ' Hook for testing access control features
- 
 
 439 
      ' Any login allowed to the Test Database
- 
 
 440 
      '
- 
 
 441 
      If OraDatabase.DatabaseName = "RELMANU1" Then
- 
 
 442 
        Authenticated = TRUE
- 
 
 443 
 
- 
 
 444 
        '-- Login Trail --
- 
 
 445 
        Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_SUCCESS, sUserName, NULL )
- 
 
 446 
 
438 
      If NOT IsNull(sDBdomain) Then
 447 
      ElseIf NOT IsNull(sDBdomain) Then
439 
         ' DOMAIN auth.
 448 
         ' DOMAIN auth.
440 
 
 449 
 
441 
         Set objLoginAuth = Server.CreateObject("LoginAdmin.ImpersonateUser")
 450 
         Set objLoginAuth = Server.CreateObject("LoginAdmin.ImpersonateUser")
442 
 
 451 
 
443 
         return = -1
 452 
         return = -1