Subversion Repositories DevTools

   '-----------------------------------------------------------------------------------------------------------------

   Public Sub MasqueradeAsUser ( sUserName, sRealUserName  )

      Dim rsQry, query, sMessage

      sMessage = NULL

      moOraDatabase.Parameters.Add "USER_NAME",      sUserName,       ORAPARM_INPUT, ORATYPE_VARCHAR2

      query = "SELECT usr.*  FROM USERS usr  WHERE usr.USER_NAME = :USER_NAME"

      Set rsQry = moOraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )

      moOraDatabase.Parameters.Remove "USER_NAME"

      '--- Try Authenticating ---

      If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then

         ' User Found !

         If rsQry("is_disabled") = enumDB_YES  Then

            ' User Disabled !

            sMessage = "Account <b>"& sUserName &"</b> is Disabled!"

            '-- Raise Exception --

            Err.Raise 8, sMessage, ""

         Else

            ' Proceed with authentication

            '   Kill Any pervious User Permissions stored in session

            Session.Contents.Remove(enumUSER_STATIC_PERMISSIONS)

            Session.Contents.Remove(enumUSER_DATA_PERMISSIONS)

            Call SessionsAndCookieSetup ( rsQry("user_id") )

            '-- Login Trail --

            sMessage = "Masquerading as " & sUserName 

            Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_FAIL, sRealUserName, sMessage )

            sMessage = "Masqueraded by " & sRealUserName 

            Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_FAIL, sUserName, sMessage )

         End If

      Else

         ' User Not Found !

         sMessage = "Account <b>"& sUserName &"</b> Not Found!"

         '-- Raise Exception --

         Err.Raise 8, sMessage, "Make sure the Username is correct."

      End If

      '--------------------------

      rsQry.Close()

      Set rsQry = Nothing

    End Sub