Subversion Repositories DevTools

Rev

Rev 3927 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3927 Rev 3940
Line 55... Line 55...
55
55
56 
	Public Property Get LastVisit ()
 56 
	Public Property Get LastVisit ()
57 
		LastVisit = Extract( "last_visit", Session(enumUSER_DETAILS_SESSION) )
 57 
		LastVisit = Extract( "last_visit", Session(enumUSER_DETAILS_SESSION) )
58 
	End Property
 58 
	End Property
59
59
- 
 
 60 
   Public Property Get Domain ()
- 
 
 61 
      Domain = Extract( "domain", Session(enumUSER_DETAILS_SESSION) )
- 
 
 62 
   End Property
- 
 
 63 
 
- 
 
 64 
   Public Property Get isDevSystem()
- 
 
 65 
      isDevSystem = FALSE
- 
 
 66 
      If OraDatabase.DatabaseName = "RELMANU1" Then isDevSystem = TRUE
- 
 
 67 
   End Property
- 
 
 68 
 
60 
	'-----------------------------------------------------------------------------------------------------------------
 69 
	'-----------------------------------------------------------------------------------------------------------------
61 
	Public Function UserApplication ( nAppId )
 70 
	Public Function UserApplication ( nAppId )
62 
		UserApplication = FALSE
 71 
		UserApplication = FALSE
63
72
64 
		If InStr( sSEPARATOR & Session(enumUSER_APPLICATIONS_SESSION) & sSEPARATOR,  sSEPARATOR & nAppId & sSEPARATOR)  Then
 73 
		If InStr( sSEPARATOR & Session(enumUSER_APPLICATIONS_SESSION) & sSEPARATOR,  sSEPARATOR & nAppId & sSEPARATOR)  Then
Line 352... Line 361...
352 
	Private Function Authenticated ( ByRef sUserName, ByRef sUserPassword, sDBUserPassword, sDBdomain )
 361 
	Private Function Authenticated ( ByRef sUserName, ByRef sUserPassword, sDBUserPassword, sDBdomain )
353 
		Dim objLoginAuth, return, sMessage
 362 
		Dim objLoginAuth, return, sMessage
354 
		sMessage = NULL
 363 
		sMessage = NULL
355
364
356 
		Authenticated = FALSE
 365 
		Authenticated = FALSE
- 
 
 366 
 
- 
 
 367 
      ' Hook for testing access control features
- 
 
 368 
      ' Any login allowed to the Test Database
- 
 
 369 
      '
- 
 
 370 
      If isDevSystem() Then
- 
 
 371 
        Authenticated = TRUE
357
372 
 
- 
 
 373 
        '-- Login Trail --
- 
 
 374 
        Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_SUCCESS, sUserName, NULL )
- 
 
 375 
 
358 
		If NOT IsNull(sDBdomain) Then
 376 
      ElseIf NOT IsNull(sDBdomain) Then
359 
			' DOMAIN auth.
 377 
			' DOMAIN auth.
360
378
361 
			Set objLoginAuth = Server.CreateObject("LoginAdmin.ImpersonateUser")
 379 
			Set objLoginAuth = Server.CreateObject("LoginAdmin.ImpersonateUser")
362
380
363 
			return = -1
 381 
			return = -1
Line 477... Line 495...
477
495
478 
			Session(enumUSER_DETAILS_SESSION) = _
 496 
			Session(enumUSER_DETAILS_SESSION) = _
479 
				"user_name="& rsUser("user_name") & sSEPARATOR &_
 497 
				"user_name="& rsUser("user_name") & sSEPARATOR &_
480 
				"full_name="& rsUser("full_name") & sSEPARATOR &_
 498 
				"full_name="& rsUser("full_name") & sSEPARATOR &_
481 
				"user_email="& rsUser("user_email") & sSEPARATOR &_
 499 
				"user_email="& rsUser("user_email") & sSEPARATOR &_
482 
				"last_visit="& rsUser("last_visit")
500 
            "last_visit="& rsUser("last_visit") & sSEPARATOR &_
- 
 
 501 
            "domain="& rsUser("domain")
483
502
484 
		End If
 503 
		End If
485
504
486
505
487
506