Subversion Repositories DevTools

Option Explicit
'=====================================================
'        Name:  config
' Description:  Contains all configuration details, 
'                               enums, global constants and variables.
'=====================================================

'=========== GLOBAL CONSTANTS DECLARATION ============
'Const RELEASE_MANAGER_URL = "http://10.240.0.92/release_manager"
Const URL_PATH_DPKG_ARCHIVE = "/dpkg_archive"
Const URL_PATH_DEPLOY_ARCHIVE = "/deploy_archive"
Const DPKG_ARCHIVE = "\dpkg_archive"
Const DEPLOY_ARCHIVE = "\deploy_archive"
Const TELNET_DPKG_ARCHIVE = "dpkg_archive"
Const TELNET_DEPLOY_ARCHIVE = "deploy_archive"
Const QUERIES_FOLDER = "queries"
Const DESCPKG_FILE = "descpkg"
Const RELESE_NOTES_PERFIX = "RELEASE_NOTES"
Const RELEASE_NOTES_TEMPLATE_A = "scripts\templates\release_notes_template_a.html"
Const RELEASE_NOTES_TEMPLATE_B = "scripts\templates\release_notes_template_b.html"
Const CKSUM_EXE = "scripts\bin\cksum.exe"
Const MODCRC_EXE = "scripts\bin\modcrc.exe"
Const SSH_EXE = "scripts\bin\plink.exe"
Const WINRSH_EXE = "scripts\bin\winrsh32.exe"
'============ GLOBAL VARIABLES DEFINITION ============
Dim OraSession
Dim OraDatabase
Dim MappedDrive
Dim AppPath
Dim UNC_ARCHIVE
Dim TELNET_MACHINE
Dim archive_server
'============= VARIABLES INITIALISATION ==============
AppPath = Get_Application_Path
'==================== INCLUDE ASP ====================
Call Include_File ( AppPath &"common\base_conf.asp" )
'================== CONFIGURATION ====================  
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase( "RELEASEM", "RELEASE_MANAGER/RELEASE_MANAGER", Cint(0))
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0 
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
archive_server = Get_Archive_Server()
UNC_ARCHIVE = "\\" & archive_server & "\releasem"
TELNET_MACHINE = archive_server
'======================== enums ======================
Const enumEVENT_SUCCESS = 0
Const enumEVENT_ERROR = 1
Const enumEVENT_WARNING = 2
Const enumEVENT_INFORMATION = 4
'-------------------------------------
Const enumPKG_TYPE_ERG_PRODUCT = 1
Const enumPKG_TYPE_GENERIC_DPKG = 2
Const enumPKG_TYPE_DB_PATCH_DPKG = 3
Const enumPKG_TYPE_DEVICE_DPKG = 4
'=====================================================

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