Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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