<%
'=====================================================
' CONFIG FILE
'=====================================================
%>
<%
' -- Variable Definition ------------------------------
Dim OraSession, OraDatabase ' DB connection
Dim scriptName
Dim rootPath
Dim DocRepositiryLink, DocRepositiryLinkOld, DocBrowseLink
Dim APP_ROOT, QUERIES_PATH
Dim archive_server
Dim lxr_server
Dim LXR_URL
Dim dpkg_archiveURL
Dim HTTP_PKG_ARCHIVE
Dim release_archiveURL
Dim ACCESS_MANAGER_URL
Dim DEPLOYMENT_MANAGER_URL
Dim PRODUCTION_MANAGER_URL
Dim RELEASE_MANAGER_URL
Dim ABTLOG_URL
Dim strRelativePath ' Rel Path from script to URL
Dim managerSuiteBase ' Url to the base of the Manager Suite
Dim siteRootUrl ' Full url to the base of the site
Dim MAIL_SERVER
Dim FAULT_EMAIL_LIST
Dim FavIcon ' Favorite Icon
Dim ServiceConfig ' All service config
Dim ForcePageLogon ' Page Protection Mode
Dim IndefPause ' Global indication of error
Dim VixVerNum : VixVerNum = 39 ' Bump to force cache reload of many resources
' -- Variable Initialisation --------------------------
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
'Set OraSession = Application("ORA_SESSION")
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
Set ServiceConfig = CreateObject("Scripting.Dictionary")
GetServiceConfig()
GetIndefPause()
' Kludge for testing messages/msg_xxxx
' Session(enum_RELMGR_ERRDESCRIPTION)="111|222|3333|444"
'--------------------------------------------------------------------------------------
'Populate ServiceConfig
Sub GetIndefPause()
IndefPause = FALSE
Dim sqry : sqry = "select * from run_level_schedule rls where rls.indefinite_pause = 'P'"
Dim rsTemp : Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
If rsTemp.RecordCount > 0 Then
IndefPause = TRUE
End If
rsTemp.Close()
Set rsTemp = Nothing
End Sub
'--------------------------------------------------------------------------------------
'Populate ServiceConfig
Sub GetServiceConfig()
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
Dim rsTemp : Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
Do While(rsTemp.EOF=FALSE)
Dim name : name = rsTemp(0)
Dim val : val = rsTemp(1)
ServiceConfig.Add name, val
rsTemp.MoveNext
Loop
rsTemp.Close()
Set rsTemp = Nothing
End Sub
'--------------------------------------------------------------------------------------
'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
'--------------------------------------------------------------------------------------
Function getSiteRootUrl()
dim siteRootUrl, protocol, hostname, port
if Request.ServerVariables("HTTPS") = "off" then
protocol = "http"
else
protocol = "https"
end if
siteRootUrl = protocol & "://"
hostname = Request.ServerVariables("HTTP_HOST")
siteRootUrl = siteRootUrl & hostname
getSiteRootUrl = siteRootUrl
End Function
'--------------------------------------------------------------------------------------
' 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
'--------------------------------------------------------------------------------------
' Get an application varibale as a Boolean with defult value
Function bGetApplication(name, defvalue)
If IsEmpty (Application(name)) Then
bGetApplication = CBool(defvalue)
Else
bGetApplication = CBool(Application(name))
End If
End Function
'--------------------------------------------------------------------------------------
' Debug Support function
' Add string to the debug string
Sub AddRmDebug(str)
If Len(RmDebug) > 0 Then RmDebug = RmDebug + ":"
RmDebug = RmDebug + Cstr(str)
End Sub
'-----------------------------------------------------------------------------------------------------------------------------
' Destroy_All_Objects
' Should be used by ALL pages and error handling code in order to reduce memory and handle leaks
' Needs to kept in sync with common/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 ServiceConfig = Nothing
' Global package info
Set pkgInfoHash = Nothing
Set releaseInfoHash = 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
'--------------------------------------------------------------------------------------
archive_server = ServiceConfig("ARCHIVE SERVER")
lxr_server = ServiceConfig("LXR SERVER")
LXR_URL = "http://" & lxr_server & "/lxr/source"
MAIL_SERVER = ServiceConfig("MAIL SERVER")
FAULT_EMAIL_LIST = ServiceConfig("FAULT EMAIL ADDRESS LIST")
strRelativePath = GetPathToBase()
managerSuiteBase = GetManagerSuiteBase()
siteRootUrl = getSiteRootUrl()
APP_ROOT = Server.MapPath(".")
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 ), "\") )
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
DocBrowseLink = DOC_REPOSITORY_URL & "docbrowse.asp"
FavIcon = strRelativePath & "favicons/RM" & Application("FavIconSuffix") & ".png"
ForcePageLogon = TRUE
' -- Constants ----------------------------------------
HTTP_PKG_ARCHIVE = "http://" & archive_server
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
ACCESS_MANAGER_URL = ManagerSuiteBase & "/Access_Manager"
DEPLOYMENT_MANAGER_URL = ManagerSuiteBase & "/Deployment_Manager"
PRODUCTION_MANAGER_URL = ManagerSuiteBase & "/Production_Manager"
RELEASE_MANAGER_URL = ManagerSuiteBase & "/Release_Manager"
ABTLOG_URL = HTTP_PKG_ARCHIVE & "/devl/abtlog"
%>
<%
'-- ERROR MESSAGES ---------------------------
Const enum_MSG_ERROR = "msg_error.asp"
Const enum_WMSG_ERROR = "wmsg_error.asp"
Const enum_MSG_SELECTED_PACKAGES_NOW_OFFICIAL = "msg_selected_packages_now_official.asp"
Const enum_MSG_PACKAGES_NOT_MADE_OFFICIAL = "msg_packages_not_made_official.asp"
Const enum_MSG_PACKAGE_NOT_MADE_OFFICIAL = "msg_package_not_made_official.asp"
Const enum_MSG_PACKAGE_NOT_MADE_OFFICIAL_2 = "msg_package_not_made_official_2.asp"
Const enum_MSG_UNOFFICIAL_DEPENDENCIES = "msg_unofficial_dependencies.asp"
Const enum_MSG_PACKAGE_CHANGETYPE_INCOMPLETE = "msg_change_type_incomplete.asp"
Const enum_MSG_PACKAGE_SBOMPRIORITY_INCOMPLETE = "msg_sbom_priority_incomplete.asp"
Const enum_MSG_VERSION_EXISTS = "msg_version_exists.asp"
Const enum_DUPLICATE_RUNTIME_DEPENDENCY = "msg_duplicate_runtime_dependency.asp"
Const enum_DUPLICATE_BUILD_DEPENDENCIES_IGNORED = "msg_duplicate_build_dependencies_ignored.asp"
Const enum_MSG_BROKEN_DEPENDENCIES_FOUND = "msg_broken_dependencies_found.asp"
Const enum_MSG_MISSING_DEPENDENCIES = "msg_missing_dependencies.asp"
Const enum_MSG_UNOFFICIAL_DEPENDENCIES_FOUND = "msg_unofficial_dependencies_found.asp"
Const enum_MSG_RELEASE_IS_NOW_OFFICIAL = "msg_release_is_now_official.asp"
Const enum_MSG_NEW_UNOFFICIAL_RELEASE_CREATED = "msg_new_unofficial_release_created.asp"
Const enum_MSG_DUPLICATE_AN = "msg_duplicate_an.asp"
Const enum_MSG_DUPLICATE_UT = "msg_duplicate_ut.asp"
Const enum_MSG_PACKAGE_INFORMATION_INCOMPLETE = "msg_package_information_incomplete.asp"
Const enum_MSG_VCS_INFORMATION_INCOMPLETE = "msg_vcs_information_incomplete.asp"
Const enum_MSG_MIXED_VCS = "msg_mixed_vcs.asp"
Const enum_MSG_VCS_SVN_NOT_PEGGED = "msg_vcs_svn_not_pegged.asp"
Const enum_MSG_AUTOBUILD_PACKAGE_IS_UNCONTROLLED = "msg_autobuild_package_is_uncontrolled.asp"
Const enum_MSG_AUTOBUILD_PACKAGE_REQUIRES_BUILD_STD_AND_ENV = "msg_autobuild_package_requires_build_std_and_env.asp"
Const enum_MSG_UNIT_TESTS_NOT_SUPPLIED = "msg_unit_tests_not_supplied.asp"
Const enum_MSG_REASON_FOR_THIS_VERSION_NOT_SUPLIED = "msg_reason_for_this_version_not_suplied.asp"
Const enum_MSG_CANNOT_REMOVE_PACKAGE = "msg_cannot_remove_package.asp"
Const enum_MSG_PACKAGE_IN_USE = "msg_package_in_use.asp"
Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"
Const enum_MSG_NO_LICENCES_EXIST = "msg_no_licences.asp"
Const enum_MSG_PACKAGE_VERSION_EXISTS = "msg_package_version_exists.asp"
Const enum_MSG_PACKAGE_WIP_EXISTS = "msg_package_wip_exists.asp"
Const enum_MSG_PACKAGE_VERSION_INVALID = "msg_package_version_invalid.asp"
Const enum_MSG_CANNOT_AUTO_GENERATE_COTS_PKG = "msg_cannot_auto_generate_cots_pkg.asp"
Const enum_MSG_PACKAGE_WIP_EXISTS_BULK_RELEASE = "msg_package_wip_exists_bulk_release.asp"
Const enum_MSG_PERMISSION_PROBLEMS_BULK_RELEASE = "msg_permission_problems_bulk_release.asp"
Const enum_MSG_UNBUILDABLE_PACKAGE = "msg_unbuildable_package.asp"
'---------------------------------------------
%>
<%
'-- ICONS Package State ----------------------
Const enum_imgBlank = "
"
Const enum_imgCritical = "
"
Const enum_imgDeprecated = "
"
Const enum_imgProductRejected = "
"
Const enum_imgDeprecatedDependent = "
"
Const enum_imgCReady = "
"
Const enum_imgAR = "
"
Const enum_imgARD = "
"
Const enum_imgWarning = "
"
Const enum_imgWReady = "
"
Const enum_imgBuilding = "
"
Const enum_imgNotFound = "
"
Const enum_imgIgnoring = "
"
Const enum_imgPatchIgnoring = "
"
Const enum_imgPatchAvailable = "
"
Const enum_imgPatch = "
"
Const enum_imgPatchObsolete = "
"
Const enum_imgUser = "
"
Const enum_imgUserLg = ""
Const enum_imgGreenPin = "
"
Const enum_imgPending = "
"
Const enum_imgApproved = "
"
Const enum_imgReleasedLocked = "
"
Const enum_imgReleasedUnlocked = "
"
Const enum_imgNotInArchive = "
"
Const enum_imgNotInRelease = "
"
Const enum_imgSdkImport = "
"
Const enum_imgSdkDep = "
"
Const enum_imgUnBuildable = "
"
Const enum_imgRippleStop = "
"
Const enum_imgRippleGo = "
"
Const enum_imgClipBoard = "
"
Const enum_imgClipBoard10 = ""
Const enum_imgClipBoard12 = ""
Const enum_imgCompiling = "
"
Const enum_imgScheduled = "
"
Const enum_imgBuildFail = "
"
Const enum_imgBuildExclude = "
"
'------------ Release and Sdk States -----------
Const LIMG_OPEN_MODE = "
"
Const LIMG_RESTRICTIVE_MODE = "
"
Const LIMG_CCB_MODE = "
"
Const LIMG_CLOSED_MODE = "
"
Const LIMG_CLOSED_MODE_WARN = "
"
Const LIMG_PRESERVE_MODE = "
"
Const LIMG_ARCHIVE_MODE = "
"
Const LIMG_SNAPSHOT_MODE = "
"
'-- ICONS SMALL ------------------------------
Const enum_SMALL_imgOK = "
"
Const enum_SMALL_imgCritical = "
"
Const enum_SMALL_imgCReady = "
"
Const enum_SMALL_imgWarning = "
"
Const enum_SMALL_imgWReady = "
"
Const enum_SMALL_imgBuilding = "
"
Const enum_SMALL_imgNotFound = "
"
'-- ICONS MISC ------------------------------
Const enum_IMG_Critical = "
"
Const imgPkgLocked = ""
Const imgPkgLockSpacer = "
"
Const LIMG_NDEL = "
"
Const LIMG_NDEL_DISABLED = "
"
Const LIMG_USER = ""
Const LIMG_USER_DISABLED = "
"
Const LIMG_EDIT = "
"
Const LIMG_EDIT_DISABLED = ""
'-- VERSION CONTROL CONSTANTS ------------------------------
Const enum_VCS_UNCONTROLLED_TAG = "UC"
Const enum_VCS_CLEARCASE_TAG = "CC"
Const enum_VCS_SUBVERSION_TAG = "SVN"
Const enum_VCS_CVS_TAG = "CVS"
Const enum_VCS_GIT_TAG = "GIT"
'-- OP CODES for DAEMON INSTRUCTIONS, both in terms of strings and integers -------------------------------------------
'
'-- When adding to these, always update daemon_instructions.asp accordingly.
'-- Sometimes it might be necessary to update wAddDaemonInstruction.asp as well.
'-- human readable string names
Const OP_CODE_0_STR = "Ripple Build Package" ' Corresponds to OP_CODE_0_RIPPLE_BUILD_PACKAGE
Const OP_CODE_1_STR = "Test Build Package" ' Corresponds to OP_CODE_1_TEST_BUILD_PACKAGE
Const OP_CODE_2_STR = "Future Build" ' Corresponds to OP_CODE_2_FUTURE_BUILD
'-- equivalent integer values for use in query strings
Const OP_CODE_0_RIPPLE_BUILD_PACKAGE = "0"
Const OP_CODE_1_TEST_BUILD_PACKAGE = "1"
Const OP_CODE_2_FUTURE_BUILD = "2"
'-- PACKAGE AREA CONSTANTS ------------------------------
Const enum_PKG_AREA_WIP = 0
Const enum_PKG_AREA_PLANNED = 1
Const enum_PKG_AREA_RELEASED = 2
'-- BUILD DAEMON STATE CONSTANTS ------------------------------
Const enum_DAEMON_ENABLE = NULL
Const enum_DAEMON_PAUSE = 1
Const enum_DAEMON_DISABLE = 2
'-- Windows event logger types --------------------------------
' Used in Raise_Event
Const enumEVENT_SUCCESS = 0
Const enumEVENT_ERROR = 1
Const enumEVENT_WARNING = 2
Const enumEVENT_INFORMATION = 4
%>