Subversion Repositories DevTools

<%

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

'               CONFIG FILE

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

%>

<!--#include file="base_conf.asp"-->

<%

' -- Variable Definition ------------------------------

Dim OraSession, OraDatabase      ' DB connection

Dim scriptName

Dim rootPath

Dim DocRepositiryLink, DocRepositiryLinkOld, DocBrowseLink

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 PRODUCTION_MANAGER_URL

Dim RELEASE_MANAGER_URL

Dim strRelativePath             ' Rel Path from script to URL

Dim managerSuiteBase            ' Url to the base of the Manager Suite

Dim MAIL_SERVER

Dim FAULT_EMAIL_LIST

Dim FavIcon                     ' Favorite Icon

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

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

'Returns the fault email list

Function Get_Fault_Email_List()

   Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='FAULT EMAIL ADDRESS LIST'"

   Dim rsTemp

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

   Get_Fault_Email_List = 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

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

' 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

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

archive_server = Get_Archive_Server()

MAIL_SERVER = Get_Mail_Server()

FAULT_EMAIL_LIST = Get_Fault_Email_List()

strRelativePath = GetPathToBase()

managerSuiteBase = GetManagerSuiteBase()

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"

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

%>

<%

'-- 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_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_PROCESS_EXISTS                               = "msg_process_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               = "<img src='images/h_trsp_dot.gif' width='19' height='17' border='0'>"

Const enum_imgCritical            = "<img src='images/s_critical.gif' width='19' height='17' border='0' title='Not ready to be built.  Dependent packages, with a major or minor version, require building'>"

Const enum_imgDeprecated          = "<img src='images/bomb.gif' width='19' height='17' border='0' title='Deprecated'>"

Const enum_imgProductRejected     = "<img src='icons/i_product_rejected.gif' width='19' height='17' border='0' title='Rejected'>"

Const enum_imgDeprecatedDependent = "<img src='images/bomb_dependant.gif' width='19' height='17' border='0' title='Dependent deprecated'>"

Const enum_imgCReady              = "<img src='images/s_update_critical.gif' width='19' height='17' border='0' title='Ready to build, however at least one dependency has been superseded with a major or minor version'>"

Const enum_imgAR                  = "<img src='images/i_advisory_ripple.gif' width='19' height='17' border='0' title='Marked as advisory ripple'>"

Const enum_imgARD                 = "<img src='images/s_advisory_ripple_dependant.png' width='19' height='17' border='0' title='Dependent marked as advisory ripple'>"

Const enum_imgWarning             = "<img src='images/s_warning.gif' width='19' height='17' border='0' title='Not ready to be built.  Dependent packages, with a patch version, require building'>"

Const enum_imgWReady              = "<img src='images/s_update_warning.gif' width='19' height='17' border='0' title='Ready to build, however at least one dependency has been superseded with a patch version'>"

Const enum_imgBuilding            = "<img src='images/s_gear.gif' width='19' height='17' border='0' title='Work in progress'>"

Const enum_imgNotFound            = "<img src='images/s_not_found.gif' width='19' height='17' border='0' title='Not found'>"

Const enum_imgIgnoring            = "<img src='images/s_ignoring.gif' width='15' height='15' border='0' title='Latest version is ignored'>"

Const enum_imgPatchIgnoring       = "<img src='images/s_patch_ignoring.gif' width='19' height='17' border='0' title='Latest version is included in a patch'>"

Const enum_imgPatchAvailable      = "<img src='images/s_patch_available.gif' width='19' height='17' border='0' title='New patch is required'>"

Const enum_imgPatch               = "<img src='images/i_patch.gif' width='18' height='23' border='0' align='absmiddle' hspace='5' title='This is a patch'>"

Const enum_imgPatchObsolete       = "<img src='images/i_patch_obsolete.gif' width='18' height='23' border='0' align='absmiddle' hspace='5' title='Patch is obsolete'>"

Const enum_imgUser                = "<img src='images/i_user.gif' width='10' height='13' hspace='2' border='0' align='absmiddle' title='User'>"

Const enum_imgGreenPin            = "<img src='images/i_green_pin.gif' width='19' height='17' border='0' title='Pegged to prevent it being ripple built'>"

Const enum_imgPending             = "<img src='icons/i_pending.gif' width='12' height='14' border='0' title='Package Pending'>"

Const enum_imgReleasedLocked      = "<img src='images/i_locked.gif' width='13' height='15' border='0' title='Released and locked'>"

Const enum_imgReleasedUnlocked    = "<img src='images/i_unlocked.gif' width='16' height='15' border='0' title='Released and unlocked'>"

Const enum_imgNotInArchive        = "<img src='images/s_package_not_present.gif' width='16' height='15' border='0' title='Not found in archive'>"

Const enum_imgNotInRelease        = "<img src='images/s_not_inrelease.gif' width='16' height='15' border='0' title='This Version is not a member of this Release'>"

Const enum_imgSdkImport           = "<img src='images/i_sdkpkg.png' width='15' height='15' border='0' title='This version imported via an SDK'>"

Const enum_imgSdkDep              = "<img src='images/i_sdkdep.png' width='15' height='15' border='0' title='Not Found. Is a dependency only of the SDK and not required to be in this release.'>"

'-- ICONS SMALL ------------------------------

Const enum_SMALL_imgOK           = "<img src='images/si_ok.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgCritical     = "<img src='images/si_critical.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgCReady       = "<img src='images/si_update_critical.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgWarning      = "<img src='images/si_warning.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgWReady       = "<img src='images/si_update_warning.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgBuilding     = "<img src='images/si_gear.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

Const enum_SMALL_imgNotFound     = "<img src='images/si_not_found.gif' width='17' height='16' border='0' align='absmiddle' vspace='1' hspace='2'>"

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

'-- Windows event logger types --------------------------------

' Used in Raise_Event

Const enumEVENT_SUCCESS = 0

Const enumEVENT_ERROR = 1

Const enumEVENT_WARNING = 2

Const enumEVENT_INFORMATION = 4

%>