| Line 30... |
Line 30... |
| 30 |
Dim FAULT_EMAIL_LIST
|
30 |
Dim FAULT_EMAIL_LIST
|
| 31 |
Dim FavIcon ' Favorite Icon
|
31 |
Dim FavIcon ' Favorite Icon
|
| 32 |
Dim ServiceConfig ' All service config
|
32 |
Dim ServiceConfig ' All service config
|
| 33 |
Dim ForcePageLogon ' Page Protection Mode
|
33 |
Dim ForcePageLogon ' Page Protection Mode
|
| 34 |
Dim IndefPause ' Global indication of error
|
34 |
Dim IndefPause ' Global indication of error
|
| 35 |
Dim VixVerNum : VixVerNum = 35 ' Bump to force cache reload of many resources
|
35 |
Dim VixVerNum : VixVerNum = 36 ' Bump to force cache reload of many resources
|
| 36 |
|
36 |
|
| 37 |
' -- Variable Initialisation --------------------------
|
37 |
' -- Variable Initialisation --------------------------
|
| 38 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
38 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 39 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
39 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 40 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
40 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 46... |
Line 46... |
| 46 |
Set ServiceConfig = CreateObject("Scripting.Dictionary")
|
46 |
Set ServiceConfig = CreateObject("Scripting.Dictionary")
|
| 47 |
GetServiceConfig()
|
47 |
GetServiceConfig()
|
| 48 |
GetIndefPause()
|
48 |
GetIndefPause()
|
| 49 |
|
49 |
|
| 50 |
' Kludge for testing messages/msg_xxxx
|
50 |
' Kludge for testing messages/msg_xxxx
|
| 51 |
Session(enum_RELMGR_ERRDESCRIPTION)="111|222|3333|444"
|
51 |
' Session(enum_RELMGR_ERRDESCRIPTION)="111|222|3333|444"
|
| 52 |
|
52 |
|
| 53 |
'--------------------------------------------------------------------------------------
|
53 |
'--------------------------------------------------------------------------------------
|
| 54 |
'Populate ServiceConfig
|
54 |
'Populate ServiceConfig
|
| 55 |
Sub GetIndefPause()
|
55 |
Sub GetIndefPause()
|
| 56 |
IndefPause = FALSE
|
56 |
IndefPause = FALSE
|