Subversion Repositories DevTools

Rev

Rev 171 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 171 Rev 177
Line 10... Line 10...
10 
Dim OraSession, OraDatabase      ' DB connection
 10 
Dim OraSession, OraDatabase      ' DB connection
11 
Dim scriptName
 11 
Dim scriptName
12 
Dim rootPath
 12 
Dim rootPath
13 
Dim DocRepositiryLink, DocRepositiryLinkOld
 13 
Dim DocRepositiryLink, DocRepositiryLinkOld
14 
Dim APP_ROOT, QUERIES_PATH
 14 
Dim APP_ROOT, QUERIES_PATH
15 
 
 - 
 
- 
 
 15 
Dim archive_server
- 
 
 16 
Dim dpkg_archiveURL
- 
 
 17 
Dim deploy_archiveURL
- 
 
 18 
Dim HTTP_PKG_ARCHIVE
16 
' -- Variable Initialisation --------------------------
 19 
' -- Variable Initialisation --------------------------
17 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 20 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
18 
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
 21 
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
19 
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
 22 
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
20 
 
 23 
 
21 
'Set OraSession = Application("ORA_SESSION")
 24 
'Set OraSession = Application("ORA_SESSION")
22 
'Set OraDatabase =    OraSession.GetDatabaseFromPool(5000)
 25 
'Set OraDatabase =    OraSession.GetDatabaseFromPool(5000)
23 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 26 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
24 
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
 27 
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
25 
 
 28 
 
- 
 
 29 
'--------------------------------------------------------------------------------------
- 
 
 30 
'Returns the server of the package archive
- 
 
 31 
Function Get_Archive_Server()
- 
 
 32 
   Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='ARCHIVE SERVER'"
- 
 
 33 
   Dim rsTemp
- 
 
 34 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
- 
 
 35 
   Get_Archive_Server = rsTemp("config")
- 
 
 36 
   rsTemp.Close()
- 
 
 37 
   Set rsTemp = Nothing
- 
 
 38 
End Function
26 
 
 39 
 
- 
 
 40 
'--------------------------------------------------------------------------------------
- 
 
 41 
archive_server = Get_Archive_Server()
27 
 
 42 
 
28 
APP_ROOT = Server.MapPath(".")
 43 
APP_ROOT = Server.MapPath(".")
29 
QUERIES_PATH = APP_ROOT &"\queries"
 44 
QUERIES_PATH = APP_ROOT &"\queries"
30 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 45 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
31 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
 46 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
32 
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
 47 
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
33 
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
 48 
DocRepositiryLinkOld = DOC_REPOSITORY_URL & "docLinkTo.asp?old=1&fileid="
34 
 
 49 
 
35 
' -- Constants ----------------------------------------
 50 
' -- Constants ----------------------------------------
36 
Const domainName   = "ERG"
 51 
Const domainName   = "ERG"
37 
Const enumHTTP_PKG_ARCHIVE = "http://10.240.0.175"
 52 
HTTP_PKG_ARCHIVE = "http://" & archive_server
38 
Const dpkg_archiveURL = "http://10.240.0.175/dpkg_archive/"
 53 
dpkg_archiveURL = "http://" & archive_server & "/dpkg_archive/"
39 
Const deploy_archiveURL = "http://10.240.0.175/deploy_archive/"
 54 
deploy_archiveURL = "http://" & archive_server & "/deploy_archive/"
40 
Const enumFTP_DPKG_ARCHIVE_WRITE = "10.240.2.240/dpkg_archive_write"
 55 
Const enumFTP_DPKG_ARCHIVE_WRITE = "10.240.2.240/dpkg_archive_write"
41 
Const enumFTP_DPKG_ARCHIVE_READ = "10.240.2.240/dpkg_archive_view"
 56 
Const enumFTP_DPKG_ARCHIVE_READ = "10.240.2.240/dpkg_archive_view"
42 
Const ACCESS_MANAGER_URL = "http://erg:8002/ManagerSuite/Access_Manager"
 57 
Const ACCESS_MANAGER_URL = "http://erg:8002/ManagerSuite/Access_Manager"
43 
Const RELEASE_MANAGER_URL = "http://erg:8002/ManagerSuite/Release_Manager"
 58 
Const RELEASE_MANAGER_URL = "http://erg:8002/ManagerSuite/Release_Manager"
44 
 
 59