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