Subversion Repositories DevTools

Rev

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

Rev 1376 Rev 3959
Line 64... Line 64...
64 
   '#   Packages for creating the debian package
 64 
   '#   Packages for creating the debian package
65 
   '#LinkPkgArchive  ( 'debian_dpkg'         , '1.13.25000.cots' );
 65 
   '#LinkPkgArchive  ( 'debian_dpkg'         , '1.13.25000.cots' );
66 
   'LinkPkgArchive  ( 'debian_packager'     , '1.1.0000.cr' );
 66 
   'LinkPkgArchive  ( 'debian_packager'     , '1.1.0000.cr' );
67 
   'LinkPkgArchive  ( 'Jasper Patch (JBoss/Tomcat Hotfix)' , '1.6.0,REV=2006.11.29.02.51' );
 67 
   'LinkPkgArchive  ( 'Jasper Patch (JBoss/Tomcat Hotfix)' , '1.6.0,REV=2006.11.29.02.51' );
68 
   'LinkPkgArchive  ( 'Java 2 SDK, Enterprise Edition (J2EE)' , '1.6.0,REV=2006.11.29.02.51' );
 68 
   'LinkPkgArchive  ( 'Java 2 SDK, Enterprise Edition (J2EE)' , '1.6.0,REV=2006.11.29.02.51' );
- 
 
 69 
   '
- 
 
 70 
   ' Note. Jants and Ant dependencies are formatted to look like:
- 
 
 71 
   '    JantStyle('PackageName','PackageVersion');
- 
 
 72 
   '    AntStyle('PackageName','PackageVersion');
69 
 
 73 
 
70 
   re.Pattern = "(^|\n)\s*([_A-Za-z0-9]+)\s*\(\s*\'([^\']*)\'\s*\,\s*\'([^\']*)\'\s*\)"
 74 
   re.Pattern = "(^|\n)\s*([_A-Za-z0-9]+)\s*\(\s*\'([^\']*)\'\s*\,\s*\'([^\']*)\'\s*\)"
71 
   Set Matches = re.Execute(SSdep_import)
 75 
   Set Matches = re.Execute(SSdep_import)
72 
 
 76 
 
73 
   recCnt=0
 77 
   recCnt=0
Line 137... Line 141...
137 
 
 141 
 
138 
   rsTemp.Close
 142 
   rsTemp.Close
139 
   Set rsTemp = nothing
 143 
   Set rsTemp = nothing
140 
End Sub
 144 
End Sub
141 
 
 145 
 
- 
 
 146 
// The form passed to us may only have information for packages that need to change
- 
 
 147 
// The enumlocal_DONOT_DELETE_OLD_DEPENDENCIES does not appear to work
- 
 
 148 
//  Must provide a full set of dependencies with either a new version or the existing version
142 
 
 149 
//
143 
Sub Populate_depArray_from_EDIT_Custom ( NNpv_id, ARRdep, BBarray_is_empty, sDependBlock )
 150 
Sub Populate_depArray_from_EDIT_Custom ( NNpv_id, ARRdep, BBarray_is_empty, sDependBlock )
144 
   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT
 151 
   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT
145 
   Dim rsTemp, rsCurrent, Query_String
 152 
   Dim rsTemp, rsCurrent, Query_String
146 
 
 153 
 
147 
   Query_String = _
 154 
   Query_String = _
Line 155... Line 162...
155 
 
 162 
 
156 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 163 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
157 
 
 164 
 
158 
   recCnt = 0
 165 
   recCnt = 0
159 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 166 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 167 
      Dim pvid, pkgver, newver
- 
 
 168 
      pvid = rsTemp("pv_id")
- 
 
 169 
      pkgver = Request( "pkgn" & pvid )
- 
 
 170 
 
- 
 
 171 
      If pkgver <> "" Then
- 
 
 172 
        newver = pkgver
- 
 
 173 
      else
- 
 
 174 
        newver = rsTemp("pkg_version")
- 
 
 175 
      End if
- 
 
 176 
 
160 
      ReDim Preserve ARRdep( 2, recCnt )
 177 
      ReDim Preserve ARRdep( 2, recCnt )
161 
      ARRdep( COL_pkg_name, recCnt )    = rsTemp("pkg_name")
 178 
      ARRdep( COL_pkg_name, recCnt )    = rsTemp("pkg_name")
162 
      ARRdep( COL_pkg_version, recCnt ) = Request( "pkgn"& rsTemp("pv_id") )
 179 
      ARRdep( COL_pkg_version, recCnt ) = newver
163 
      ARRdep( COL_build_type, recCnt )  = Request( "bt"& rsTemp("pv_id") )
 180 
      ARRdep( COL_build_type, recCnt )  = Request( "bt"& pvid )
164 
 
 181 
 
165 
      If not rsTemp("pkg_version") =  Request( "pkgn"& rsTemp("pv_id") ) Then
 182 
      If not rsTemp("pkg_version") =  newver Then
166 
         sDependBlock = rsTemp("pkg_name") & " " & Request( "pkgn"& rsTemp("pv_id") )
 183 
         sDependBlock = rsTemp("pkg_name") & " " & newver
167 
      End If
 184 
      End If
168 
 
 185 
 
169 
      recCnt = recCnt + 1
 186 
      recCnt = recCnt + 1
170 
      BBarray_is_empty = FALSE
 187 
      BBarray_is_empty = FALSE
- 
 
 188 
 
171 
      rsTemp.MoveNext
 189 
      rsTemp.MoveNext
172 
   WEnd
 190 
   WEnd
173 
 
 191 
 
174 
   rsTemp.Close
 192 
   rsTemp.Close
175 
   Set rsTemp = nothing
 193 
   Set rsTemp = nothing
Line 271... Line 289...
271 
End Sub
 289 
End Sub
272 
 
 290 
 
273 
%>
 291 
%>
274 
<%
 292 
<%
275 
'-----------------------  MAIN LINE  ---------------------------
 293 
'-----------------------  MAIN LINE  ---------------------------
- 
 
 294 
'Response.Write "<pre>------------<br>"
- 
 
 295 
'Dim Item
- 
 
 296 
'For Each Item In Request.Form
- 
 
 297 
'    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
- 
 
 298 
'Next
- 
 
 299 
'Response.Write "------------<br>"
276 
 
 300 
 
277 
Dim sDependBlock
 301 
Dim sDependBlock
278 
 
 302 
 
279 
'--- Process submition ---
 303 
'--- Process submition ---
280 
If (QStrPar("pv_id") <> "")  Then
 304 
If (QStrPar("pv_id") <> "")  Then