| Line 18... |
Line 18... |
| 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 strRelativePath ' Rel Path from script to URL
|
21 |
Dim strRelativePath ' Rel Path from script to URL
|
| 22 |
Dim MAIL_SERVER
|
22 |
Dim MAIL_SERVER
|
| - |
|
23 |
Dim FAULT_EMAIL_LIST
|
| 23 |
|
24 |
|
| 24 |
' -- Variable Initialisation --------------------------
|
25 |
' -- Variable Initialisation --------------------------
|
| 25 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
26 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 26 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
27 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 27 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
28 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 52... |
Line 53... |
| 52 |
rsTemp.Close()
|
53 |
rsTemp.Close()
|
| 53 |
Set rsTemp = Nothing
|
54 |
Set rsTemp = Nothing
|
| 54 |
End Function
|
55 |
End Function
|
| 55 |
|
56 |
|
| 56 |
'--------------------------------------------------------------------------------------
|
57 |
'--------------------------------------------------------------------------------------
|
| - |
|
58 |
'Returns the fault email list
|
| - |
|
59 |
Function Get_Fault_Email_List()
|
| - |
|
60 |
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='FAULT EMAIL ADDRESS LIST'"
|
| - |
|
61 |
Dim rsTemp
|
| - |
|
62 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
| - |
|
63 |
Get_Fault_Email_List = rsTemp("config")
|
| - |
|
64 |
rsTemp.Close()
|
| - |
|
65 |
Set rsTemp = Nothing
|
| - |
|
66 |
End Function
|
| - |
|
67 |
|
| - |
|
68 |
'--------------------------------------------------------------------------------------
|
| 57 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
69 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
| 58 |
'Assumes server base is in a directory called Release_Manager
|
70 |
'Assumes server base is in a directory called Release_Manager
|
| 59 |
Function GetPathToBase()
|
71 |
Function GetPathToBase()
|
| 60 |
Dim url,depth,rv,ii
|
72 |
Dim url,depth,rv,ii
|
| 61 |
url = request.servervariables("URL")
|
73 |
url = request.servervariables("URL")
|
| Line 81... |
Line 93... |
| 81 |
|
93 |
|
| 82 |
'--------------------------------------------------------------------------------------
|
94 |
'--------------------------------------------------------------------------------------
|
| 83 |
|
95 |
|
| 84 |
archive_server = Get_Archive_Server()
|
96 |
archive_server = Get_Archive_Server()
|
| 85 |
MAIL_SERVER = Get_Mail_Server()
|
97 |
MAIL_SERVER = Get_Mail_Server()
|
| - |
|
98 |
FAULT_EMAIL_LIST = Get_Fault_Email_List()
|
| 86 |
strRelativePath = GetPathToBase()
|
99 |
strRelativePath = GetPathToBase()
|
| 87 |
APP_ROOT = Server.MapPath(".")
|
100 |
APP_ROOT = Server.MapPath(".")
|
| 88 |
QUERIES_PATH = APP_ROOT &"\queries"
|
101 |
QUERIES_PATH = APP_ROOT &"\queries"
|
| 89 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
102 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
| 90 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
103 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
| Line 207... |
Line 220... |
| 207 |
'-- BUILD DAEMON STATE CONSTANTS ------------------------------
|
220 |
'-- BUILD DAEMON STATE CONSTANTS ------------------------------
|
| 208 |
Const enum_DAEMON_ENABLE = NULL
|
221 |
Const enum_DAEMON_ENABLE = NULL
|
| 209 |
Const enum_DAEMON_PAUSE = 1
|
222 |
Const enum_DAEMON_PAUSE = 1
|
| 210 |
Const enum_DAEMON_DISABLE = 2
|
223 |
Const enum_DAEMON_DISABLE = 2
|
| 211 |
|
224 |
|
| - |
|
225 |
'-- Windows event logger types --------------------------------
|
| - |
|
226 |
' Used in Raise_Event
|
| - |
|
227 |
Const enumEVENT_SUCCESS = 0
|
| - |
|
228 |
Const enumEVENT_ERROR = 1
|
| - |
|
229 |
Const enumEVENT_WARNING = 2
|
| - |
|
230 |
Const enumEVENT_INFORMATION = 4
|
| - |
|
231 |
|
| 212 |
%>
|
232 |
%>
|