Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 6240
Line 406... Line 406...
406
      End If
406
      End If
407
      '--------------------------
407
      '--------------------------
408
      rsQry.Close()
408
      rsQry.Close()
409
      Set rsQry = Nothing
409
      Set rsQry = Nothing
410
   End Sub
410
   End Sub
-
 
411
 
-
 
412
   '-----------------------------------------------------------------------------------------------------------------
-
 
413
   Public Sub MasqueradeAsUser ( sUserName, sRealUserName  )
-
 
414
      Dim rsQry, query, sMessage
-
 
415
      sMessage = NULL
-
 
416
 
-
 
417
      moOraDatabase.Parameters.Add "USER_NAME",      sUserName,       ORAPARM_INPUT, ORATYPE_VARCHAR2
-
 
418
 
-
 
419
      query = "SELECT usr.*  FROM USERS usr  WHERE usr.USER_NAME = :USER_NAME"
-
 
420
      Set rsQry = moOraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
-
 
421
 
-
 
422
      moOraDatabase.Parameters.Remove "USER_NAME"
-
 
423
 
-
 
424
      '--- Try Authenticating ---
-
 
425
      If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
-
 
426
         ' User Found !
-
 
427
 
-
 
428
         If rsQry("is_disabled") = enumDB_YES  Then
-
 
429
            ' User Disabled !
-
 
430
            sMessage = "Account <b>"& sUserName &"</b> is Disabled!"
-
 
431
 
-
 
432
            '-- Raise Exception --
-
 
433
            Err.Raise 8, sMessage, ""
-
 
434
 
-
 
435
         Else
-
 
436
 
-
 
437
            ' Proceed with authentication
-
 
438
            '   Kill Any pervious User Permissions stored in session
-
 
439
            Session.Contents.Remove(enumUSER_STATIC_PERMISSIONS)
-
 
440
            Session.Contents.Remove(enumUSER_DATA_PERMISSIONS)
-
 
441
 
-
 
442
            Call SessionsAndCookieSetup ( rsQry("user_id") )
-
 
443
 
-
 
444
            '-- Login Trail --
-
 
445
            sMessage = "Masquerading as " & sUserName 
-
 
446
            Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_FAIL, sRealUserName, sMessage )
-
 
447
 
-
 
448
            sMessage = "Masqueraded by " & sRealUserName 
-
 
449
            Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_FAIL, sUserName, sMessage )
-
 
450
 
-
 
451
         End If
-
 
452
 
-
 
453
      Else
-
 
454
         ' User Not Found !
-
 
455
         sMessage = "Account <b>"& sUserName &"</b> Not Found!"
-
 
456
 
-
 
457
         '-- Raise Exception --
-
 
458
         Err.Raise 8, sMessage, "Make sure the Username is correct."
-
 
459
 
-
 
460
      End If
-
 
461
      '--------------------------
-
 
462
      rsQry.Close()
-
 
463
      Set rsQry = Nothing
-
 
464
    End Sub
-
 
465
 
411
   '-----------------------------------------------------------------------------------------------------------------
466
   '-----------------------------------------------------------------------------------------------------------------
412
   Public Function RequiresPasswordUpdate ( sUserName )
467
   Public Function RequiresPasswordUpdate ( sUserName )
413
      Dim rsQry, query, sMessage
468
      Dim rsQry, query, sMessage
414
      sMessage = NULL
469
      sMessage = NULL
415
 
470