Subversion Repositories DevTools

Rev

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

Rev 23 Rev 25
Line 35... Line 35...
35 
	DateReversed = Year(dDate) &"-"&  Month(dDate) &"-"& Day(dDate)
 35 
	DateReversed = Year(dDate) &"-"&  Month(dDate) &"-"& Day(dDate)
36 
End Function
 36 
End Function
37 
'**************************** M  A  I  N ******************************
 37 
'**************************** M  A  I  N ******************************
38 
 
 38 
 
39 
If Request("bom_id") <> "" Then
 39 
If Request("bom_id") <> "" Then
40 
 
 - 
 
41 
	OraDatabase.Parameters.Add "BOM_ID", 	  Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
42 
	OraDatabase.Parameters.Add "USER_ID", 	  objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
43 
 
 - 
 
44 
	objEH.TryORA ( OraSession )
 - 
 
45
- 
 
46 
	OraDatabase.ExecuteSQL _
 - 
 
47 
	"BEGIN   pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID );   END;"
 - 
 
48
- 
 
49 
	objEH.CatchORA ( OraSession )
 - 
 
50 
 
 - 
 
51 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
52 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
53 
 
 - 
 
54
- 
 
55
- 
 
56
40
57 
	Set objWSH = Server.CreateObject("WScript.Shell")
 41 
	Set objWSH = Server.CreateObject("WScript.Shell")
58 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
42 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
59
43
60 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
 44 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
Line 81... Line 65...
81 
	objZIPObject.Zip
 65 
	objZIPObject.Zip
82
66
83 
	Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error
 67 
	Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error
84 
	'Response.Write(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("bom_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip")
 68 
	'Response.Write(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("bom_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip")
85
69
- 
 
 70
86 
 
 71 
 
87
72
88 
	Dim myMail, LocalPath
 73 
	Dim myMail, LocalPath
89 
	Set myMail=Server.CreateObject("Persits.MailSender")
 74 
	Set myMail=Server.CreateObject("Persits.MailSender")
90 
	LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
 75 
	LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
91
76
92 
	myMail.Host = SMTP_HOST
 77 
	myMail.Host = SMTP_HOST
- 
 
 78
- 
 
 79 
	Dim rsTemp
- 
 
 80
- 
 
 81 
	Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_ID = "& Request("bom_id"), cint(0))
- 
 
 82
- 
 
 83 
	If rsTemp("is_readonly") = "Y" Then
93 
	myMail.Subject="XML BOM Generated from Deployment Manager"
 84 
		myMail.Subject="OFFICIAL XML BOMS Generated from Deployment Manager"
- 
 
 85 
	Else
- 
 
 86 
		myMail.Subject="THESE ARE NOT OFFICIAL XML BOMS!!!"
- 
 
 87 
	End If
94 
	myMail.From="releasem@erggroup.com"
 88 
	myMail.From="releasem@erggroup.com"
95 
	myMail.AddAddress objAccessControl.UserEmail
 89 
	myMail.AddAddress objAccessControl.UserEmail
96 
	' Attach the file
 90 
	' Attach the file
97 
	myMail.AddAttachment LocalPath
 91 
	myMail.AddAttachment LocalPath
98 
	myMail.Body = "Your requested xml files .."
92 
	myMail.Body = "Your requested xml files .."
99 
	myMail.Send
 93 
	myMail.Send
100
94
101 
	set myMail = nothing
 95 
	set myMail = nothing
102 
	set objWSH = nothing
 96 
	set objWSH = nothing
103
97
- 
 
 98
- 
 
 99 
	rsTemp.Close()
- 
 
 100 
	Set rsTemp = Nothing
104 
	rsQry.Close
 101 
	rsQry.Close()
105 
	Set rsQry = nothing
 102 
	Set rsQry = nothing
106
103
107 
	'Response.write "<br>You will be emailed shortly with the XML files generated.<br>"
 104 
	'Response.write "<br>You will be emailed shortly with the XML files generated.<br>"
108 
	'Response.write "Go to <a href='\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads'>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads</a>"
 105 
	'Response.write "Go to <a href='\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads'>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads</a>"
109
106