Subversion Repositories DevTools

Rev

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

Rev 4808 Rev 5356
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 ACCESS_MANAGER_URL
- 
 
 17 
Dim strRelativePath             ' Rel Path from script to URL
- 
 
 18 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
- 
 
 19 
Dim FavIcon                     ' Favorite Icon
- 
 
 20 
Dim RmDebug                     ' Debug Display
- 
 
 21 
 
16 
' -----------------------------------------------------
 22 
' -----------------------------------------------------
17 
%>
 23 
%>
18 
<%
 24 
<%
19 
' -- DATABASE CONNECTIONS -----------------------------
 25 
' -- DATABASE CONNECTIONS -----------------------------
20 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 26 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Line 24... Line 30...
24 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 30 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
25 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
 31 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
26 
' -----------------------------------------------------
 32 
' -----------------------------------------------------
27 
%>
 33 
%>
28 
<%
 34 
<%
- 
 
 35 
' -- Basic Functions ----------------------------------
- 
 
 36 
' --------------------------------------------------------------------------------------
- 
 
 37 
' Determine if a variable or Const exists and is not empty
- 
 
 38 
'   Use to check if a vbscript variable has been declared and contains a non-empty value
- 
 
 39 
Function isDefined( var)
- 
 
 40 
    If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
- 
 
 41 
        isDefined = TRUE
- 
 
 42 
    Else
- 
 
 43 
        isDefined = FALSE
- 
 
 44 
   End If
- 
 
 45 
End Function
- 
 
 46 
 
29 
'--------------------------------------------------------------------------------------
 47 
'--------------------------------------------------------------------------------------
30 
'Returns the server of the package archive
 48 
'Returns the server of the package archive
31 
Function Get_Mail_Server()
 49 
Function Get_Mail_Server()
32 
   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
 50 
   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
33 
   Dim rsTemp
 51 
   Dim rsTemp
Line 35... Line 53...
35 
   Get_Mail_Server = rsTemp("config")
 53 
   Get_Mail_Server = rsTemp("config")
36 
   rsTemp.Close()
 54 
   rsTemp.Close()
37 
   Set rsTemp = Nothing
 55 
   Set rsTemp = Nothing
38 
End Function
 56 
End Function
39 
 
 57 
 
- 
 
 58 
'--------------------------------------------------------------------------------------
- 
 
 59 
'Return a relative path to the server base. Used for relative pathing to 'images'
- 
 
 60 
'Assumes server base is two directores below the web serve root (ManageSuite/Release_Manager)
- 
 
 61 
Function GetPathToBase()
- 
 
 62 
    Dim url,depth,rv,ii
- 
 
 63 
    url = request.servervariables("URL")
- 
 
 64 
    depth =  len(url) - len(replace(url, "/", ""))
- 
 
 65 
    rv = ""
- 
 
 66 
    For ii = 4 To depth
- 
 
 67 
        rv = rv & "../"
- 
 
 68 
    Next
- 
 
 69 
    GetPathToBase = rv
- 
 
 70 
End Function
- 
 
 71 
 
- 
 
 72 
' Return a URL to the base of the Manager suite
- 
 
 73 
' Assumes this is one directory down from the web server root
- 
 
 74 
Function GetManagerSuiteBase
- 
 
 75 
    Dim data
- 
 
 76 
    data = Split(request.servervariables("URL"),"/")
- 
 
 77 
    GetManagerSuiteBase =  "/" & data(1)
- 
 
 78 
End Function
- 
 
 79 
 
40 
' -- CONFIGURATIONS -----------------------------------
 80 
' -- CONFIGURATIONS -----------------------------------
41 
Const DOC_FOLDER = "doc"
 81 
Const DOC_FOLDER = "doc"
42 
Const TEMP_FOLDER = "temp"
 82 
Const TEMP_FOLDER = "temp"
43 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
 83 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
44 
APP_ROOT = Server.MapPath(".")
 84 
APP_ROOT = Server.MapPath(".")
Line 50... Line 90...
50 
SMTP_HOST = Get_Mail_Server()
 90 
SMTP_HOST = Get_Mail_Server()
51 
Const ADMIN_EMAIL = "VixIT@vixtechnology.com"
 91 
Const ADMIN_EMAIL = "VixIT@vixtechnology.com"
52 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
 92 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
53 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
 93 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
54 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
 94 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
- 
 
 95 
 
- 
 
 96 
strRelativePath = GetPathToBase()
- 
 
 97 
managerSuiteBase = GetManagerSuiteBase()
55 
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
 98 
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
56 
Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
 99 
FavIcon = strRelativePath & "icons/PM" & Application("FavIconSuffix") & ".png"
- 
 
 100 
 
57 
' -----------------------------------------------------
 101 
' -----------------------------------------------------
58 
%>
 102 
%>
59 
<%
 103 
<%
60 
' -- VARIABLE INITIALISATION --------------------------
 104 
' -- VARIABLE INITIALISATION --------------------------
61 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 105 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )