Subversion Repositories DevTools

Rev

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

Rev 4556 Rev 4808
Line 10... Line 10...
10 
Dim SCRIPT_NAME
 10 
Dim SCRIPT_NAME
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 
' -----------------------------------------------------
 16 
' -----------------------------------------------------
16 
%>
 17 
%>
17 
<%
 18 
<%
18 
' -- DATABASE CONNECTIONS -----------------------------
 19 
' -- DATABASE CONNECTIONS -----------------------------
19 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 20 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Line 23... Line 24...
23 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 24 
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
24 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
 25 
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
25 
' -----------------------------------------------------
 26 
' -----------------------------------------------------
26 
%>
 27 
%>
27 
<%
 28 
<%
- 
 
 29 
'--------------------------------------------------------------------------------------
- 
 
 30 
'Returns the server of the package archive
- 
 
 31 
Function Get_Mail_Server()
- 
 
 32 
   Dim sqry: sqry = "SELECT * FROM RELEASE_MANAGER.BUILD_SERVICE_CONFIG WHERE SERVICE='MAIL SERVER'"
- 
 
 33 
   Dim rsTemp
- 
 
 34 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
- 
 
 35 
   Get_Mail_Server = rsTemp("config")
- 
 
 36 
   rsTemp.Close()
- 
 
 37 
   Set rsTemp = Nothing
- 
 
 38 
End Function
- 
 
 39 
 
28 
' -- CONFIGURATIONS -----------------------------------
 40 
' -- CONFIGURATIONS -----------------------------------
29 
Const DOC_FOLDER = "doc"
 41 
Const DOC_FOLDER = "doc"
30 
Const TEMP_FOLDER = "temp"
 42 
Const TEMP_FOLDER = "temp"
31 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
 43 
Const APPLICATION_ID = 10  			' Stored in Deployment Manager, [APPLICATIONS] table
32 
APP_ROOT = Server.MapPath(".")
 44 
APP_ROOT = Server.MapPath(".")
33 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
 45 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
34 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
 46 
DB_AUTHENTICATION = Application("DEPLOYMENT_MANAGER_LOGIN") '"release_manager_devl/release_manager_devl"								' DEVL schema
35 
QUERIES_PATH = APP_ROOT &"\queries"
 47 
QUERIES_PATH = APP_ROOT &"\queries"
36 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 48 
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
37 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
 49 
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
- 
 
 50 
SMTP_HOST = Get_Mail_Server()
38 
Const ADMIN_EMAIL = "VixIT@vixtechnology.com"
 51 
Const ADMIN_EMAIL = "VixIT@vixtechnology.com"
39 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
 52 
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
40 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
 53 
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
41 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
 54 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
42 
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
 55 
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
Line 81... Line 94...
81 
' -- ACTION TRAIL -------------------------------------
 94 
' -- ACTION TRAIL -------------------------------------
82 
Const enumAT_EVENT_COMMENT 	= 0
 95 
Const enumAT_EVENT_COMMENT 	= 0
83 
Const enumAT_EVENT_ADDED 	= 1
 96 
Const enumAT_EVENT_ADDED 	= 1
84 
Const enumAT_EVENT_MODIFIED = 2
 97 
Const enumAT_EVENT_MODIFIED = 2
85 
Const enumAT_EVENT_REMOVED 	= 3
 98 
Const enumAT_EVENT_REMOVED 	= 3
86 
Const SMTP_HOST = "auperadom10.vix.local"
 - 
 
87 
Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"
 99 
Const enum_MSG_PROCESS_EXISTS = "msg_process_exists.asp"
88 
' -----------------------------------------------------
 100 
' -----------------------------------------------------
89 
%>
 101 
%>
90 
<%
 102 
<%
91 
' -- OO4O ---------------------------------------------
 103 
' -- OO4O ---------------------------------------------