WebSVN – DevTools – /ManagerSuite/Access_Manager/trunk/web/common/config.asp

<%
'=====================================================
'                   CONFIG FILE
'=====================================================
%>
<%
' -- VARIABLE DEFINITION ------------------------------
Dim OraSession, OraDatabase     ' DB connection
Dim QUERIES_PATH
Dim SCRIPT_NAME
Dim APP_ROOT
Dim strRelativePath             ' Rel Path from script to URL
Dim FavIcon                     ' Favorite Icon
Dim RmDebug                     ' Debug Display
Dim managerSuiteBase
Dim ACCESS_MANAGER_URL
Dim DEPLOYMENT_MANAGER_URL
Dim PRODUCTION_MANAGER_URL
Dim RELEASE_MANAGER_URL

' -- Basic Functions ----------------------------------
' --------------------------------------------------------------------------------------
' Determine if a variable or Const exists and is not empty
'   Use to check if a vbscript variable has been declared and contains a non-empty value
Function isDefined( var)
    If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
        isDefined = TRUE
    Else
        isDefined = FALSE
   End If
End Function

' --------------------------------------------------------------------------------------
' Return a relative path to the server base. Used for relative pathing to 'images'
' Assumes server base is two directores below the web serve root (ie: /ManageSuite/XXXXXX_Manager)
Function GetPathToBase()
    Dim url,depth,rv,ii
    url = request.servervariables("URL")
    depth =  len(url) - len(replace(url, "/", ""))
    rv = ""
    For ii = 4 To depth
        rv = rv & "../"
    Next
    GetPathToBase = rv
End Function
' --------------------------------------------------------------------------------------
' Return a URL to the base of the Manager suite
' Assumes this is one directory down from the web server root
Function GetManagerSuiteBase
    Dim data
    data = Split(request.servervariables("URL"),"/")
    GetManagerSuiteBase =  "/" & data(1)
End Function

'-----------------------------------------------------------------------------------------------------------------------------
'   Destroy_All_Objects
'   Should be used by ALL pages and error handling code in order to reduce memory and handle leaks
'   May be used directly or via _footer.asp or globals_destructor.asp
Sub Destroy_All_Objects
    On Error Resume Next
    '   Some global objects
    Set objAccessControl = Nothing
    Set objPMod = Nothing
    Set objEH = Nothing
    Set objTabControl = Nothing
    Set objBtnControl = Nothing
    Set objFormCollector = Nothing

    '   Delete ALL Oracle bound variables
    '   Note: Bound Variables that remain at the end of a Page Process will cause an Oracle Session leak
    If TypeName(OraDatabase) = "IOraDatabase" Then
        While OraDatabase.Parameters.Count > 0
            OraDatabase.Parameters.Remove(0)
        Wend
    End  If

    '   Some commonly used database objects
    rsTemp.Close
    Set rsTemp = Nothing

    rsRep.Close
    Set rsRep = Nothing

    rsQry.Close
    Set rsQry = Nothing

    '   Database objects
    set OraDatabase = Nothing
    set OraSession = Nothing
End Sub

' -- DATABASE CONNECTIONS -----------------------------
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), Cint(0))

' -- CONFIGURATIONS -----------------------------------
APP_ROOT = Server.MapPath(".")
QUERIES_PATH = APP_ROOT &"\queries"
Const ADMIN_EMAIL = "VixIT@vixtechnology.com"
Const APPLICATION_ID = 9                        ' Stored in Access Manager, [APPLICATIONS] table
Const enumDB_PERMISSION_TYPE_VISIBLE = 1        ' Stored in Access Manager, [Permission_Types] table
Const enumDB_PERMISSION_TYPE_ACTIVE = 2         ' Stored in Access Manager, [Permission_Types] table

' -- VARIABLE INITIALISATION --------------------------
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
strRelativePath = GetPathToBase()
FavIcon = strRelativePath & "favicons/AM" & Application("FavIconSuffix") & ".png"
managerSuiteBase = GetManagerSuiteBase()
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
DEPLOYMENT_MANAGER_URL  = ManagerSuiteBase & "/Deployment_Manager"
PRODUCTION_MANAGER_URL  = ManagerSuiteBase & "/Production_Manager"
RELEASE_MANAGER_URL     = ManagerSuiteBase & "/Release_Manager"

