<%
'=====================================================
' CONFIG FILE
'=====================================================
%>
<%
' -- Variable Definition ------------------------------
Dim OraSession, OraDatabase ' DB connection
Dim scriptName
Dim rootPath
Dim DocRepositiryLink, DocRepositiryLinkOld
Dim APP_ROOT, QUERIES_PATH
Dim archive_server
Dim dpkg_archiveURL
Dim HTTP_PKG_ARCHIVE
Dim release_archiveURL
Dim ACCESS_MANAGER_URL
Dim DEPLOYMENT_MANAGER_URL
Dim strRelativePath ' Rel Path from script to URL
Dim MAIL_SERVER
' -- 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))
'--------------------------------------------------------------------------------------
'Returns the server of the package archive
Function Get_Archive_Server()
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='ARCHIVE SERVER'"
Dim rsTemp
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
Get_Archive_Server = rsTemp("config")
rsTemp.Close()
Set rsTemp = Nothing
End Function
'--------------------------------------------------------------------------------------
'Returns the server of the package archive
Function Get_Mail_Server()
Dim sqry: sqry = "SELECT * FROM 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 in a directory called Release_Manager
Function GetPathToBase()
Dim url,depth,rv,ii
url = request.servervariables("URL")
url = Mid(url,Instr(url, "Release_Manager"))
depth = len(url) - len(replace(url, "/", ""))
rv = ""
For ii = 2 To depth
rv = rv & "../"
Next
GetPathToBase = rv
End Function
'--------------------------------------------------------------------------------------
archive_server = Get_Archive_Server()
MAIL_SERVER = Get_Mail_Server()
strRelativePath = GetPathToBase()
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="
' -- Constants ----------------------------------------
HTTP_PKG_ARCHIVE = "http://" & archive_server
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
ACCESS_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Access_Manager"
DEPLOYMENT_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Deployment_Manager"
%>
<%
'-- 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_RELEASE_IS_NOW_LOCKED = "msg_release_is_now_locked.asp"
Const enum_MSG_RELEASE_IS_UNLOCKED = "msg_release_is_unlocked.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_VCS_SUBVERSION_CC_MIX = "msg_vcs_subversion_cc_mix.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_RELEASE_IS_IN_OPEN_MODE = "msg_release_is_in_open_mode.asp"
Const enum_MSG_RELEASE_IS_IN_RESTRICTIVE_MODE = "msg_release_is_in_restrictive_mode.asp"
Const enum_MSG_RELEASE_IS_IN_CLOSED_MODE = "msg_release_is_in_closed_mode.asp"
Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"
Const enum_MSG_GBE_MACHTYPE_EXISTS = "msg_machtype_exists.asp"
Const enum_MSG_LICENCE_EXISTS = "msg_licence_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_VCS_EXISTS = "msg_vcs_exists.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"
'---------------------------------------------
%>
<%
'-- ICONS ------------------------------------
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_imgGreenPin = "
"
Const enum_imgPending = "
"
'-- 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 = "
"
'-- 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"
'-- 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
'-- equivalent integer values for use in query strings
Const OP_CODE_0_RIPPLE_BUILD_PACKAGE = "0"
Const OP_CODE_1_TEST_BUILD_PACKAGE = "1"
'-- 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
%>