Subversion Repositories DevTools

Rev

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

Rev 119 Rev 4293
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			      _RemoveProdFromOs				 	 |
 5 
'|	Remove or Delete daemon from Release			 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 45... Line 45...
45 
	OraDatabase.Parameters.Remove "RCON_ID_LIST"
 45 
	OraDatabase.Parameters.Remove "RCON_ID_LIST"
46 
 
 46 
 
47
47
48 
End Sub
 48 
End Sub
49 
'--------------------------------------------------------------------------------------------------------------------------
 49 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 50 
Sub RemoveDaemon (rcon_id)
- 
 
 51 
	On Error Resume Next
- 
 
 52
- 
 
 53 
	OraDatabase.Parameters.Add "RCON_ID_LIST",	rcon_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 54
- 
 
 55 
	objEH.TryORA ( OraSession )
- 
 
 56
- 
 
 57 
	OraDatabase.ExecuteSQL _
- 
 
 58 
	"BEGIN   PK_BUILDAPI.REMOVE_DAEMON ( :RCON_ID_LIST );   END;"
- 
 
 59
- 
 
 60 
	objEH.CatchORA ( OraSession )
- 
 
 61
- 
 
 62 
	OraDatabase.Parameters.Remove "RCON_ID_LIST"
- 
 
 63 
 
- 
 
 64
- 
 
 65 
End Sub
- 
 
 66 
 
- 
 
 67 
'--------------------------------------------------------------------------------------------------------------------------
50 
%>
 68 
%>
51 
<%
 69 
<%
52 
'**************************** M  A  I  N ******************************
 70 
'**************************** M  A  I  N ******************************
53 
' --- Form is Valid ---
 71 
' --- Form is Valid ---
- 
 
 72 
Dim action
- 
 
 73 
action = Request("action")
- 
 
 74 
If action = "Delete" Then
54 
Call DeleteDaemon(Request("rcon_id"))
 75 
    Call DeleteDaemon(Request("rcon_id"))
- 
 
 76 
ElseIf action = "Remove" then
- 
 
 77 
    Call RemoveDaemon(Request("rcon_id"))
- 
 
 78 
End If
55 
 
 79 
 
56 
If objEH.Finally Then
 80 
'If objEH.Finally Then
57 
	Call OpenInWindow ( "release_config.asp?rtag_id="&Request("rtag_id") )
 81 
	Call OpenInWindow ( "release_config.asp?rtag_id="&Request("rtag_id") )
58 
End If
 82 
'End If
59 
'**********************************************************************
 83 
'**********************************************************************
60 
%>
 84 
%>
61 
<%
 85 
<%
62 
'------------ RUN AFTER CODE RUN --------------
 86 
'------------ RUN AFTER CODE RUN --------------
63 
'----------------------------------------------
 87 
'----------------------------------------------