| Line 1... |
Line 1... |
| 1 |
<%@LANGUAGE="VBSCRIPT"%>
|
1 |
<%@LANGUAGE="VBSCRIPT"%>
|
| 2 |
<%
|
2 |
<%
|
| 3 |
'=====================================================
|
3 |
'=====================================================
|
| 4 |
' NEW VERSION
|
4 |
' NEW VERSION
|
| 5 |
' --- PROCESS FORM ---
|
5 |
' --- PROCESS FORM ---
|
| 6 |
'=====================================================
|
6 |
'=====================================================
|
| 7 |
%>
|
7 |
%>
|
| 8 |
<%
|
8 |
<%
|
| 9 |
Option explicit
|
9 |
Option explicit
|
| 10 |
' Good idea to set when using redirect
|
10 |
' Good idea to set when using redirect
|
| 11 |
Response.Expires = 0 ' always load the page, dont store
|
11 |
Response.Expires = 0 ' always load the page, dont store
|
| 12 |
%>
|
12 |
%>
|
| 13 |
|
13 |
|
| 14 |
<!--#include file="common/conf.asp"-->
|
14 |
<!--#include file="common/conf.asp"-->
|
| 15 |
<!--#include file="common/globals.asp"-->
|
15 |
<!--#include file="common/globals.asp"-->
|
| 16 |
<!--#include file="common/formating.asp"-->
|
16 |
<!--#include file="common/formating.asp"-->
|
| Line 41... |
Line 41... |
| 41 |
parSync_rtags = Request("sync_rtags")
|
41 |
parSync_rtags = Request("sync_rtags")
|
| 42 |
'----------------------------------------------
|
42 |
'----------------------------------------------
|
| 43 |
%>
|
43 |
%>
|
| 44 |
<%
|
44 |
<%
|
| 45 |
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
|
45 |
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
|
| 46 |
Dim cAlterReleaseWhileRestrictive, rsQry
|
46 |
Dim cAlterReleaseWhileRestrictive, rsQry
|
| 47 |
|
47 |
|
| 48 |
On Error Resume Next
|
48 |
On Error Resume Next
|
| 49 |
objEH.ErrorRedirect = TRUE
|
49 |
objEH.ErrorRedirect = TRUE
|
| 50 |
|
50 |
|
| 51 |
If Request("build_type") = "A" Then
|
51 |
If Request("build_type") = "A" Then
|
| 52 |
SSnewver = ""
|
52 |
SSnewver = ""
|
| 53 |
End If
|
53 |
End If
|
| 54 |
|
54 |
|
| 55 |
OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
55 |
OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 56 |
|
56 |
|
| 57 |
If Request("build_type") = "M" Then
|
57 |
If Request("build_type") = "M" Then
|
| 58 |
' Manual build
|
58 |
' Manual build
|
| 59 |
OraDatabase.Parameters.Add "PKG_VERSION", SSnewver, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
59 |
OraDatabase.Parameters.Add "PKG_VERSION", SSnewver, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 60 |
|
60 |
Else
|
| 61 |
Else
|
61 |
' Automated Build
|
| 62 |
' Automated Build
|
62 |
OraDatabase.Parameters.Add "PKG_VERSION", Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 63 |
OraDatabase.Parameters.Add "PKG_VERSION", Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
63 |
End If
|
| 64 |
|
64 |
|
| 65 |
End If
|
65 |
' Access Control - Allow release change while release is in restrictive mode
|
| 66 |
|
66 |
cAlterReleaseWhileRestrictive = "N"
|
| 67 |
' Access Control - Allow release change while release is in restrictive mode
|
67 |
If objAccessControl.IsActive("AlterReleaseContentsInRestrictiveMode") Then cAlterReleaseWhileRestrictive = "Y"
|
| 68 |
cAlterReleaseWhileRestrictive = "N"
|
68 |
|
| 69 |
If objAccessControl.IsActive("AlterReleaseContentsInRestrictiveMode") Then cAlterReleaseWhileRestrictive = "Y"
|
69 |
OraDatabase.Parameters.Add "BUILD_TYPE", Request("build_type"), ORAPARM_INPUT, ORATYPE_CHAR
|
| 70 |
|
70 |
OraDatabase.Parameters.Add "ALTER_RELEASE", cAlterReleaseWhileRestrictive, ORAPARM_INPUT, ORATYPE_CHAR
|
| 71 |
|
71 |
OraDatabase.Parameters.Add "SET_TO_PV_ID", NNSetToPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 72 |
OraDatabase.Parameters.Add "BUILD_TYPE", Request("build_type"), ORAPARM_INPUT, ORATYPE_CHAR
|
72 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 73 |
OraDatabase.Parameters.Add "ALTER_RELEASE", cAlterReleaseWhileRestrictive, ORAPARM_INPUT, ORATYPE_CHAR
|
73 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 74 |
OraDatabase.Parameters.Add "SET_TO_PV_ID", NNSetToPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
74 |
OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 75 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
75 |
OraDatabase.Parameters.Add "RETPV_ID", 0, ORAPARM_OUTPUT,ORATYPE_NUMBER
|
| 76 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
76 |
|
| 77 |
OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED, ORAPARM_INPUT, ORATYPE_NUMBER
|
77 |
objEH.TryORA ( OraSession )
|
| 78 |
OraDatabase.Parameters.Add "RETPV_ID", 0, ORAPARM_OUTPUT,ORATYPE_NUMBER
|
78 |
|
| 79 |
|
79 |
Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_CONTENT WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID = "& NNorig_pv_id &"", cint(0))
|
| 80 |
objEH.TryORA ( OraSession )
|
80 |
|
| 81 |
|
81 |
If (NOT IsNull(rsQry("pkg_id"))) AND rsQry("pkg_state") = 6 Then
|
| 82 |
Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_CONTENT WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID = "& NNorig_pv_id &"", cint(0))
|
82 |
|
| 83 |
|
83 |
Dim rsPv_id
|
| 84 |
If (NOT IsNull(rsQry("pkg_id"))) AND rsQry("pkg_state") = 6 Then
|
84 |
|
| 85 |
|
85 |
If (SSnewver) <> "" Then
|
| 86 |
Dim rsPv_id
|
86 |
|
| 87 |
|
87 |
Set rsPv_id = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PKG_VERSION ='"& SSnewver &"' AND PKG_ID = "& rsQry("pkg_id") &"", cint(0))
|
| 88 |
If (SSnewver) <> "" Then
|
88 |
|
| 89 |
|
89 |
retNEWpv_id = rsPv_id("pv_id")
|
| 90 |
|
90 |
|
| 91 |
Set rsPv_id = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PKG_VERSION ='"& SSnewver &"' AND PKG_ID = "& rsQry("pkg_id") &"", cint(0))
|
91 |
rsPv_id.Close()
|
| 92 |
|
92 |
Set rsPv_id = nothing
|
| 93 |
retNEWpv_id = rsPv_id("pv_id")
|
93 |
Else
|
| 94 |
|
94 |
retNEWpv_id = NNSetToPv_id
|
| 95 |
rsPv_id.Close()
|
95 |
End If
|
| 96 |
Set rsPv_id = nothing
|
96 |
If NOT IsNull(retNewpv_id) Then
|
| 97 |
Else
|
97 |
OraDatabase.ExecuteSQL _
|
| 98 |
retNEWpv_id = NNSetToPv_id
|
98 |
"BEGIN "&_
|
| 99 |
End If
|
99 |
" UPDATE RELEASE_CONTENT SET PV_ID ="& retNEWpv_id &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& Request("OLDpv_id")&"; "&_
|
| 100 |
If NOT IsNull(retNewpv_id) Then
|
100 |
"END;"
|
| 101 |
OraDatabase.ExecuteSQL _
|
101 |
Else
|
| 102 |
"BEGIN "&_
|
102 |
OraDatabase.ExecuteSQL _
|
| 103 |
" UPDATE RELEASE_CONTENT SET PV_ID ="& retNEWpv_id &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& Request("OLDpv_id")&"; "&_
|
103 |
"BEGIN "&_
|
| 104 |
"END;"
|
104 |
" PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
|
| 105 |
Else
|
105 |
" :PKG_VERSION,"&_
|
| 106 |
OraDatabase.ExecuteSQL _
|
106 |
" :BUILD_TYPE,"&_
|
| 107 |
"BEGIN "&_
|
107 |
" :SET_TO_PV_ID,"&_
|
| 108 |
" PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
|
108 |
" :RTAG_ID,"&_
|
| 109 |
" :PKG_VERSION,"&_
|
109 |
" :USER_ID,"&_
|
| 110 |
" :BUILD_TYPE,"&_
|
110 |
" :enumISSUES_STATE_IMPORTED,"&_
|
| 111 |
" :SET_TO_PV_ID,"&_
|
111 |
" :RETPV_ID ); "&_
|
| 112 |
" :RTAG_ID,"&_
|
112 |
" PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
|
| 113 |
" :USER_ID,"&_
|
113 |
" PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
|
| 114 |
" :enumISSUES_STATE_IMPORTED,"&_
|
114 |
"END;"
|
| 115 |
" :RETPV_ID ); "&_
|
115 |
|
| 116 |
" PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
|
116 |
retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
|
| 117 |
" PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
|
117 |
End If
|
| 118 |
"END;"
|
118 |
Else
|
| 119 |
|
119 |
OraDatabase.ExecuteSQL _
|
| 120 |
retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
|
120 |
"BEGIN "&_
|
| 121 |
End If
|
121 |
" PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
|
| 122 |
Else
|
122 |
" :PKG_VERSION,"&_
|
| 123 |
OraDatabase.ExecuteSQL _
|
123 |
" :BUILD_TYPE,"&_
|
| 124 |
"BEGIN "&_
|
124 |
" :SET_TO_PV_ID,"&_
|
| 125 |
" PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
|
125 |
" :RTAG_ID,"&_
|
| 126 |
" :PKG_VERSION,"&_
|
126 |
" :USER_ID,"&_
|
| 127 |
" :BUILD_TYPE,"&_
|
127 |
" :enumISSUES_STATE_IMPORTED,"&_
|
| 128 |
" :SET_TO_PV_ID,"&_
|
128 |
" :RETPV_ID ); "&_
|
| 129 |
" :RTAG_ID,"&_
|
129 |
" PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
|
| 130 |
" :USER_ID,"&_
|
130 |
" PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
|
| 131 |
" :enumISSUES_STATE_IMPORTED,"&_
|
131 |
"END;"
|
| 132 |
" :RETPV_ID ); "&_
|
132 |
|
| 133 |
" PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
|
133 |
retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
|
| 134 |
" PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
|
134 |
End If
|
| 135 |
"END;"
|
135 |
|
| 136 |
|
136 |
rsQry.Close()
|
| 137 |
retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
|
137 |
Set rsQry = nothing
|
| 138 |
|
138 |
objEH.CatchORA ( OraSession )
|
| 139 |
End If
|
139 |
|
| 140 |
|
140 |
OraDatabase.Parameters.Remove "ORIG_PV_ID"
|
| 141 |
|
141 |
OraDatabase.Parameters.Remove "ALTER_RELEASE"
|
| 142 |
rsQry.Close()
|
142 |
OraDatabase.Parameters.Remove "PKG_VERSION"
|
| 143 |
Set rsQry = nothing
|
143 |
OraDatabase.Parameters.Remove "BUILD_TYPE"
|
| 144 |
objEH.CatchORA ( OraSession )
|
144 |
OraDatabase.Parameters.Remove "SET_TO_PV_ID"
|
| 145 |
|
145 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 146 |
|
146 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 147 |
OraDatabase.Parameters.Remove "ORIG_PV_ID"
|
147 |
OraDatabase.Parameters.Remove "enumISSUES_STATE_IMPORTED"
|
| 148 |
OraDatabase.Parameters.Remove "ALTER_RELEASE"
|
148 |
OraDatabase.Parameters.Remove "RETPV_ID"
|
| 149 |
OraDatabase.Parameters.Remove "PKG_VERSION"
|
- |
|
| 150 |
OraDatabase.Parameters.Remove "BUILD_TYPE"
|
- |
|
| 151 |
OraDatabase.Parameters.Remove "SET_TO_PV_ID"
|
- |
|
| 152 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
- |
|
| 153 |
OraDatabase.Parameters.Remove "USER_ID"
|
- |
|
| 154 |
OraDatabase.Parameters.Remove "enumISSUES_STATE_IMPORTED"
|
- |
|
| 155 |
OraDatabase.Parameters.Remove "RETPV_ID"
|
- |
|
| 156 |
End Sub
|
149 |
End Sub
|
| 157 |
'---------------------------------------------------------------
|
150 |
'---------------------------------------------------------------
|
| 158 |
Sub Config_Spec (NNRtag_id, NNPv_id)
|
151 |
Sub Config_Spec (NNRtag_id, NNPv_id)
|
| 159 |
OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
152 |
OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 160 |
OraDatabase.Parameters.Add "PV_ID", NNPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
153 |
OraDatabase.Parameters.Add "PV_ID", NNPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 161 |
|
154 |
|
| 162 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))
|
155 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))
|
| 163 |
|
- |
|
| 164 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
- |
|
| 165 |
OraDatabase.Parameters.Remove "PV_ID"
|
- |
|
| 166 |
|
156 |
|
| - |
|
157 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| - |
|
158 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 167 |
End Sub
|
159 |
End Sub
|
| 168 |
'---------------------------------------------------------------
|
160 |
'---------------------------------------------------------------
|
| 169 |
Sub Config_Spec_Template (config_branch, pkg_label, src_path, pkg_name, release_name)
|
161 |
Sub Config_Spec_Template (config_branch, pkg_label, src_path, pkg_name, release_name)
|
| 170 |
|
162 |
|
| 171 |
|
- |
|
| 172 |
Dim myMail, LocalPath, Template
|
163 |
Dim myMail, LocalPath, Template
|
| 173 |
|
164 |
|
| 174 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
165 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
| 175 |
'LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
|
166 |
'LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
|
| 176 |
myMail.Host = SMTP_HOST
|
167 |
myMail.Host = SMTP_HOST
|
| 177 |
myMail.Subject="Config Specs for package "& pkg_name &" in "& release_name &""
|
168 |
myMail.Subject="Config Specs for package "& pkg_name &" in "& release_name &""
|
| 178 |
myMail.From = ADMIN_EMAIL
|
169 |
myMail.From = ADMIN_EMAIL
|
| 179 |
myMail.AddAddress objAccessControl.UserEmail
|
170 |
myMail.AddAddress objAccessControl.UserEmail
|
| 180 |
' Attach the file
|
171 |
' Attach the file
|
| 181 |
'myMail.AddAttachment LocalPath
|
172 |
'myMail.AddAttachment LocalPath
|
| 182 |
Template = "element * CHECKEDOUT" & chr(13) & chr(10) & _
|
173 |
Template = "element * CHECKEDOUT" & chr(13) & chr(10) & _
|
| 183 |
"element .../lost+found -none" & chr(13) & chr(10) & _
|
174 |
"element .../lost+found -none" & chr(13) & chr(10) & _
|
| 184 |
"element * .../"& config_branch &"/LATEST" & chr(13) & chr(10) & _
|
175 |
"element * .../"& config_branch &"/LATEST" & chr(13) & chr(10) & _
|
| 185 |
"element * "& pkg_label &" -mkbranch "& config_branch &"" & chr(13) & chr(10) & _
|
176 |
"element * "& pkg_label &" -mkbranch "& config_branch &"" & chr(13) & chr(10) & _
|
| 186 |
"element * /main/0 -mkbranch "& config_branch &"" & chr(13) & chr(10) & _
|
177 |
"element * /main/0 -mkbranch "& config_branch &"" & chr(13) & chr(10) & _
|
| 187 |
"load "& src_path &""
|
178 |
"load "& src_path &""
|
| 188 |
|
- |
|
| 189 |
|
179 |
|
| 190 |
myMail.Body = Template
|
180 |
myMail.Body = Template
|
| 191 |
myMail.Send
|
181 |
myMail.Send
|
| 192 |
set myMail=nothing
|
182 |
set myMail=nothing
|
| 193 |
|
183 |
|
| 194 |
|
184 |
|
| 195 |
End Sub
|
185 |
End Sub
|
| 196 |
'---------------------------------------------------------------
|
186 |
'---------------------------------------------------------------
|
| 197 |
Function SanityCheck ( newVersion )
|
187 |
Function SanityCheck ( newVersion )
|
| 198 |
|
188 |
|
| 199 |
SanityCheck = False
|
189 |
SanityCheck = False
|
| 200 |
|
190 |
|
| 201 |
Dim objRegEx, objRegEx2
|
191 |
Dim objRegEx, objRegEx2
|
| 202 |
Set objRegEx = New RegExp
|
192 |
Set objRegEx = New RegExp
|
| 203 |
Set objRegEx2 = New RegExp
|
193 |
Set objRegEx2 = New RegExp
|
| 204 |
|
194 |
|
| 205 |
objRegEx.IgnoreCase = True
|
195 |
objRegEx.IgnoreCase = True
|
| 206 |
objRegEx.Pattern = "^[0-9]+\.[0-9]+\.[0-9]+\.[a-zA-Z0-9]+$"
|
196 |
objRegEx.Pattern = "^[0-9]+\.[0-9]+\.[0-9]+\.[a-zA-Z0-9]+$"
|
| 207 |
objRegEx2.Pattern = "\.cots$"
|
197 |
objRegEx2.Pattern = "\.cots$"
|
| 208 |
|
198 |
|
| 209 |
If Len(newVersion) <= 50 Then
|
199 |
If Len(newVersion) <= 50 Then
|
| 210 |
If objRegEx.Test( newVersion ) OR objRegEx2.Test( newVersion ) Then
|
200 |
If objRegEx.Test( newVersion ) OR objRegEx2.Test( newVersion ) Then
|
| 211 |
SanityCheck = True
|
201 |
SanityCheck = True
|
| 212 |
End If
|
202 |
End If
|
| 213 |
End If
|
203 |
End If
|
| 214 |
|
204 |
|
| 215 |
If Request("build_type") = "A" Then
|
205 |
If Request("build_type") = "A" Then
|
| 216 |
SanityCheck = True
|
206 |
SanityCheck = True
|
| 217 |
End If
|
207 |
End If
|
| 218 |
|
208 |
|
| 219 |
Set objRegEx = Nothing
|
209 |
Set objRegEx = Nothing
|
| 220 |
Set objRegEx2 = Nothing
|
210 |
Set objRegEx2 = Nothing
|
| 221 |
|
- |
|
| 222 |
End Function
|
211 |
End Function
|
| 223 |
'---------------------------------------------------------------
|
212 |
'---------------------------------------------------------------
|
| 224 |
Function VersionHasCotsExtension ( newVersion )
|
213 |
Function VersionHasCotsExtension ( newVersion )
|
| 225 |
VersionHasCotsExtension = False
|
214 |
VersionHasCotsExtension = False
|
| 226 |
|
215 |
|
| 227 |
Dim myRegExp
|
216 |
Dim myRegExp
|
| 228 |
Set myRegExp = New RegExp
|
217 |
Set myRegExp = New RegExp
|
| 229 |
|
- |
|
| 230 |
myRegExp.Pattern = "\.cots$"
|
- |
|
| 231 |
|
- |
|
| 232 |
If myRegExp.Test( newVersion ) Then
|
- |
|
| 233 |
VersionHasCotsExtension = True
|
- |
|
| 234 |
End If
|
- |
|
| 235 |
|
- |
|
| 236 |
Set myRegExp = Nothing
|
- |
|
| 237 |
|
218 |
|
| - |
|
219 |
myRegExp.Pattern = "\.cots$"
|
| - |
|
220 |
|
| - |
|
221 |
If myRegExp.Test( newVersion ) Then
|
| - |
|
222 |
VersionHasCotsExtension = True
|
| - |
|
223 |
End If
|
| - |
|
224 |
|
| - |
|
225 |
Set myRegExp = Nothing
|
| 238 |
End Function
|
226 |
End Function
|
| 239 |
'---------------------------------------------------------------
|
227 |
'---------------------------------------------------------------
|
| 240 |
%>
|
228 |
%>
|
| 241 |
<%
|
229 |
<%
|
| 242 |
'----------------------- MAIN LINE ---------------------------
|
230 |
'----------------------- MAIN LINE ---------------------------
|
| 243 |
Dim rsQry, Query_String, Record_Count
|
231 |
Dim rsQry, Query_String, Record_Count
|
| - |
|
232 |
Dim versionToSanityCheck
|
| 244 |
'--- Process submission ---
|
233 |
'--- Process submission ---
|
| 245 |
|
234 |
|
| 246 |
If Request("build_type") = "A" AND VersionHasCotsExtension( parFRnewver ) Then
|
235 |
If Request("build_type") = "A" AND VersionHasCotsExtension( parFRnewver ) Then
|
| 247 |
Call RaiseMsg ( enum_MSG_CANNOT_AUTO_GENERATE_COTS_PKG&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver)
|
236 |
Call RaiseMsg ( enum_MSG_CANNOT_AUTO_GENERATE_COTS_PKG&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver)
|
| 248 |
Else
|
237 |
Else
|
| 249 |
If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
|
238 |
If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
|
| 250 |
' All mandatory parameters FOUND
|
239 |
' All mandatory parameters FOUND
|
| 251 |
|
240 |
|
| 252 |
If SanityCheck( parFRnewver ) Then
|
241 |
If ( (parSetToPv_id <> "") OR SanityCheck(parFRnewver) ) Then
|
| 253 |
|
242 |
|
| 254 |
If Request("build_type") = "M" Then
|
243 |
If Request("build_type") = "M" Then
|
| 255 |
Query_string = " SELECT pv.pv_id, pv.is_patch, pv.dlocked"&_
|
244 |
Query_string = " SELECT pv.pv_id, pv.is_patch, pv.dlocked"&_
|
| 256 |
" FROM package_versions pv"&_
|
245 |
" FROM package_versions pv"&_
|
| 257 |
" WHERE pv.pkg_version = '"& parFRnewver &"'"&_
|
246 |
" WHERE pv.pkg_version = '"& parFRnewver &"'"&_
|
| 258 |
" AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id"&_
|
247 |
" AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id"&_
|
| 259 |
" FROM package_versions origpv"&_
|
248 |
" FROM package_versions origpv"&_
|
| 260 |
" WHERE origpv.pv_id = "& parOLDpv_id &")"
|
249 |
" WHERE origpv.pv_id = "& parOLDpv_id &")"
|
| 261 |
|
250 |
|
| 262 |
Set rsQry = OraDatabase.DbCreateDynaset(Query_String, cint(0))
|
251 |
Set rsQry = OraDatabase.DbCreateDynaset(Query_String, cint(0))
|
| 263 |
Record_Count = rsQry.RecordCount
|
252 |
Record_Count = rsQry.RecordCount
|
| 264 |
rsQry.Close()
|
253 |
rsQry.Close()
|
| 265 |
Set rsQry = Nothing
|
254 |
Set rsQry = Nothing
|
| 266 |
End If
|
255 |
End If
|
| 267 |
|
256 |
|
| 268 |
If Record_Count > 0 And Request("build_type") = "M" Then
|
257 |
If Record_Count > 0 And Request("build_type") = "M" Then
|
| 269 |
Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
258 |
Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
| 270 |
Else
|
259 |
Else
|
| 271 |
'If IsNull(rsQry("pkg_id")) Then
|
- |
|
| 272 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, parSync_rtags, NEWpv_id )
|
260 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, parSync_rtags, NEWpv_id )
|
| 273 |
'Else
|
- |
|
| 274 |
'OraSession.BeginTrans
|
- |
|
| 275 |
'OraDatabase.ExecuteSQL _
|
- |
|
| 276 |
'" UPDATE RELEASE_CONTENT SET PV_ID ="& Request("pv_id") &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& Request("OLDpv_id")
|
- |
|
| 277 |
'OraSession.CommitTrans
|
- |
|
| 278 |
'End If
|
- |
|
| 279 |
|
- |
|
| 280 |
'rsQry.Close()
|
- |
|
| 281 |
'Set rsQry = nothing
|
- |
|
| 282 |
|
- |
|
| 283 |
'Call Config_Spec (parRtag_id, NEWpv_id)
|
- |
|
| 284 |
|
- |
|
| 285 |
|
261 |
|
| 286 |
|
- |
|
| 287 |
If objEH.Finally Then
|
262 |
If objEH.Finally Then
|
| 288 |
'If (rsQry("config_spec_branch") <> "" AND rsQry("pkg_label") <> "" AND rsQry("src_path") <> "") Then
|
- |
|
| 289 |
'Call Config_Spec_Template (rsQry("config_spec_branch"), rsQry("pkg_label"), rsQry("src_path"), rsQry("pkg_name"), rsQry("rtag_name"))
|
- |
|
| 290 |
'End If
|
- |
|
| 291 |
Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|
263 |
Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|
| 292 |
|
- |
|
| 293 |
'rsQry.Close()
|
- |
|
| 294 |
'Set rsQry = nothing
|
- |
|
| 295 |
|
- |
|
| 296 |
End If
|
264 |
End If
|
| 297 |
End If
|
265 |
End If
|
| 298 |
Else
|
266 |
Else
|
| 299 |
Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
267 |
Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
| 300 |
End If
|
268 |
End If
|
| 301 |
|
269 |
|
| 302 |
Else
|
270 |
Else
|
| 303 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
271 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
| 304 |
Response.write QSTR_All
|
272 |
Response.write QSTR_All
|
| 305 |
End If ' If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
|
273 |
End If ' If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
|
| 306 |
End If ' If Request("build_type") = "A" AND VersionHasCotsExtension( parFRnewver ) Then
|
274 |
End If ' If Request("build_type") = "A" AND VersionHasCotsExtension( parFRnewver ) Then
|
| 307 |
%>
|
275 |
%>
|
| 308 |
|
276 |
|
| 309 |
<!-- DESTRUCTOR ------->
|
277 |
<!-- DESTRUCTOR ------->
|
| 310 |
<!--#include file="common/destructor.asp"-->
|
- |
|
| 311 |
|
278 |
<!--#include file="common/destructor.asp"-->
|
| - |
|
279 |
|