| Line 16... |
Line 16... |
| 16 |
Dim dpkg_archiveURL
|
16 |
Dim dpkg_archiveURL
|
| 17 |
Dim HTTP_PKG_ARCHIVE
|
17 |
Dim HTTP_PKG_ARCHIVE
|
| 18 |
Dim release_archiveURL
|
18 |
Dim release_archiveURL
|
| 19 |
Dim ACCESS_MANAGER_URL
|
19 |
Dim ACCESS_MANAGER_URL
|
| 20 |
Dim DEPLOYMENT_MANAGER_URL
|
20 |
Dim DEPLOYMENT_MANAGER_URL
|
| - |
|
21 |
Dim PRODUCTION_MANAGER_URL
|
| - |
|
22 |
Dim RELEASE_MANAGER_URL
|
| 21 |
Dim strRelativePath ' Rel Path from script to URL
|
23 |
Dim strRelativePath ' Rel Path from script to URL
|
| - |
|
24 |
Dim managerSuiteBase ' Url to the base of the Manager Suite
|
| 22 |
Dim MAIL_SERVER
|
25 |
Dim MAIL_SERVER
|
| 23 |
Dim FAULT_EMAIL_LIST
|
26 |
Dim FAULT_EMAIL_LIST
|
| - |
|
27 |
Dim FavIcon ' Favorite Icon
|
| 24 |
|
28 |
|
| 25 |
' -- Variable Initialisation --------------------------
|
29 |
' -- Variable Initialisation --------------------------
|
| 26 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
30 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 27 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
31 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 28 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
32 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 65... |
Line 69... |
| 65 |
Set rsTemp = Nothing
|
69 |
Set rsTemp = Nothing
|
| 66 |
End Function
|
70 |
End Function
|
| 67 |
|
71 |
|
| 68 |
'--------------------------------------------------------------------------------------
|
72 |
'--------------------------------------------------------------------------------------
|
| 69 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
73 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
| 70 |
'Assumes server base is in a directory called Release_Manager
|
74 |
'Assumes server base is two directores below the web serve root (ManageSuite/Release_Manager)
|
| 71 |
Function GetPathToBase()
|
75 |
Function GetPathToBase()
|
| 72 |
Dim url,depth,rv,ii
|
76 |
Dim url,depth,rv,ii
|
| 73 |
url = request.servervariables("URL")
|
77 |
url = request.servervariables("URL")
|
| 74 |
url = Mid(url,Instr(Lcase(url), "release_manager"))
|
- |
|
| 75 |
depth = len(url) - len(replace(url, "/", ""))
|
78 |
depth = len(url) - len(replace(url, "/", ""))
|
| 76 |
rv = ""
|
79 |
rv = ""
|
| 77 |
For ii = 2 To depth
|
80 |
For ii = 4 To depth
|
| 78 |
rv = rv & "../"
|
81 |
rv = rv & "../"
|
| 79 |
Next
|
82 |
Next
|
| 80 |
GetPathToBase = rv
|
83 |
GetPathToBase = rv
|
| 81 |
End Function
|
84 |
End Function
|
| 82 |
|
85 |
|
| - |
|
86 |
' Return a URL to the base of the Manager suite
|
| - |
|
87 |
' Assumes this is one directory down from the web server root
|
| - |
|
88 |
Function GetManagerSuiteBase
|
| - |
|
89 |
Dim data
|
| - |
|
90 |
data = Split(request.servervariables("URL"),"/")
|
| - |
|
91 |
GetManagerSuiteBase = "/" & data(1)
|
| - |
|
92 |
End Function
|
| - |
|
93 |
|
| 83 |
'--------------------------------------------------------------------------------------
|
94 |
'--------------------------------------------------------------------------------------
|
| 84 |
' Determine if a variable or Const exists and is not empty
|
95 |
' Determine if a variable or Const exists and is not empty
|
| 85 |
' Use to check if a vbscript variable has been declared and contains a non-empty value
|
96 |
' Use to check if a vbscript variable has been declared and contains a non-empty value
|
| 86 |
Function isDefined( var)
|
97 |
Function isDefined( var)
|
| 87 |
If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
|
98 |
If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
|
| Line 90... |
Line 101... |
| 90 |
isDefined = FALSE
|
101 |
isDefined = FALSE
|
| 91 |
End If
|
102 |
End If
|
| 92 |
End Function
|
103 |
End Function
|
| 93 |
|
104 |
|
| 94 |
'--------------------------------------------------------------------------------------
|
105 |
'--------------------------------------------------------------------------------------
|
| 95 |
|
- |
|
| 96 |
archive_server = Get_Archive_Server()
|
106 |
archive_server = Get_Archive_Server()
|
| 97 |
MAIL_SERVER = Get_Mail_Server()
|
107 |
MAIL_SERVER = Get_Mail_Server()
|
| 98 |
FAULT_EMAIL_LIST = Get_Fault_Email_List()
|
108 |
FAULT_EMAIL_LIST = Get_Fault_Email_List()
|
| 99 |
strRelativePath = GetPathToBase()
|
109 |
strRelativePath = GetPathToBase()
|
| - |
|
110 |
managerSuiteBase = GetManagerSuiteBase()
|
| 100 |
APP_ROOT = Server.MapPath(".")
|
111 |
APP_ROOT = Server.MapPath(".")
|
| 101 |
QUERIES_PATH = APP_ROOT &"\queries"
|
112 |
QUERIES_PATH = APP_ROOT &"\queries"
|
| 102 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
113 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
| 103 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
114 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
| 104 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|
115 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|
| 105 |
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
|
116 |
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
|
| 106 |
DocBrowseLink = DOC_REPOSITORY_URL & "docbrowse.asp"
|
117 |
DocBrowseLink = DOC_REPOSITORY_URL & "docbrowse.asp"
|
| - |
|
118 |
FavIcon = strRelativePath & "icons/RM" & Application("FavIconSuffix") & ".png"
|
| 107 |
|
119 |
|
| 108 |
' -- Constants ----------------------------------------
|
120 |
' -- Constants ----------------------------------------
|
| 109 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
121 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
| 110 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
122 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
| 111 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
123 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
| 112 |
ACCESS_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Access_Manager"
|
124 |
ACCESS_MANAGER_URL = ManagerSuiteBase & "/Access_Manager"
|
| 113 |
DEPLOYMENT_MANAGER_URL = "http://" & Request.ServerVariables("HTTP_HOST") & "/Deployment_Manager"
|
125 |
DEPLOYMENT_MANAGER_URL = ManagerSuiteBase & "/Deployment_Manager"
|
| - |
|
126 |
PRODUCTION_MANAGER_URL = ManagerSuiteBase & "/Production_Manager"
|
| - |
|
127 |
RELEASE_MANAGER_URL = ManagerSuiteBase & "/Release_Manager"
|
| 114 |
%>
|
128 |
%>
|
| 115 |
<%
|
129 |
<%
|
| 116 |
'-- ERROR MESSAGES ---------------------------
|
130 |
'-- ERROR MESSAGES ---------------------------
|
| 117 |
Const enum_MSG_ERROR = "msg_error.asp"
|
131 |
Const enum_MSG_ERROR = "msg_error.asp"
|
| 118 |
Const enum_WMSG_ERROR = "wmsg_error.asp"
|
132 |
Const enum_WMSG_ERROR = "wmsg_error.asp"
|