Subversion Repositories DevTools

<%

'=====================================================

'					CONFIG FILE

'=====================================================

%>

<%

' -- VARIABLE DEFINITION ------------------------------

Dim OraSession, OraDatabase		' DB connection

Dim QUERIES_PATH

Dim SCRIPT_NAME

Dim TNS_NAME, DB_AUTHENTICATION

Dim APP_ROOT

Dim rootPath

Dim scriptName

Dim SMTP_HOST

Dim ACCESS_MANAGER_URL

Dim strRelativePath             ' Rel Path from script to URL

Dim managerSuiteBase            ' Url to the base of the Manager Suite

Dim FavIcon                     ' Favorite Icon

Dim RmDebug                     ' Debug Display

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

%>

<%

' -- DATABASE CONNECTIONS -----------------------------

'Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'OraSession.CreateDatabasePool 1,10,100, Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), 0

'Set OraDatabase = OraSession.GetDatabaseFromPool(10)

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))

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

%>

<%

' -- 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

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

'Returns the server of the package archive

Function Get_Mail_Server()

   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"

   Dim rsTemp

   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )

   Get_Mail_Server = rsTemp("config")

   rsTemp.Close()

   Set rsTemp = Nothing

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 (ManageSuite/Release_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

' -- CONFIGURATIONS -----------------------------------

Const DOC_FOLDER = "doc"

Const TEMP_FOLDER = "temp"

Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table

APP_ROOT = Server.MapPath(".")

TNS_NAME = Application("TNS_NAME") '"RELEASEM"

DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema

QUERIES_PATH = APP_ROOT &"\queries"

scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )

rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )

SMTP_HOST = Get_Mail_Server()

Const ADMIN_EMAIL = "VixIT@vixtechnology.com"

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

Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products

strRelativePath = GetPathToBase()

managerSuiteBase = GetManagerSuiteBase()

ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"

FavIcon = strRelativePath & "favicons/PM" & Application("FavIconSuffix") & ".png"

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

%>

<%

' -- VARIABLE INITIALISATION --------------------------

SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )

Const enumDB_DIFF_NO_CHANGE = 0

Const enumDB_DIFF_UPDATED = 2

Const enumDB_DIFF_NEW = 1

Const enumDB_DIFF_REMOVED = -1

Const enumPRODUCTS_BASE_VIEW_ID = 5					' Release Manager products base view id

Const enumAUTOPRODUCTS_BASE_VIEW_ID = 2602					' Release Manager auto_products base view id

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

%>

<%

' -- CONSTANTS --------------------------------------

Const enumDB_DEFAULT_EMPTY = -1

Const enumISSUES_STATE_FIXED = 1

Const enumCLEARQUEST_TDSE_ID = 3

Const enumCLEARQUEST_DEVI_ID = 4

Const enumCLEARQUEST_VT5DM_ID = 5

Const enumCLEARQUEST_VTSUP_ID = 7

Const enumISSUES_STATE_IMPORTED = 0

Const enumDB_YES = "Y"

Const enumDB_NO = "N"

Const enumDEFAULT = "default"

Const enumCOOKIE_NAME = "DeploymentManager"

Const enumSEPARATOR_LABEL = "SEPARATOR_LABLE"

Const enumDB_ALL_DATA = 0

Const SPACER = "<img src='images/spacer.gif' width='1' height='1'>"

Const enumMSSQL_ERROR = "<img src='icons/i_no_db_connection.gif' width='16' height='17' hspace='2' border='0' align='absmiddle' title='3rd party database is off-line'><SPAN class='body_txtr'>Information not currently available.</SPAN>"

Const enumSESSION_COPY_TYPE = "COPY_TYPE"

Const enumSESSION_COPY_ITEMS = "COPY_ITEMS"

Const enumSESSION_COPY_FROM = "COPY_FROM"

Const enumLOADING = "Loading..."

'----- TESTS ------------------------------------------

Const enumTEST_TYPE_SANITY = 2

Const enumTEST_TYPE_NOT_DONE = 1

' -- ACTION TRAIL -------------------------------------

Const enumAT_EVENT_COMMENT 	= 0

Const enumAT_EVENT_ADDED 	= 1

Const enumAT_EVENT_MODIFIED = 2

Const enumAT_EVENT_REMOVED 	= 3

Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"

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

%>

<%

' -- 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 --------------------------------------

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

' -- Other Configuration -----------------------------

Const enum_RELMGR_COOKIE_DOMAIN = "RELMGR_USER_COOKIES"

Const COOKIE_HIDE_FILES_FILTER = "COOKIE_HIDE_FILES_FILTER"

Const COOKIE_HIDE_DEPS_FILTER = "COOKIE_HIDE_DEPS_FILTER"

Const COOKIE_HIDE_DIFF_FILTER = "COOKIE_HIDE_DIFF_FILTER"

Const COOKIE_RELMGR_SHOW_VIEW = "COOKIE_RELMGR_SHOW_VIEW"

Const COOKIE_RELEASE_MANAGER_MEMORY = "RELEASE_MANAGER_MEMORY"

Const COOKIE_PATCH_OPTIONS_FILTER = "COOKIE_PATCH_OPTIONS_FILTER"

%>