Subversion Repositories DevTools

Rev

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

Rev 119 Rev 121
Line 46... Line 46...
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
- 
 
 52 
		SSnewver = ""
- 
 
 53 
	End If
51
54
52 
	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
53
56
54 
	If Request("build_type") = "M" Then
 57 
	If Request("build_type") = "M" Then
55 
		' Manual build
 58 
		' Manual build
Line 193... Line 196...
193 
'---------------------------------------------------------------
 196 
'---------------------------------------------------------------
194 
Function SanityCheck ( newVersion )
 197 
Function SanityCheck ( newVersion )
195 
 
 198 
 
196 
	SanityCheck = False
 199 
	SanityCheck = False
197 
 
 200 
 
198 
	Dim objRegEx
 201 
	Dim objRegEx, objRegEx2
199 
    Set objRegEx = New RegExp
 202 
    Set objRegEx = New RegExp
- 
 
 203 
	Set objRegEx2 = New RegExp
200
204
201 
    objRegEx.IgnoreCase = True
 205 
    objRegEx.IgnoreCase = True
- 
 
 206 
	objRegEx.Pattern = "^[0-9]+\.[0-9]+\.[0-9]+\.[a-zA-Z0-9]+$"
202 
    objRegEx.Pattern = "[^a-zA-Z0-9\.\-\_]"
 207 
	objRegEx2.Pattern = "\.cots$"
203
208
204 
	If Len(newVersion) <= 50 Then
 209 
	If Len(newVersion) <= 50 Then
205 
		If NOT objRegEx.Test( newVersion ) Then
 210 
		If objRegEx.Test( newVersion ) OR objRegEx2.Test( newVersion ) Then
206 
			SanityCheck = True
 211 
			SanityCheck = True
207 
		End If
 212 
		End If
208 
	End If
 213 
	End If
209 
 
 214 
 
- 
 
 215 
	If Request("build_type") = "A" Then
- 
 
 216 
		SanityCheck = True
- 
 
 217 
	End If
- 
 
 218 
 
210 
	Set objRegEx = Nothing
 219 
	Set objRegEx = Nothing
- 
 
 220 
	Set objRegEx2 = Nothing
- 
 
 221
- 
 
 222 
End Function
- 
 
 223 
'---------------------------------------------------------------
- 
 
 224 
Function VersionHasCotsExtension ( newVersion )
- 
 
 225 
	VersionHasCotsExtension = False
- 
 
 226
- 
 
 227 
	Dim myRegExp
- 
 
 228 
	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
211 
 
 237 
 
212 
End Function
 238 
End Function
213 
'---------------------------------------------------------------
 239 
'---------------------------------------------------------------
214 
%>
 240 
%>
215 
<%
 241 
<%
216 
'-----------------------  MAIN LINE  ---------------------------
 242 
'-----------------------  MAIN LINE  ---------------------------
217 
Dim rsQry, Query_String, Record_Count
 243 
Dim rsQry, Query_String, Record_Count
218 
'--- Process submission ---
 244 
'--- Process submission ---
- 
 
 245 
 
- 
 
 246 
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)
- 
 
 248 
Else
219 
If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
 249 
If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
220 
	' All mandatory parameters FOUND
 250 
	' All mandatory parameters FOUND
221 
 
 251 
 
222 
	If SanityCheck( parFRnewver ) Then
 252 
	If SanityCheck( parFRnewver ) Then
223
253
- 
 
 254 
		If Request("build_type") = "M" Then
224 
		Query_string = " SELECT pv.pv_id, pv.is_patch, pv.dlocked"&_
 255 
			Query_string = " SELECT pv.pv_id, pv.is_patch, pv.dlocked"&_
225 
           				" FROM package_versions pv"&_
 256 
           					" FROM package_versions pv"&_
226 
						" WHERE pv.pkg_version = '"& parFRnewver &"'"&_
 257 
							" WHERE pv.pkg_version = '"& parFRnewver &"'"&_
227 
            			" AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id"&_
 258 
            				" AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id"&_
228 
						"  FROM package_versions origpv"&_
 259 
							"  FROM package_versions origpv"&_
229 
						" WHERE origpv.pv_id = "& parOLDpv_id &")"
 260 
							" WHERE origpv.pv_id = "& parOLDpv_id &")"
230
261
231 
		Set rsQry = OraDatabase.DbCreateDynaset(Query_String, cint(0))
 262 
			Set rsQry = OraDatabase.DbCreateDynaset(Query_String, cint(0))
232 
		Record_Count = rsQry.RecordCount
 263 
			Record_Count = rsQry.RecordCount
233 
		rsQry.Close()
 264 
			rsQry.Close()
234 
		Set rsQry = Nothing
 265 
			Set rsQry = Nothing
235
266 
		End If
236
267
237 
		If Record_Count > 0 And Request("build_type") = "M" Then
 268 
		If Record_Count > 0 And Request("build_type") = "M" Then
238 
			Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
 269 
			Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
239 
		Else
 270 
		Else
240 
			'If IsNull(rsQry("pkg_id")) Then
 271 
			'If IsNull(rsQry("pkg_id")) Then
Line 262... Line 293...
262 
				'rsQry.Close()
 293 
				'rsQry.Close()
263 
				'Set rsQry = nothing
 294 
				'Set rsQry = nothing
264
295
265 
			End If
 296 
			End If
266 
		End If
 297 
		End If
267 
 
 - 
 
268 
	Else
 298 
	Else
269 
		Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
 299 
		Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
270 
	End If
 300 
	End If
271
301
272 
Else
 302 
Else
273 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 303 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
274 
	Response.write QSTR_All
304 
	Response.write QSTR_All
275 
End If
 - 
 
- 
 
 305 
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
276 
%>
 307 
%>
277 
 
 308 
 
278 
<!-- DESTRUCTOR ------->
 309 
<!-- DESTRUCTOR ------->
279 
<!--#include file="common/destructor.asp"-->
 310 
<!--#include file="common/destructor.asp"-->
280 

            311