WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/form_edit_deps.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
+'|  form_edit_deps.asp
+'|	Used by JATS and ANT import pages to sanitize the package versions to be used
-'|                                                   |
+'|  	Do not allow user to name packages that do not exist
-'|				        EDIT 					     |
+'|  	Do not allow the user to name package-versions that do not exist
-'|					  DEPENDENCIES				     |
+'|	Used by Edit Dependencies button
-'|                   				                 |
+'|		Restrict users to versions that exist
+'|
 '=====================================================
 %>
 <%
 Option explicit
 ' Good idea to set when using redirect
 <%
 '------------ Variable Definition -------------
 Dim parPv_id
 Dim rsPkgs
 Dim HTML_pkg_list
-Dim JSrequirementsSTR
+Dim DataFound
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parPv_id = Request("pv_id")
 Set pkgInfoHash = CreateObject("Scripting.Dictionary")
+'-------------------------------------------------
+' Function:     Populate_from_Import
+' Description:  Generate the body of the display based on user imported data
+Sub Populate_from_Import ( SSdep_import, SShtml_pkg_list, BBDataFound)
+   Dim recCnt, pkg_name, pkg_version, build_type, re, Matches, Match
+   Dim Query_String, rsDeps, PVID, PKGID, builtTypeEnum, LatestVisible
+   Dim OraParameter
+   DataFound = false
+   If (SSdep_import = "") Then Exit Sub      ' exit if no dependencies are submited
+   ' Decode Server.URLEncode if present
+   SSdep_import = URLDecode( SSdep_import )
+   SSdep_import = Replace(SSdep_import, " ", "")            ' remove spaces
+   SSdep_import = Replace(SSdep_import, VBTab, "")          ' remove horizontal tabs
+   SSdep_import = Replace(SSdep_import, VBVerticalTab, "")  ' remove vertical tabs
+   SSdep_import = Replace(SSdep_import, """", "'")          ' replace " with '
+   Set re = New RegExp
+   re.IgnoreCase = True
+   re.Global = True
+   'The following regular expression captures the package name and version on each matching line.
+   'The following is an example of the format of the input string, SSdep_import.
+   '
+   'BuildPkgArchive ( 'linux_kernel_viper'  , '2.6.24.6.5000.cots' );
+   '
+   '#   Packages for creating the debian package
+   '#LinkPkgArchive  ( 'debian_dpkg'         , '1.13.25000.cots' );
+   'LinkPkgArchive  ( 'debian_packager'     , '1.1.0000.cr' );
+   'LinkPkgArchive  ( 'Jasper Patch (JBoss/Tomcat Hotfix)' , '1.6.0,REV=2006.11.29.02.51' );
+   'LinkPkgArchive  ( 'Java 2 SDK, Enterprise Edition (J2EE)' , '1.6.0,REV=2006.11.29.02.51' );
+   '
+   ' Note. Ant dependencies are formatted to look like:
+   '    AntStyle('PackageName','PackageVersion');
+   re.Pattern = "(^|\n)\s*([_A-Za-z0-9]+)\s*\(\s*\'([^\']*)\'\s*\,\s*\'([^\']*)\'\s*\)"
+   Set Matches = re.Execute(SSdep_import)
+	Query_String = ReadFile( rootPath & "queries\form_edit_import_deps.sql" )
+	OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
+	OraDatabase.Parameters.Add "PKG_NAME", pkg_name , ORAPARM_INPUT, ORATYPE_STRING
+	OraDatabase.Parameters.Add "PKG_VERSION", pkg_version, ORAPARM_INPUT, ORATYPE_STRING
+	Set OraParameter = OraDatabase.Parameters
+   recCnt=0
+   For Each Match in Matches
+     build_type = Match.SubMatches(1)
+     pkg_name = Match.SubMatches(2)
+     pkg_version = Match.SubMatches(3)
+      ' Proceed only if:
+      '    pkg name is not empty,
+      '    pkg version is not empty,
+      If ( pkg_name <> "" )  AND  ( pkg_version <> "" ) Then
+         ' Define build type
+         '  Unknown will be a BuildPkgArchive
+         If LCase(build_type) = LCase("BuildPkgArchive") Then
+            builtTypeEnum = enum_BUILD_PKG_ARCHIVE
+         ElseIf LCase(build_type) = LCase("LinkPkgArchive") Then
+            builtTypeEnum = enum_LINK_PKG_ARCHIVE
+         Else
+            builtTypeEnum = enum_BUILD_PKG_ARCHIVE
+         End If
+         '
+         ' Create one entry
+         '
+         OraParameter("PKG_NAME").Value = pkg_name
+         OraParameter("PKG_VERSION").Value = pkg_version
+         Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+         If rsDeps.RecordCount <> 0 Then
+            SShtml_pkg_list = SShtml_pkg_list & GenerateEntry( recCnt, rsDeps("pkg_id"), rsDeps("pv_id"), rsDeps("pkg_name"), rsDeps("pkg_version"), builtTypeEnum, rsDeps("lpkg_version"))
+            recCnt = recCnt + 1
+		    DataFound = true
+         End If
+     End If
+   Next
+	OraDatabase.Parameters.Remove "RTAG_ID"
+	OraDatabase.Parameters.Remove "PKG_NAME"
+	OraDatabase.Parameters.Remove "PKG_VERSION"
+    Set OraParameter = Nothing
+    rsDeps.Close
+    Set rsDeps = Nothing
+End Sub
+'-------------------------------------------------
+' Function:     Populate_from_Package
+' Description:  Generate the body of the display based on package-versions in the current package
+'
-Sub Generate_Dependencies_List ( NNpv_id, nRtag_id, SShtml_pkg_list, SSJSreq )
+Sub Populate_from_Package( NNpv_id, nRtag_id, SShtml_pkg_list, BBDataFound )
-	Dim rsDeps, Query_String, LatestVisible, disabled
+	Dim rsDeps, Query_String, recCnt
+    BBDataFound = FALSE
+    recCnt = 0
 	Query_String = ReadFile( rootPath & "queries\edit_dependencies.sql" )
 	OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 	Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 	While ((NOT rsDeps.BOF) AND (NOT rsDeps.EOF))
-        Dim PVID : PVID=rsDeps("pv_id")
-        Dim PKGID: PKGID=rsDeps("pkg_id")
-		disabled = FALSE
-		'If IsNull(rsDeps("lpv_id")) Then
-		'	disabled = TRUE
-		'End If
-		If NOT disabled Then
-			SShtml_pkg_list = SShtml_pkg_list &"<tr> "
-			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif' nowrap class='form_item'>"& rsDeps("pkg_name") &"<input name='bt"& PVID &"' type='hidden' value='"& rsDeps("build_type") &"'></td>"
+        SShtml_pkg_list = SShtml_pkg_list & GenerateEntry( recCnt, rsDeps("pkg_id"), rsDeps("pv_id"), rsDeps("pkg_name"), rsDeps("pkg_version"), rsDeps("build_type"), rsDeps("lpkg_version"))
-			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif'>" &_
-                                "<select style='width:10em;display:none' id='edpkgn"& PVID &"' class='form_item' > " &_
-                                "<input type='text' readonly ondblclick='editVerNum("& PKGID &","& PVID&");' id='pkgn"& PVID &"' name='pkgn"& PVID &"' class='form_item' size='12' value='"& rsDeps("pkg_version") &"' onBlur='Compare_Version ( """& PVID &""" );' onFocus='Compare_Version ( """& PVID &""" );'> "
+        recCnt = recCnt + 1
-			SShtml_pkg_list = SShtml_pkg_list &"    <a href='javascript:;' onClick='editVerNum("& PKGID &","& PVID & ")'><img src='images/i_edit.gif' width='12' height='12' align='absmiddle' border='0' alt='Edit Version' title='Select Version from a list'></a> "
-			SShtml_pkg_list = SShtml_pkg_list &"  </td>"
-		Else
-			SShtml_pkg_list = SShtml_pkg_list &"<tr> "
-			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif' nowrap class='form_item'>"& rsDeps("pkg_name") &"<input name='bt"& PVID &"' type='hidden' value='"& rsDeps("build_type") &"'></td>"
-			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif'><input disabled type='text' class='form_item' size='12' value='"& rsDeps("pkg_version") &"'>"
-			SShtml_pkg_list = SShtml_pkg_list &"  </td>"
-		End If
-		' Latest Versions
-		LatestVisible = "style='display:none;'"
-		If ( PVID <> rsDeps("lpv_id") ) AND ( NOT disabled ) Then
-			LatestVisible = ""
-		End If
-		SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif' class='sublbox_hitem'><DIV id='divLPV"& PVID &"' name='divLPV"& PVID &"' "& LatestVisible &">"&_
-								  		      "<a href='javascript:;' onClick='Merge_Version ( """& PVID &""", """& rsDeps("lpkg_version") &""" );'>"&_
-											  "<img src='images/bt_move_left.gif' border='0' alt='Bring over this latest version' hspace='2' align='absmiddle'>"&_
-											  "</a>"& rsDeps("lpkg_version") &"<input name='lp"& PVID &"' type='hidden' value='"& rsDeps("lpkg_version") &"'></DIV></td> "
-		SShtml_pkg_list = SShtml_pkg_list &"</tr>"
-		If disabled Then
+        BBDataFound = TRUE
-			' Store not found dependency as hidden field.
-			' NOTE: This is not safe as the client can temper with hidden value but it will do for now.
-			SShtml_pkg_list = SShtml_pkg_list &"<input type='hidden' name='pkgn"& PVID &"' value='"& rsDeps("pkg_version") &"'>"
-		Else
-			SSJSreq = SSJSreq & ",'pkgn"& PVID &"','"& rsDeps("pkg_name") &" Version','RisVersionStr'"
-		End If
 		rsDeps.MoveNext
 	WEnd
-	If SSJSreq <> "" Then SSJSreq = Right( SSJSreq, Len(SSJSreq)-1 )		' Remove first comma
 	OraDatabase.Parameters.Remove "RTAG_ID"
 	OraDatabase.Parameters.Remove "PV_ID"
 End Sub
+'-------------------------------------------------
+' Function:    GenerateEntry
+' Description: Generate one line of the import display
+Function GenerateEntry( idx, pkgId, pvId, pName, pVersion, pBuildType, pLversion)
+    Dim LatestVisible
+    GenerateEntry = GenerateEntry &"<tr> "
+    ' Package Name - will always be present
+    GenerateEntry = GenerateEntry &"  <td background='images/bg_form_lightgray.gif' nowrap class='form_item'>" & pName
+    GenerateEntry = GenerateEntry &"    <input name='bt"& idx &"' type='hidden' value='"& pBuildType &"'>"
+    GenerateEntry = GenerateEntry &"    <input name='btName"& idx &"' type='hidden' value='"& pName & "'>"
+    GenerateEntry = GenerateEntry &"  </td>"
+    ' Package Version specified by user
+    '   If package does not exist, then this is a text field
+    '
+    If isNULL(pkgId) Then
+        GenerateEntry = GenerateEntry &"  <td background='images/bg_form_lightgray.gif'>" &_
+                            "<input type='text' readonly class='form_item' size='20' value='"& pVersion &"' disabled > " &_
+                            "<input type='text' hidden id='pkgn"& idx &"' name='pkgn"& idx &"' value=''> "
+        GenerateEntry = GenerateEntry &"  </td>"
+        GenerateEntry = GenerateEntry &"  <td background='images/bg_form_lightgray.gif' class='form_item err_alert badPackage'> Package Name does not exist"
+        GenerateEntry = GenerateEntry &"  </td>"
+    Else
+        GenerateEntry = GenerateEntry &"  <td background='images/bg_form_lightgray.gif'>" &_
+                            "<select style='width:15em;display:none' id='edpkgn"& idx &"' class='form_item' > " &_
+                            "<input type='text' readonly ondblclick='editVerNum("& pkgId &","&idx&");' id='pkgn"& idx &"' name='pkgn"& idx &"' class='form_item' size='20' value='"& pVersion &"' onBlur='Compare_Version ( " & idx & " );' onFocus='Compare_Version ( " & idx & " );'> "
+        GenerateEntry = GenerateEntry &"    <a href='javascript:;' onClick='editVerNum("& pkgId &","& idx &")'><img src='images/i_edit.gif' width='12' height='12' align='absmiddle' border='0' title='Edit Version' title='Select Version from a list'></a> "
+        If isNull(pvId) Then
+            GenerateEntry = GenerateEntry &"  <span class='badPackage' id='divBver"& idx &"'>"&_
+                                                  "<img src='images/s_critical.gif' border='0' title='Version does not exist' hspace='2' align='absmiddle'>"&_
+                                                  "<input name='lpBver"& idx &"' type='hidden' value='"& pVersion &"'></span>"
+        End If
+        GenerateEntry = GenerateEntry &"  </td>"
+        ' Latest Versions
+        GenerateEntry = GenerateEntry &"  <td background='images/bg_form_lightgray.gif' class='sublbox_hitem'>"
+        LatestVisible = ""
+        If NOT IsNull(pLversion) Then
+            If ( pVersion = pLversion ) Then
+                LatestVisible = "style='display:none;'"
+            End If
+            GenerateEntry = GenerateEntry &"  <DIV id='divLPV"& idx &"' "& LatestVisible &">"&_
+                                                  "<a href='javascript:;' onClick='Merge_Version ( """& pLversion & ""","& idx & " );'>"&_
+                                                  "<img src='images/bt_move_left.gif' border='0' title='Bring over this latest version' hspace='2' align='absmiddle'>"&_
+                                                  "</a>"& pLversion &"<input name='lp"& idx &"' type='hidden' value='"& pLversion &"'></DIV>"
+        End If
+        GenerateEntry = GenerateEntry &"  </td>"
+    End If
+    GenerateEntry = GenerateEntry &"</tr>"
+End Function
 %>
 <%
 If parPv_id <> "" Then
 	Call Get_Pkg_Info ( parPv_id, NULL )
 End If
 %>
 <%
 '=================== MAIN LINE =====================
+'   Determine call mode
+On Error GoTo 0
+If (Request("FRdeps") <> "") Then
+    Call Populate_from_Import ( Request("FRdeps"), HTML_pkg_list, DataFound )
+Else
-Call Generate_Dependencies_List ( parPv_id, parRtag_id, HTML_pkg_list, JSrequirementsSTR )
+    Call Populate_from_Package ( parPv_id, parRtag_id, HTML_pkg_list, DataFound )
+End If
-If JSrequirementsSTR = "" Then
+If NOT DataFound Then
 	'Edit button clicked on empty dependency list. Redirect user to Add Dependencies
 	Response.Redirect ("form_search_pkgs.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&add_type="& enum_ADD_DEPENDENCIES)
 End If
 %>
 <html>
 <!-- JSON Support -------------------------->
 <script language="JavaScript" src="scripts/remote_scripting.js"></script>
 <script type="text/javascript" src="scripts/json2.js"></script>
 <script language="JavaScript" type="text/JavaScript">
 <!--
+// When the page is loaded
+window.onload = scanBadData;
+// ValidateForm
+function ValidateForm(){
+	return scanBadData();
+}
+//	Scan the form for bad entries and update the 'Update' button accordingly
+function scanBadData()
+{
+	var elem = MM_findObj("btn_update")
+	var rv = false;
+	if (elem) {
+		rv = document.getElementsByClassName("badPackage").length == 0;
+		elem.disabled = !rv;
+	}
+}
 // Restore original value
-function Merge_Version (pv_id, lpkg_version) {
+function Merge_Version (lpkg_version, recId) {
-    endEditVerNum(pv_id);
+    endEditVerNum(recId);
-    var ediv = MM_findObj("divLPV"+ pv_id );
+    var ediv = MM_findObj("divLPV"+ recId.toString() );
-    var epkg = MM_findObj("pkgn"+ pv_id );
+    var epkg = MM_findObj("pkgn"+ recId.toString() );
     if(epkg) epkg.value = lpkg_version;
     if(ediv) ediv.style.display = "none";
+    var ebad = MM_findObj("divBver"+ recId.toString() );
+    if(ebad) ebad.parentElement.removeChild(ebad);
+	scanBadData();
+}
 // Highlight diff between release and user selection
-function Compare_Version ( pv_id ) {
+function Compare_Version ( recId ) {
 	var cv, lv, el;
-    el = MM_findObj( "pkgn" + pv_id );
+    el = MM_findObj( "pkgn" + recId.toString() );
 	cv = (el) ? el.value : 0;
-	lv = MM_findObj( "lp" + pv_id ).value;
+	el = MM_findObj( "lp" + recId.toString() );
+	if (el)
+	{
+		lv = el.value;
-    var ediv = MM_findObj("divLPV"+ pv_id );
+		var ediv = MM_findObj("divLPV"+ recId.toString() );
+		if (ediv)
+		{
-    ediv.style.display = (cv == lv) ? 'none' : 'block';
+			ediv.style.display = (cv == lv) ? 'none' : 'block';
+		}
+	}
+}
 // Edit the version number
 var editData = new Object();
-function editVerNum(NNpkg_id, NN_pv_id)
+function editVerNum(NNpkg_id, recId)
+{
     // Only initiate the edit once
-    if (editData[NN_pv_id])
+    if (editData[recId])
+    {
-        endEditVerNum(NN_pv_id);
+        endEditVerNum(recId);
         return;
+    }
     // Get the base element in the document
-    var elem = document.getElementById('pkgn' + NN_pv_id );
+    var elem = document.getElementById('pkgn' + recId.toString() );
-    var elemed = document.getElementById('edpkgn' + NN_pv_id );
+    var elemed = document.getElementById('edpkgn' + recId.toString() );
     if ( ! (elem && elemed) )
         return;
     // Show edit element and hide the fixed text
     elem.style.display = 'none';
     elemed.style.display = '';
+	// Delete the bad version indication
+    var ebad = MM_findObj("divBver"+ recId.toString() );
+    if(ebad) ebad.parentElement.removeChild(ebad);
     // Populate essential fields
-    elemed.onchange = function(){editUpdate(NN_pv_id);}
+    elemed.onchange = function(){editUpdate(recId);}
     elemed.onblur = elemed.onchange;
     // Create a dummy selection to indicate loading
     var el = document.createElement("option");
     var vname = "Loading";
     el.textContent = vname;
     el.value = vname;
     elemed.appendChild(el);
     // Save refs to the two elements
-    var np = editData[NN_pv_id] = new Object();
+    var np = editData[recId] = new Object();
     np.edit = elemed;
     np.elem = elem;
     np.Value = elem.value;
     // Load version data into this new element
-    getVersions(NNpkg_id, NN_pv_id);
+    getVersions(NNpkg_id, recId);
+	scanBadData();
+}
-function editUpdate(NN_pv_id)
+function editUpdate(recId)
+{
-    var sd = editData[NN_pv_id];
+    var sd = editData[recId];
     sd.elem.value = sd.edit.value;
-    Compare_Version(NN_pv_id);
+    Compare_Version(recId);
+	scanBadData();
+}
 // Globals are used to save state information
-function endEditVerNum(NN_pv_id)
+function endEditVerNum(recId)
+{
-    var sd = editData[NN_pv_id];
+    var sd = editData[recId];
     if (sd) {
         sd.elem.value = sd.edit.value;
         sd.edit.style.display = 'none';
         sd.elem.style.display = '';
-        delete editData[NN_pv_id];
+        delete editData[recId];
+    }
+	scanBadData();
+}
 // Allow the user to populate the version selector box
 // Enables the selector once its been populated
 // Uses AJAX to populate the item on demand
               <tr>
                 <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
                 <td bgcolor="#FFFFFF" valign="top">
                   <!-- Body -->
                   <table width="100%" border="0" cellspacing="1" cellpadding="2">
-				    <form name="editdep" method="post" action="_update_dependencies.asp" onSubmit="MM_validateForm(<%=JSrequirementsSTR%>);return document.MM_returnValue">
+				    <form name="editdep" method="post" action="_update_dependencies.asp" onSubmit="return ValidateForm();">
 				      <tr>
                         <td colspan="2" width="1%" nowrap class="form_field"><%=pkgInfoHash.Item ("pkg_name")%>&nbsp;<%=pkgInfoHash.Item ("pkg_version")%></td>
                       </tr>
                       <tr>
                         <td colspan="2" width="1%" nowrap class="form_field">
                             </tr>
                           </table></td>
                       </tr>
                       <tr>
                         <td colspan="2" nowrap>
-                          <input type="submit" name="btn" value="Update" class="form_btn">
+                          <input type="submit" name="btn" value="Update" class="form_btn" id="btn_update">
-						  <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
+						  <input type="reset" name="btn" value="Back" class="form_btn" onClick="history.back();">
+                          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='dependencies.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=Request("rtag_id")%>';">
                           <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;" class="body_scol"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
                           <br> <br> </td>
                       </tr>
-					  <input type="hidden" name="update_type" value="edit_custom">
+					  <input type="hidden" name="update_type" value="edit_import">
 					  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
                       <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
                     </form>
                   </table>
                   <!-- END Body-->

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_edit_deps.asp – Rev 5506 → 5895