Subversion Repositories DevTools

Rev

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

Rev 5337 Rev 5355
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 RELEASE_MANAGER_URL
- 
 
 18 
Dim strRelativePath             ' Rel Path from script to URL
- 
 
 19 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
- 
 
 20 
Dim FavIcon                     ' Favorite Icon
- 
 
 21 
Dim RmDebug                     ' Debug Display
- 
 
 22 
 
16 
' -----------------------------------------------------
 23 
' -----------------------------------------------------
17 
%>
 24 
%>
18 
<%
 25 
<%
19 
' -- DATABASE CONNECTIONS -----------------------------
 26 
' -- DATABASE CONNECTIONS -----------------------------
20 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 27 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Line 24... Line 31...
24 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 31 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
25 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
 32 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
26 
' -----------------------------------------------------
 33 
' -----------------------------------------------------
27 
%>
 34 
%>
28 
<%
 35 
<%
- 
 
 36 
' -- Basic Functions ----------------------------------
- 
 
 37 
' --------------------------------------------------------------------------------------
- 
 
 38 
' Determine if a variable or Const exists and is not empty
- 
 
 39 
'   Use to check if a vbscript variable has been declared and contains a non-empty value
- 
 
 40 
Function isDefined( var)
- 
 
 41 
    If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
- 
 
 42 
        isDefined = TRUE
- 
 
 43 
    Else
- 
 
 44 
        isDefined = FALSE
- 
 
 45 
   End If
- 
 
 46 
End Function
- 
 
 47 
 
29 
'--------------------------------------------------------------------------------------
 48 
'--------------------------------------------------------------------------------------
30 
'Returns the server of the package archive
 49 
'Returns the server of the package archive
31 
Function Get_Mail_Server()
 50 
Function Get_Mail_Server()
32 
   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
 51 
   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
33 
   Dim rsTemp
 52 
   Dim rsTemp
Line 35... Line 54...
35 
   Get_Mail_Server = rsTemp("config")
 54 
   Get_Mail_Server = rsTemp("config")
36 
   rsTemp.Close()
 55 
   rsTemp.Close()
37 
   Set rsTemp = Nothing
 56 
   Set rsTemp = Nothing
38 
End Function
 57 
End Function
39 
 
 58 
 
- 
 
 59 
'--------------------------------------------------------------------------------------
- 
 
 60 
'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)
- 
 
 62 
Function GetPathToBase()
- 
 
 63 
    Dim url,depth,rv,ii
- 
 
 64 
    url = request.servervariables("URL")
- 
 
 65 
    depth =  len(url) - len(replace(url, "/", ""))
- 
 
 66 
    rv = ""
- 
 
 67 
    For ii = 4 To depth
- 
 
 68 
        rv = rv & "../"
- 
 
 69 
    Next
- 
 
 70 
    GetPathToBase = rv
- 
 
 71 
End Function
- 
 
 72 
 
- 
 
 73 
' Return a URL to the base of the Manager suite
- 
 
 74 
' Assumes this is one directory down from the web server root
- 
 
 75 
Function GetManagerSuiteBase
- 
 
 76 
    Dim data
- 
 
 77 
    data = Split(request.servervariables("URL"),"/")
- 
 
 78 
    GetManagerSuiteBase =  "/" & data(1)
- 
 
 79 
End Function
- 
 
 80 
 
40 
' -- CONFIGURATIONS -----------------------------------
 81 
' -- CONFIGURATIONS -----------------------------------
41 
Const APPLICATION_ID = 1  			' Stored in Deployment Manager, [APPLICATIONS] table
 82 
Const APPLICATION_ID = 1  			' Stored in Deployment Manager, [APPLICATIONS] table
42 
APP_ROOT = Server.MapPath(".")
 83 
APP_ROOT = Server.MapPath(".")
43 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
 84 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
44 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
 85 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
Line 50... Line 91...
50 
Const JIRA_URL    = "http://cloudajir02.vix.local:8080"
 91 
Const JIRA_URL    = "http://cloudajir02.vix.local:8080"
51 
Const JIRA_CREDENTAILS = "ReleaseManager:r3l3@se4J!r@"
 92 
Const JIRA_CREDENTAILS = "ReleaseManager:r3l3@se4J!r@"
52 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
 93 
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
 94 
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
 95 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
- 
 
 96 
 
- 
 
 97 
strRelativePath = GetPathToBase()
- 
 
 98 
managerSuiteBase = GetManagerSuiteBase()
55 
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
 99 
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
56 
Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
 100 
RELEASE_MANAGER_URL     = ManagerSuiteBase & "/Release_Manager"
- 
 
 101 
FavIcon = strRelativePath & "icons/DM" & Application("FavIconSuffix") & ".png"
- 
 
 102 
 
57 
' -----------------------------------------------------
 103 
' -----------------------------------------------------
58 
%>
 104 
%>
59 
<%
 105 
<%
60 
' -- VARIABLE INITIALISATION --------------------------
 106 
' -- VARIABLE INITIALISATION --------------------------
61 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 107 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
Line 93... Line 139...
93 
' -- ACTION TRAIL -------------------------------------
 139 
' -- ACTION TRAIL -------------------------------------
94 
Const enumAT_EVENT_COMMENT 	= 0
 140 
Const enumAT_EVENT_COMMENT 	= 0
95 
Const enumAT_EVENT_ADDED 	= 1
 141 
Const enumAT_EVENT_ADDED 	= 1
96 
Const enumAT_EVENT_MODIFIED = 2
 142 
Const enumAT_EVENT_MODIFIED = 2
97 
Const enumAT_EVENT_REMOVED 	= 3
 143 
Const enumAT_EVENT_REMOVED 	= 3
98 
Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"
 - 
 
99 
' -----------------------------------------------------
 144 
' -----------------------------------------------------
100 
%>
 145 
%>
101 
<%
 146 
<%
102 
' -- OO4O ---------------------------------------------
 147 
' -- OO4O ---------------------------------------------
103 
const ORATYPE_VARCHAR2 = 1
 148 
const ORATYPE_VARCHAR2 = 1