Subversion Repositories DevTools

Rev

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

Rev 8 Rev 3943
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 296... Line 305...
296 
				Err.Raise 8, sMessage, ""
305 
				Err.Raise 8, sMessage, ""
297
306
298 
			Else
 307 
			Else
299
308
300 
				' Proceed with authentication
 309 
				' Proceed with authentication
301 
				If Authenticated( sUserName, sUserPassword, rsQry("user_password"), "VIX" ) Then
 310 
				If Authenticated( sUserName, sUserPassword, rsQry("user_password"), rsQry("domain") ) Then
302 
					' Login OK.
 311 
					' Login OK.
303 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
 312 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
304
313
305 
					' Tag user login
 314 
					' Tag user login
306 
					Call TagLogon ( rsQry )
 315 
					Call TagLogon ( rsQry )
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