| Line 28... |
Line 28... |
| 28 |
Dim MAIL_SERVER
|
28 |
Dim MAIL_SERVER
|
| 29 |
Dim FAULT_EMAIL_LIST
|
29 |
Dim FAULT_EMAIL_LIST
|
| 30 |
Dim FavIcon ' Favorite Icon
|
30 |
Dim FavIcon ' Favorite Icon
|
| 31 |
Dim ServiceConfig ' All service config
|
31 |
Dim ServiceConfig ' All service config
|
| 32 |
Dim ForcePageLogon ' Page Protection Mode
|
32 |
Dim ForcePageLogon ' Page Protection Mode
|
| - |
|
33 |
Dim IndefPause ' Global indication of error
|
| 33 |
Dim VixVerNum : VixVerNum = 22 ' Bump to force cache reload of many resources
|
34 |
Dim VixVerNum : VixVerNum = 22 ' Bump to force cache reload of many resources
|
| 34 |
|
35 |
|
| 35 |
' -- Variable Initialisation --------------------------
|
36 |
' -- Variable Initialisation --------------------------
|
| 36 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
37 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 37 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
38 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| Line 41... |
Line 42... |
| 41 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
42 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| 42 |
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
43 |
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 43 |
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
|
44 |
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
|
| 44 |
Set ServiceConfig = CreateObject("Scripting.Dictionary")
|
45 |
Set ServiceConfig = CreateObject("Scripting.Dictionary")
|
| 45 |
GetServiceConfig()
|
46 |
GetServiceConfig()
|
| - |
|
47 |
GetIndefPause()
|
| - |
|
48 |
|
| - |
|
49 |
'--------------------------------------------------------------------------------------
|
| - |
|
50 |
'Populate ServiceConfig
|
| - |
|
51 |
Sub GetIndefPause()
|
| - |
|
52 |
IndefPause = FALSE
|
| - |
|
53 |
|
| - |
|
54 |
Dim sqry : sqry = "select * from run_level_schedule rls where rls.indefinite_pause = 'P'"
|
| - |
|
55 |
Dim rsTemp : Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
| - |
|
56 |
|
| - |
|
57 |
If rsTemp.RecordCount > 0 Then
|
| - |
|
58 |
IndefPause = TRUE
|
| - |
|
59 |
End If
|
| - |
|
60 |
rsTemp.Close()
|
| - |
|
61 |
Set rsTemp = Nothing
|
| - |
|
62 |
End Sub
|
| 46 |
|
63 |
|
| 47 |
'--------------------------------------------------------------------------------------
|
64 |
'--------------------------------------------------------------------------------------
|
| 48 |
'Populate ServiceConfig
|
65 |
'Populate ServiceConfig
|
| 49 |
Sub GetServiceConfig()
|
66 |
Sub GetServiceConfig()
|
| 50 |
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
|
67 |
Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
|