| Line 11... |
Line 11... |
| 11 |
Dim TNS_NAME, DB_AUTHENTICATION
|
11 |
Dim TNS_NAME, DB_AUTHENTICATION
|
| 12 |
Dim APP_ROOT
|
12 |
Dim APP_ROOT
|
| 13 |
Dim rootPath
|
13 |
Dim rootPath
|
| 14 |
Dim scriptName
|
14 |
Dim scriptName
|
| 15 |
Dim SMTP_HOST
|
15 |
Dim SMTP_HOST
|
| - |
|
16 |
Dim archive_server ' Machine name
|
| - |
|
17 |
Dim HTTP_PKG_ARCHIVE ' http and Machine name
|
| - |
|
18 |
Dim dpkg_archiveURL ' http path to dpkg_archive with /
|
| - |
|
19 |
Dim release_archiveURL ' http path to releases with /
|
| 16 |
Dim ACCESS_MANAGER_URL
|
20 |
Dim ACCESS_MANAGER_URL
|
| 17 |
Dim RELEASE_MANAGER_URL
|
21 |
Dim RELEASE_MANAGER_URL
|
| 18 |
Dim strRelativePath ' Rel Path from script to URL
|
22 |
Dim strRelativePath ' Rel Path from script to URL
|
| 19 |
Dim managerSuiteBase ' Url to the base of the Manager Suite
|
23 |
Dim managerSuiteBase ' Url to the base of the Manager Suite
|
| 20 |
Dim FavIcon ' Favorite Icon
|
24 |
Dim FavIcon ' Favorite Icon
|
| Line 53... |
Line 57... |
| 53 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
57 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
| 54 |
Get_Mail_Server = rsTemp("config")
|
58 |
Get_Mail_Server = rsTemp("config")
|
| 55 |
rsTemp.Close()
|
59 |
rsTemp.Close()
|
| 56 |
Set rsTemp = Nothing
|
60 |
Set rsTemp = Nothing
|
| 57 |
End Function
|
61 |
End Function
|
| - |
|
62 |
'--------------------------------------------------------------------------------------
|
| - |
|
63 |
'Returns the server of the package archive
|
| - |
|
64 |
Function Get_Archive_Server()
|
| - |
|
65 |
Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='ARCHIVE SERVER'"
|
| - |
|
66 |
Dim rsTemp
|
| - |
|
67 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
|
| - |
|
68 |
Get_Archive_Server = rsTemp("config")
|
| - |
|
69 |
rsTemp.Close()
|
| - |
|
70 |
Set rsTemp = Nothing
|
| 58 |
|
71 |
End Function
|
| 59 |
'--------------------------------------------------------------------------------------
|
72 |
'--------------------------------------------------------------------------------------
|
| 60 |
'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'
|
| 61 |
'Assumes server base is two directores below the web serve root (ManageSuite/Release_Manager)
|
74 |
'Assumes server base is two directores below the web serve root (ManageSuite/Release_Manager)
|
| 62 |
Function GetPathToBase()
|
75 |
Function GetPathToBase()
|
| 63 |
Dim url,depth,rv,ii
|
76 |
Dim url,depth,rv,ii
|
| Line 94... |
Line 107... |
| 94 |
|
107 |
|
| 95 |
strRelativePath = GetPathToBase()
|
108 |
strRelativePath = GetPathToBase()
|
| 96 |
managerSuiteBase = GetManagerSuiteBase()
|
109 |
managerSuiteBase = GetManagerSuiteBase()
|
| 97 |
ACCESS_MANAGER_URL = ManagerSuiteBase & "/Access_Manager"
|
110 |
ACCESS_MANAGER_URL = ManagerSuiteBase & "/Access_Manager"
|
| 98 |
RELEASE_MANAGER_URL = ManagerSuiteBase & "/Release_Manager"
|
111 |
RELEASE_MANAGER_URL = ManagerSuiteBase & "/Release_Manager"
|
| - |
|
112 |
|
| - |
|
113 |
archive_server = Get_Archive_Server()
|
| - |
|
114 |
HTTP_PKG_ARCHIVE = "http://" & archive_server
|
| - |
|
115 |
dpkg_archiveURL = HTTP_PKG_ARCHIVE & "/dpkg_archive/"
|
| - |
|
116 |
release_archiveURL = HTTP_PKG_ARCHIVE & "/releases/"
|
| - |
|
117 |
|
| 99 |
FavIcon = strRelativePath & "favicons/DM" & Application("FavIconSuffix") & ".png"
|
118 |
FavIcon = strRelativePath & "favicons/DM" & Application("FavIconSuffix") & ".png"
|
| 100 |
|
119 |
|
| 101 |
' -----------------------------------------------------
|
120 |
' -----------------------------------------------------
|
| 102 |
%>
|
121 |
%>
|
| 103 |
<%
|
122 |
<%
|