| Line 12... |
Line 12... |
| 12 |
Dim rootPath
|
12 |
Dim rootPath
|
| 13 |
Dim DocRepositiryLink, DocRepositiryLinkOld
|
13 |
Dim DocRepositiryLink, DocRepositiryLinkOld
|
| 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
|
- |
|
| 18 |
Dim HTTP_PKG_ARCHIVE
|
17 |
Dim HTTP_PKG_ARCHIVE
|
| 19 |
Dim release_archiveURL
|
18 |
Dim release_archiveURL
|
| 20 |
Dim ACCESS_MANAGER_URL
|
19 |
Dim ACCESS_MANAGER_URL
|
| 21 |
Dim strRelativePath ' Rel Path from script to URL
|
20 |
Dim strRelativePath ' Rel Path from script to URL
|
| - |
|
21 |
Dim MAIL_SERVER
|
| 22 |
|
22 |
|
| 23 |
' -- Variable Initialisation --------------------------
|
23 |
' -- Variable Initialisation --------------------------
|
| 24 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
24 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 25 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
25 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 26 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
26 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 40... |
Line 40... |
| 40 |
rsTemp.Close()
|
40 |
rsTemp.Close()
|
| 41 |
Set rsTemp = Nothing
|
41 |
Set rsTemp = Nothing
|
| 42 |
End Function
|
42 |
End Function
|
| 43 |
|
43 |
|
| 44 |
'--------------------------------------------------------------------------------------
|
44 |
'--------------------------------------------------------------------------------------
|
| - |
|
45 |
'Returns the server of the package archive
|
| - |
|
46 |
Function Get_Mail_Server()
|
| - |
|
47 |
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
|
| - |
|
48 |
Dim rsTemp
|
| - |
|
49 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
| - |
|
50 |
Get_Mail_Server = rsTemp("config")
|
| - |
|
51 |
rsTemp.Close()
|
| - |
|
52 |
Set rsTemp = Nothing
|
| - |
|
53 |
End Function
|
| - |
|
54 |
|
| - |
|
55 |
'--------------------------------------------------------------------------------------
|
| 45 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
56 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
| 46 |
'Assumes server base is in a directory called Release_Manager
|
57 |
'Assumes server base is in a directory called Release_Manager
|
| 47 |
Function GetPathToBase()
|
58 |
Function GetPathToBase()
|
| 48 |
Dim url,depth,rv,ii
|
59 |
Dim url,depth,rv,ii
|
| 49 |
url = request.servervariables("URL")
|
60 |
url = request.servervariables("URL")
|
| Line 57... |
Line 68... |
| 57 |
End Function
|
68 |
End Function
|
| 58 |
|
69 |
|
| 59 |
'--------------------------------------------------------------------------------------
|
70 |
'--------------------------------------------------------------------------------------
|
| 60 |
|
71 |
|
| 61 |
archive_server = Get_Archive_Server()
|
72 |
archive_server = Get_Archive_Server()
|
| - |
|
73 |
MAIL_SERVER = Get_Mail_Server()
|
| 62 |
strRelativePath = GetPathToBase()
|
74 |
strRelativePath = GetPathToBase()
|
| 63 |
APP_ROOT = Server.MapPath(".")
|
75 |
APP_ROOT = Server.MapPath(".")
|
| 64 |
QUERIES_PATH = APP_ROOT &"\queries"
|
76 |
QUERIES_PATH = APP_ROOT &"\queries"
|
| 65 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
77 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
| 66 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
78 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
| Line 69... |
Line 81... |
| 69 |
|
81 |
|
| 70 |
' -- Constants ----------------------------------------
|
82 |
' -- Constants ----------------------------------------
|
| 71 |
Const domainName = "VIX"
|
83 |
Const domainName = "VIX"
|
| 72 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
84 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
| 73 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
85 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
| 74 |
deploy_archiveURL = HTTP_PKG_ARCHIVE & "/deploy_archive/"
|
- |
|
| 75 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
86 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
| 76 |
ACCESS_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Access_Manager"
|
87 |
ACCESS_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Access_Manager"
|
| 77 |
' Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
|
88 |
' Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
|
| 78 |
' Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
|
89 |
' Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
|
| 79 |
|
90 |
|