Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'				Ad Hoc Release Notes
 8 
'            Ad Hoc Release Notes
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 26... Line 26...
26 
parPv_id = Request("pv_id")
 26 
parPv_id = Request("pv_id")
27 
'----------------------------------------------
 27 
'----------------------------------------------
28 
%>
 28 
%>
29 
<%
 29 
<%
30 
Sub AdHocReleaseNotes ( PvId )
 30 
Sub AdHocReleaseNotes ( PvId )
31 
	Dim objWSH, fileName
 31 
   Dim objWSH, fileName
32 
	Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
33
32 
 
- 
 
 33 
   objEH.TryORA ( OraSession )
34 
	OraSession.BeginTrans
 34 
   On Error Resume Next
- 
 
 35 
 
35 
	OraDatabase.ExecuteSQL " UPDATE package_versions "&_
 36 
   OraDatabase.ExecuteSQL " UPDATE package_versions "&_
36 
						   " SET release_notes_info = '"& enum_RELEASE_NOTES_GENERATING &"'"&_
 37 
                          " SET release_notes_info = '"& enum_RELEASE_NOTES_GENERATING &"'"&_
37 
						   " WHERE pv_id = "& PvId
 38 
                          " WHERE pv_id = "& PvId
38
39 
 
39 
    OraSession.CommitTrans
 40 
   objEH.CatchORA ( OraSession )
- 
 
 41 
 
- 
 
 42 
   If objEH.LastOraFailed = FALSE Then
- 
 
 43 
 
- 
 
 44 
      Set objWSH = Server.CreateObject("WScript.Shell")
40
45 
 
41 
	fileName = Replace( PvId &"."& Timer, ".", "_" ) &".html"
 46 
      fileName = Replace( PvId &"."& Timer, ".", "_" ) &".html"
42
47 
 
43 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes "&_
 48 
      objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes "&_
44 
                 "/pv_id:"& PvId &" /file:"& fileName , _
 49 
                  "/pv_id:"& PvId &" /file:"& fileName , _
45 
                 0, True
50 
                  0, True
46
51 
 
47
52 
 
48 
	'-- Dispay Relase Notes
 53 
      '-- Dispay Relase Notes
49 
	Response.write ReadFile( Server.MapPath("temp") &"\"& fileName )
 54 
      Response.write ReadFile( Server.MapPath("temp") &"\"& fileName )
50
55 
 
51 
	'-- Clean Up
 56 
      '-- Clean Up
52 
	Call DeleteFile ( Server.MapPath("temp") &"\"& fileName )
 57 
      Call DeleteFile ( Server.MapPath("temp") &"\"& fileName )
- 
 
 58 
   End If
53
59 
 
54 
End Sub
 60 
End Sub
55 
%>
 61 
%>
56 
<%
 62 
<%
57 
'---------------------------------- MAIN LINE ----------------------------------------
 63 
'---------------------------------- MAIN LINE ----------------------------------------
58 
 
 64 
 
59 
' REQUREMENTS CHECK
 65 
' REQUREMENTS CHECK
60 
Call AdHocReleaseNotes ( parPv_id )
 66 
Call AdHocReleaseNotes ( parPv_id )
61 
%>
 67 
%>
62 
 
 68 
 
63 
<!-- DESTRUCTOR ------->
 69 
<!-- DESTRUCTOR ------->
64 
<!--#include file="common/destructor.asp"-->
 - 
 
65 

            70
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            71