' -- CONSTANTS ----------------------------------------
Const enumDB_DEFAULT_EMPTY = -1
Const enumDB_YES = "Y"
Const enumDB_NO = "N"
Const enumCOOKIE_NAME = "ACCESS_MANAGER"
Const SPACER = "<img src='images/spacer.gif' width='1' height='1'>"
' -----------------------------------------------------
%>
<%
' -- OO4O ---------------------------------------------
const ORATYPE_VARCHAR2 = 1
const ORATYPE_NUMBER = 2
const ORATYPE_SINT = 3
const ORATYPE_FLOAT = 4
const ORATYPE_STRING = 5
const ORATYPE_VARCHAR = 9
const ORATYPE_DATE = 12
const ORATYPE_UINT = 68
const ORATYPE_RAW = 95
const ORATYPE_CHAR = 96
const ORATYPE_CHARZ = 97
const ORATYPE_MLSLABEL = 105
const ORATYPE_OBJECT = 108
const ORATYPE_REF = 110
const ORATYPE_CLOB = 112
const ORATYPE_BLOB = 113
const ORATYPE_BFILE = 114
const ORATYPE_VARRAY = 247
const ORATYPE_TABLE = 248
const ORATYPE_CURSOR = 102

const ORAPARM_INPUT=1   
const ORAPARM_OUTPUT=2  
const ORAPARM_BOTH=3

const ORADYN_DEFAULT=&H0&
' -----------------------------------------------------
%>
<%
' -- ERROR MESSAGES -----------------------------------
' -----------------------------------------------------
%>
<%
' -- ICONS --------------------------------------------
' -- ICONS SMALL --------------------------------------
Const LIMG_COMPUTERS = "<img src='images/i_computer.gif' width='11' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_COMPUTERS_LRG = "<img src='images/i_computer_lrg.gif' width='18' height='18' hspace='2' border='0' align='absmiddle'>"
Const LIMG_CONTROL = "<img src='images/i_control.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_CONTROL_LRG = "<img src='images/i_control_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_DATA_TABLE = "<img src='images/i_data_table.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is ON)'>"
Const LIMG_DATA_TABLE_OFF = "<img src='images/i_data_table_off.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is OFF)'>"
Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"
Const LIMG_DRILL_DOWN = "<img src='images/i_drill_down.gif' width='12' hspace='2' height='14' border='0'>"
Const LIMG_EDIT = "<img src='images/i_edit_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_EDIT_OFF = "<img src='images/i_edit_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
Const LIMG_LOGOFF = "<img src='icons/i_logoff.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logoff'>"
Const LIMG_LOGON_FAIL = "<img src='icons/i_logon_fail.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logon Fail'>"
Const LIMG_LOGON_SUCCESS = "<img src='icons/i_logon_success.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logon Successful'>"
Const LIMG_REMOVE = "<img src='images/i_remove_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_ROLE_OFF = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
Const LIMG_ROLE_LRG = "<img src='images/i_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_SESSION_EXPIRE = "<img src='icons/i_session_expire.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='Session Timed Out'>"
Const LIMG_SPEC_ROLE = "<img src='images/i_spec_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_SPEC_ROLE_OFF = "<img src='images/i_spec_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
Const LIMG_SPEC_ROLE_LRG = "<img src='images/i_spec_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_USER_DISABLED_LRG = "<img src='images/i_user_disabled_lrg.gif' width='17' height='18' hspace='2' border='0' align='absmiddle'>"
Const LIMG_USER_LRG = "<img src='images/i_user_lrg.gif' width='13' height='17' hspace='2' border='0' align='absmiddle'>"
' -----------------------------------------------------
%>
Subversion Repositories DevTools

(root)/ManagerSuite/Access_Manager/trunk/web/common/config.asp – Rev 6658
