Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 177
Line 5... Line 5...
5 
'				enums, global constants and variables.
 5 
'				enums, global constants and variables.
6 
'=====================================================
 6 
'=====================================================
7 
 
 7 
 
8 
'=========== GLOBAL CONSTANTS DECLARATION ============
 8 
'=========== GLOBAL CONSTANTS DECLARATION ============
9 
'Const RELEASE_MANAGER_URL = "http://10.240.0.92/release_manager"
 9 
'Const RELEASE_MANAGER_URL = "http://10.240.0.92/release_manager"
10 
Const UNC_ARCHIVE = "\\auperaunx26\releasem"
 - 
 
11 
Const URL_PATH_DPKG_ARCHIVE = "/dpkg_archive"
 10 
Const URL_PATH_DPKG_ARCHIVE = "/dpkg_archive"
12 
Const URL_PATH_DEPLOY_ARCHIVE = "/deploy_archive"
 11 
Const URL_PATH_DEPLOY_ARCHIVE = "/deploy_archive"
13 
Const DPKG_ARCHIVE = "\dpkg_archive"
 12 
Const DPKG_ARCHIVE = "\dpkg_archive"
14 
Const DEPLOY_ARCHIVE = "\deploy_archive"
 13 
Const DEPLOY_ARCHIVE = "\deploy_archive"
15 
Const TELNET_MACHINE = "auperaunx26"	' <-- If this machine name is changed, you need to rebuild pkg_archive.vbs
 - 
 
16 
Const TELNET_DPKG_ARCHIVE = "dpkg_archive"
 14 
Const TELNET_DPKG_ARCHIVE = "dpkg_archive"
17 
Const TELNET_DEPLOY_ARCHIVE = "deploy_archive"
 15 
Const TELNET_DEPLOY_ARCHIVE = "deploy_archive"
18 
Const QUERIES_FOLDER = "queries"
 16 
Const QUERIES_FOLDER = "queries"
19 
Const DESCPKG_FILE = "descpkg"
 17 
Const DESCPKG_FILE = "descpkg"
20 
Const RELESE_NOTES_PERFIX = "RELEASE_NOTES"
 18 
Const RELESE_NOTES_PERFIX = "RELEASE_NOTES"
Line 27... Line 25...
27 
'============ GLOBAL VARIABLES DEFINITION ============
 25 
'============ GLOBAL VARIABLES DEFINITION ============
28 
Dim OraSession
 26 
Dim OraSession
29 
Dim OraDatabase
 27 
Dim OraDatabase
30 
Dim MappedDrive
 28 
Dim MappedDrive
31 
Dim AppPath
 29 
Dim AppPath
- 
 
 30 
Dim UNC_ARCHIVE
- 
 
 31 
Dim TELNET_MACHINE
- 
 
 32 
Dim archive_server
32 
'============= VARIABLES INITIALISATION ==============
 33 
'============= VARIABLES INITIALISATION ==============
33 
AppPath = Get_Application_Path
 34 
AppPath = Get_Application_Path
34 
'==================== INCLUDE ASP ====================
 35 
'==================== INCLUDE ASP ====================
35 
Call Include_File ( AppPath &"common\base_conf.asp" )
 36 
Call Include_File ( AppPath &"common\base_conf.asp" )
36 
'================== CONFIGURATION ====================
37 
'================== CONFIGURATION ====================
37 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 38 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
38 
Set OraDatabase = OraSession.OpenDatabase( "RELEASEM", "RELEASE_MANAGER/RELEASE_MANAGER", Cint(0))
 39 
Set OraDatabase = OraSession.OpenDatabase( "RELEASEM", "RELEASE_MANAGER/RELEASE_MANAGER", Cint(0))
39 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 40 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
40 
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
41 
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
41 
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
 42 
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
- 
 
 43 
archive_server = Get_Archive_Server()
- 
 
 44 
UNC_ARCHIVE = "\\" & archive_server & "\releasem"
- 
 
 45 
TELNET_MACHINE = archive_server
42 
'======================== enums ======================
 46 
'======================== enums ======================
43 
Const enumEVENT_SUCCESS = 0
 47 
Const enumEVENT_SUCCESS = 0
44 
Const enumEVENT_ERROR = 1
 48 
Const enumEVENT_ERROR = 1
45 
Const enumEVENT_WARNING = 2
 49 
Const enumEVENT_WARNING = 2
46 
Const enumEVENT_INFORMATION = 4
 50 
Const enumEVENT_INFORMATION = 4
Line 49... Line 53...
49 
Const enumPKG_TYPE_GENERIC_DPKG = 2
 53 
Const enumPKG_TYPE_GENERIC_DPKG = 2
50 
Const enumPKG_TYPE_DB_PATCH_DPKG = 3
 54 
Const enumPKG_TYPE_DB_PATCH_DPKG = 3
51 
Const enumPKG_TYPE_DEVICE_DPKG = 4
 55 
Const enumPKG_TYPE_DEVICE_DPKG = 4
52 
'=====================================================
 56 
'=====================================================
53 
 
 57 
 
- 
 
 58 
'============ FUNCTIONS ============
- 
 
 59 
'--------------------------------------------------------------------------------------
- 
 
 60 
'Returns the server of the package archive
- 
 
 61 
Function Get_Archive_Server()
- 
 
 62 
   Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='ARCHIVE SERVER'"
- 
 
 63 
   Dim rsTemp
- 
 
 64 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
- 
 
 65 
   Get_Archive_Server = rsTemp("config")
- 
 
 66 
   rsTemp.Close()
- 
 
 67 
   Set rsTemp = Nothing
54 
 
 68 
End Function