<%
'=====================================================
' 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 = "
"
' -----------------------------------------------------
%>
<%
' -- 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 = "
"
Const LIMG_COMPUTERS_LRG = "
"
Const LIMG_CONTROL = "
"
Const LIMG_CONTROL_LRG = "
"
Const LIMG_DATA_TABLE = "
"
Const LIMG_DATA_TABLE_OFF = "
"
Const LIMG_DISK = "
"
Const LIMG_DRILL_DOWN = "
"
Const LIMG_EDIT = "
"
Const LIMG_EDIT_OFF = ""
Const LIMG_LOGOFF = "
"
Const LIMG_LOGON_FAIL = "
"
Const LIMG_LOGON_SUCCESS = "
"
Const LIMG_REMOVE = "
"
Const LIMG_ROLE = "
"
Const LIMG_ROLE_OFF = ""
Const LIMG_ROLE_LRG = "
"
Const LIMG_SESSION_EXPIRE = "
"
Const LIMG_SPEC_ROLE = "
"
Const LIMG_SPEC_ROLE_OFF = ""
Const LIMG_SPEC_ROLE_LRG = "
"
Const LIMG_USER = "
"
Const LIMG_USER_DISABLED = "
"
Const LIMG_USER_DISABLED_LRG = "
"
Const LIMG_USER_LRG = "
"
' -----------------------------------------------------
%>