| 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 strRelativePath ' Rel Path from script to URL
|
20 |
Dim strRelativePath ' Rel Path from script to URL
|
| - |
|
21 |
Dim MAIL_SERVER
|
| 21 |
|
22 |
|
| 22 |
' -- Variable Initialisation --------------------------
|
23 |
' -- Variable Initialisation --------------------------
|
| 23 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
24 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 24 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
25 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 25 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
26 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 39... |
Line 40... |
| 39 |
rsTemp.Close()
|
40 |
rsTemp.Close()
|
| 40 |
Set rsTemp = Nothing
|
41 |
Set rsTemp = Nothing
|
| 41 |
End Function
|
42 |
End Function
|
| 42 |
|
43 |
|
| 43 |
'--------------------------------------------------------------------------------------
|
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 |
'--------------------------------------------------------------------------------------
|
| 44 |
'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'
|
| 45 |
'Assumes server base is in a directory called Release_Manager
|
57 |
'Assumes server base is in a directory called Release_Manager
|
| 46 |
Function GetPathToBase()
|
58 |
Function GetPathToBase()
|
| 47 |
Dim url,depth,rv,ii
|
59 |
Dim url,depth,rv,ii
|
| 48 |
url = request.servervariables("URL")
|
60 |
url = request.servervariables("URL")
|
| Line 56... |
Line 68... |
| 56 |
End Function
|
68 |
End Function
|
| 57 |
|
69 |
|
| 58 |
'--------------------------------------------------------------------------------------
|
70 |
'--------------------------------------------------------------------------------------
|
| 59 |
|
71 |
|
| 60 |
archive_server = Get_Archive_Server()
|
72 |
archive_server = Get_Archive_Server()
|
| - |
|
73 |
MAIL_SERVER = Get_Mail_Server()
|
| 61 |
strRelativePath = GetPathToBase()
|
74 |
strRelativePath = GetPathToBase()
|
| 62 |
APP_ROOT = Server.MapPath(".")
|
75 |
APP_ROOT = Server.MapPath(".")
|
| 63 |
QUERIES_PATH = APP_ROOT &"\queries"
|
76 |
QUERIES_PATH = APP_ROOT &"\queries"
|
| 64 |
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 )
|
| 65 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
78 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|