Subversion Repositories DevTools

Rev

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

Rev 64 Rev 66
Line 15... Line 15...
15 
' -----------------------------------------------------
 15 
' -----------------------------------------------------
16 
%>
 16 
%>
17 
<%
 17 
<%
18 
' -- DATABASE CONNECTIONS -----------------------------
 18 
' -- DATABASE CONNECTIONS -----------------------------
19 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 19 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
20 
'OraSession.CreateDatabasePool 1,10,100, Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), 0
20 
'OraSession.CreateDatabasePool 1,10,100, Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), 0
21 
'Set OraDatabase = OraSession.GetDatabaseFromPool(10)
 21 
'Set OraDatabase = OraSession.GetDatabaseFromPool(10)
22 
 
 22 
 
23 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 23 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
24 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
 24 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
25 
 
 25 
 
Line 31... Line 31...
31 
' -- CONFIGURATIONS -----------------------------------
 31 
' -- CONFIGURATIONS -----------------------------------
32 
Const DOC_FOLDER = "doc"
 32 
Const DOC_FOLDER = "doc"
33 
Const TEMP_FOLDER = "temp"
 33 
Const TEMP_FOLDER = "temp"
34 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
 34 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
35 
APP_ROOT = Server.MapPath(".")
 35 
APP_ROOT = Server.MapPath(".")
36 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
36 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
37 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
 37 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
38 
QUERIES_PATH = APP_ROOT &"\queries"
 38 
QUERIES_PATH = APP_ROOT &"\queries"
39 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 39 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
40 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
 40 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
41 
Const ADMIN_EMAIL = "rsolanki@erggroup.com"
 41 
Const ADMIN_EMAIL = "releasem@erggroup.com"
42 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
 42 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
43 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
 43 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
44 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
 44 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
45 
Const ACCESS_MANAGER_URL = "http://erg:8002/ManagerSuite/Access_Manager"
 45 
Const ACCESS_MANAGER_URL = "http://erg:8002/ManagerSuite/Access_Manager"
46 
Const RELEASE_MANAGER_URL = "http://erg:8002/ManagerSuite/Release_Manager"
 46 
Const RELEASE_MANAGER_URL = "http://erg:8002/ManagerSuite/Release_Manager"
Line 56... Line 56...
56 
Const enumPRODUCTS_BASE_VIEW_ID = 5					' Release Manager products base view id
 56 
Const enumPRODUCTS_BASE_VIEW_ID = 5					' Release Manager products base view id
57 
Const enumAUTOPRODUCTS_BASE_VIEW_ID = 2602					' Release Manager auto_products base view id
 57 
Const enumAUTOPRODUCTS_BASE_VIEW_ID = 2602					' Release Manager auto_products base view id
58 
' -----------------------------------------------------
 58 
' -----------------------------------------------------
59 
%>
 59 
%>
60 
<%
 60 
<%
61 
' -- CONSTANTS ----------------------------------------
 61 
' -- CONSTANTS --------------------------------------
62 
Const enumDB_DEFAULT_EMPTY = -1
 62 
Const enumDB_DEFAULT_EMPTY = -1
63 
Const enumISSUES_STATE_FIXED = 1
 63 
Const enumISSUES_STATE_FIXED = 1
64 
Const enumCLEARQUEST_TDSE_ID = 3
 64 
Const enumCLEARQUEST_TDSE_ID = 3
65 
Const enumCLEARQUEST_DEVI_ID = 4
 65 
Const enumCLEARQUEST_DEVI_ID = 4
66 
Const enumCLEARQUEST_VT5DM_ID = 5
 66 
Const enumCLEARQUEST_VT5DM_ID = 5
Line 112... Line 112...
112 
const ORATYPE_VARRAY = 247
 112 
const ORATYPE_VARRAY = 247
113 
const ORATYPE_TABLE = 248
 113 
const ORATYPE_TABLE = 248
114 
const ORATYPE_CURSOR = 102
 114 
const ORATYPE_CURSOR = 102
115 
 
 115 
 
116 
 
 116 
 
117 
const ORAPARM_INPUT=1
117 
const ORAPARM_INPUT=1
118 
const ORAPARM_OUTPUT=2
118 
const ORAPARM_OUTPUT=2
119 
const ORAPARM_BOTH=3
 119 
const ORAPARM_BOTH=3
120 
 
 120 
 
121 
const ORADYN_DEFAULT=&H0&
 121 
const ORADYN_DEFAULT=&H0&
122 
' -----------------------------------------------------
 122 
' -----------------------------------------------------
123 
%>
 123 
%>