| Line 14... |
Line 14... |
| 14 |
Dim APP_ROOT, QUERIES_PATH
|
14 |
Dim APP_ROOT, QUERIES_PATH
|
| 15 |
Dim archive_server
|
15 |
Dim archive_server
|
| 16 |
Dim dpkg_archiveURL
|
16 |
Dim dpkg_archiveURL
|
| 17 |
Dim deploy_archiveURL
|
17 |
Dim deploy_archiveURL
|
| 18 |
Dim HTTP_PKG_ARCHIVE
|
18 |
Dim HTTP_PKG_ARCHIVE
|
| - |
|
19 |
Dim release_archiveURL
|
| - |
|
20 |
Dim ACCESS_MANAGER_URL
|
| - |
|
21 |
|
| 19 |
' -- Variable Initialisation --------------------------
|
22 |
' -- Variable Initialisation --------------------------
|
| 20 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
23 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 21 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
24 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 22 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
25 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| 23 |
|
26 |
|
| Line 46... |
Line 49... |
| 46 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
49 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
| 47 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|
50 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|
| 48 |
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
|
51 |
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
|
| 49 |
|
52 |
|
| 50 |
' -- Constants ----------------------------------------
|
53 |
' -- Constants ----------------------------------------
|
| 51 |
Const domainName = "ERG"
|
54 |
Const domainName = "VIX"
|
| 52 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
55 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
| 53 |
dpkg_archiveURL = "http://" & archive_server & "/dpkg_archive/"
|
56 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
| 54 |
deploy_archiveURL = "http://" & archive_server & "/deploy_archive/"
|
57 |
deploy_archiveURL = HTTP_PKG_ARCHIVE & "/deploy_archive/"
|
| 55 |
Const enumFTP_DPKG_ARCHIVE_WRITE = "10.240.2.240/dpkg_archive_write"
|
58 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
| 56 |
Const enumFTP_DPKG_ARCHIVE_READ = "10.240.2.240/dpkg_archive_view"
|
59 |
ACCESS_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Access_Manager"
|
| 57 |
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
|
60 |
' Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
|
| 58 |
Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
|
61 |
' Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
|
| 59 |
|
62 |
|
| 60 |
' -- User Roles ---------------------------------------
|
63 |
' -- User Roles ---------------------------------------
|
| 61 |
' S -> System Admin ( Full access to system for data alteration )
|
64 |
' S -> System Admin ( Full access to system for data alteration )
|
| 62 |
' A -> Administrator (Full access to data manipulation)
|
65 |
' A -> Administrator (Full access to data manipulation)
|
| 63 |
' P -> Power User (Ability to make release official, no access to ADMIN menu)
|
66 |
' P -> Power User (Ability to make release official, no access to ADMIN menu)
|