Subversion Repositories DevTools

Rev

Rev 6375 | Rev 6377 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3872 dpurdie 1 
<%
2 
'=====================================================
3 
'|                                                   |
6375 dpurdie 4 
'|                 Files and Folders                 |
3872 dpurdie 5 
'|                 Core implementation               |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
'------------ Variable Definition -------------
11 
Dim rsTemp
12 
Dim rsQry
13 
Dim sLink
14 
Dim sSize
6375 dpurdie 15 
Dim sCompSize
3872 dpurdie 16 
Dim sIcon
17 
Dim parComparePvId
18 
Dim parCompare
19 
Dim sDiffStateIcon
20 
Dim sStyle
6376 dpurdie 21 
Dim sCompVerText
22 
Dim sVerText
3872 dpurdie 23 
'------------ Constants Declaration -----------
24 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"
25 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"
26 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"
27 
'------------ Variable Init -------------------
28 
parComparePvId = Request("compare_pv_id")
29 
parCompare = Request("compare")
30 
'----------------------------------------------
31 
If Request("btn") = "Compare" Then
6375 dpurdie 32 
    parCompare = "true"
3872 dpurdie 33 
End If
34 
'----------------------------------------------
35 
%>
36 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------------------
38 
Sub DisplayMessage ()
6375 dpurdie 39 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
40 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
41 
            Select Case CStr( pkgInfoHash.Item ("release_notes_info") )
42 
            Case enum_RELEASE_NOTES_GENERATING
43 
                Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" )
44 
            Case enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE
45 
                Call DisplayInfo ( "NOT_FOUND_IN_PKG_ARCHIVE_FILE_GENERATE", "400" )
46 
            Case enum_RELEASE_NOTES_FAILED
47 
                Call DisplayInfo ( "FAILED_GENERATING_RELEASE_NOTES", "400" )
48 
            Case enum_RELEASE_NOTES_NO_PREVIOUS_VERSION
49 
                Call DisplayInfo ( "NO_PREVIOUS_VERSION_RELEASE_NOTES", "400" )
4705 dpurdie 50 
            Case enum_RELEASE_NOTES_PLACEHOLDER_PACKAGE
51 
                Call DisplayInfo ( "RELEASE_NOTES_PLACEHOLDER_PACKAGE", "400" )
6375 dpurdie 52 
            End Select
53 
 
54 
        ElseIf IsNull(pkgInfoHash.Item ("release_notes_info")) Then
55 
            Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" )
56 
 
57 
        End If
58 
 
59 
    End If
3872 dpurdie 60 
End Sub
61 
'--------------------------------------------------------------------------------------------------------------------------------------
62 
Sub DisplayComparePvIdCombo()
6375 dpurdie 63 
    Dim rsQry, isOfficial
64 
 
6376 dpurdie 65 
    sVerText = pkgInfoHash.Item("pkg_version")
66 
    sCompVerText = ""
67 
 
6375 dpurdie 68 
    ' Define version to compare
69 
    If parComparePvId = "" Then
70 
        If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) Then
71 
            parComparePvId = pkgInfoHash.Item("last_pv_id")
72 
        Else
73 
            parComparePvId = 0
74 
        End If
75 
 
76 
    End If
77 
 
78 
    OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
79 
    OraDatabase.Parameters.Add "PKG_ID",        pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
80 
    OraDatabase.Parameters.Add "V_EXT",         EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
81 
 
82 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
83 
 
84 
    Response.write "<option value=''></option>"
85 
 
3872 dpurdie 86 
    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
6375 dpurdie 87 
 
88 
        If rsQry("dlocked") = "Y" Then
89 
            isOfficial = "R&nbsp;"
90 
        Else
91 
            isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
92 
        End If
6376 dpurdie 93 
 
94 
        If rsQry("selected") <> "" Then
95 
            sCompVerText = rsQry("pkg_version")
96 
        End If
6375 dpurdie 97 
 
98 
        Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"
99 
 
100 
        rsQry.MoveNext
3872 dpurdie 101 
    WEnd
6375 dpurdie 102 
 
103 
    ' Clean up
104 
    rsQry.Close()
105 
    Set rsQry = nothing
106 
 
107 
    OraDatabase.Parameters.Remove "COMPARE_PV_ID"
108 
    OraDatabase.Parameters.Remove "PKG_ID"
109 
    OraDatabase.Parameters.Remove "V_EXT"
110 
 
3872 dpurdie 111 
End Sub
112 
'--------------------------------------------------------------------------------------------------------------------------------------
113 
Sub GetDiffStateIcon( nDiffState, outIcon, outStyle )
6375 dpurdie 114 
    Select Case CInt( nDiffState )
115 
        Case enumDB_NUM_DIFF_UPDATED
116 
            outIcon  = LIMG_UPDATED
117 
            outStyle = "body_rowbold"
118 
 
119 
        Case enumDB_NUM_DIFF_REMOVED
120 
            outIcon = LIMG_REMOVED
121 
            outStyle = "body_rowthru"
122 
 
123 
        Case enumDB_NUM_DIFF_NEW
124 
            outIcon = LIMG_ADDED
125 
            outStyle = "body_rowbold"
126 
 
127 
        Case Else
128 
            outIcon = ""
129 
            outStyle = "body_rowg"
130 
    End Select
3872 dpurdie 131 
End Sub
132 
'--------------------------------------------------------------------------------------------------------------------------------------
133 
Sub DisplayDiffSummary( orsQry )
6375 dpurdie 134 
    Dim dDiffSummary
135 
    Set dDiffSummary = CreateObject("Scripting.Dictionary")
136 
 
137 
    dDiffSummary.Item ("UPDATED") = 0
138 
    dDiffSummary.Item ("REMOVED") = 0
139 
    dDiffSummary.Item ("ADDED") = 0
140 
 
141 
    While ((NOT orsQry.BOF) AND (NOT orsQry.EOF))
142 
 
143 
        Select Case CInt( orsQry("diff_state") )
144 
            Case enumDB_NUM_DIFF_UPDATED
145 
                dDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1
146 
 
147 
            Case enumDB_NUM_DIFF_REMOVED
148 
                dDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1
149 
 
150 
            Case enumDB_NUM_DIFF_NEW
151 
                dDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1
152 
 
153 
        End Select
154 
 
155 
        orsQry.MoveNext
156 
    WEnd
157 
 
158 
 
159 
    ' Reset cursor
160 
    orsQry.MoveFirst()
161 
 
162 
 
163 
    ' Display Summary
164 
    Response.write dDiffSummary.Item ("UPDATED") &" -<img src='images/i_updated.gif' width='11' height='11' hspace='3'>Updated, "
165 
    Response.write dDiffSummary.Item ("ADDED") &" -<img src='images/i_added.gif' width='11' height='11' hspace='3'>Added, "
166 
    Response.write dDiffSummary.Item ("REMOVED") &" -<img src='images/i_removed.gif' width='11' height='11' hspace='3'>Removed"
167 
 
3872 dpurdie 168 
End Sub
169 
'--------------------------------------------------------------------------------------------------------------------------------------
170 
%>
6375 dpurdie 171 
    <!-- DETAILS ------------------------------------------------->
172 
 
173 
    <%
174 
    ' -- Open Database connection
175 
 
6376 dpurdie 176 
    If parCompare <> "" Then
177 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
178 
        OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
6375 dpurdie 179 
 
6376 dpurdie 180 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
181 
 
182 
        OraDatabase.Parameters.Remove "PV_ID"
183 
        OraDatabase.Parameters.Remove "COMPARE_PV_ID"
184 
 
6375 dpurdie 185 
    Else
6376 dpurdie 186 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
6375 dpurdie 187 
 
6376 dpurdie 188 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponents.sql"), cint(0))
6375 dpurdie 189 
 
6376 dpurdie 190 
        OraDatabase.Parameters.Remove "PV_ID"
191 
 
6375 dpurdie 192 
    End If
6376 dpurdie 193 
      '
3872 dpurdie 194 
      ' If not called from a history tab then we display a dialog to allow comparison
195 
      ' with another version
196 
    %>
197 
    <%If pkgCompare Then %>
6375 dpurdie 198 
            <form name="formname" method="get" action="<%=ScriptName%>" onSubmit="ProgressBar.style.visibility='visible';">
199 
            <br>
6376 dpurdie 200 
            <span class="body_colb">Files and Folders</span><br>
201 
 
202 
            <%If rsQry.Recordcount > 0 Then%>
203 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
204 
              <tr>
205 
                <td nowrap class="body_txt">
206 
                    Show differences since version
207 
                    <select name="compare_pv_id" class="form_item">
208 
                    <%Call DisplayComparePvIdCombo()%>
209 
                    </select>
210 
                    <input name="btn" type="submit" class="form_btn" value="Compare">
211 
                    <%If parCompare <> "" Then%>
212 
                    &nbsp;&nbsp;&nbsp;
213 
                    <a class="form_btn" href="<%=scriptName%>?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>">Show <%=sVerText%></a>
214 
                    <a class="form_btn" href="<%=scriptName%>?pv_id=<%=parComparePvId%>&rtag_id=<%=parRtag_id%>">Show <%=sCompVerText%></a>
215 
                    <%End If%>
216 
                </td>
217 
                <td nowrap class="body_txt" align="right">
218 
                    <%If parCompare <> "" Then%>
219 
                        <%Call DisplayDiffSummary( rsQry ) %>
220 
                    <%End If%>
221 
                </td>
222 
              </tr>
223 
            </table>
224 
            <hr size="1" noshade color="#999999">
225 
            <%End If%>
3872 dpurdie 226 
    <%End If%>
227 
 
228 
    <!-- MODULE COMPONENTS ++++++++++++++++++++++++++++++++++++++ -->
6375 dpurdie 229 
 
230 
 
231 
        <!-- ==================================================== -->
232 
        <!-- ===================  COMPARE ======================= -->
233 
        <!-- ==================================================== -->
234 
        <%If parCompare <> "" Then%>
235 
            <%If rsQry.Recordcount > 0 Then%>
236 
 
237 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
6376 dpurdie 238 
            <tr class="form_field_hdr">
239 
              <td width="1"   rowspan="2"></td>
240 
              <td width="60%" rowspan="2">Name</td>
241 
              <td width="20%" colspan="2" align="center"><%=sVerText%></td>
242 
              <td width="20%" colspan="2" align="center"><%=sCompVerText%></td>
6375 dpurdie 243 
            </tr>
6376 dpurdie 244 
            <tr class="form_field_hdr">
245 
              <td align="right">Byte Size</td>
246 
              <td align="right">CKSUM</td>
247 
              <td align="right">Byte Size</td>
248 
              <td align="right">CKSUM</td>
249 
            </tr>
6375 dpurdie 250 
            <%
251 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
6376 dpurdie 252 
                Dim sizeStyle : sizeStyle = ""
253 
                Dim sumStyle  : sumStyle = ""
254 
                Dim diffState : diffState = rsQry("diff_state")
255 
                Dim sSum, sCompSum
256 
                sSum = rsQry("crc_cksum")
257 
                sCompSum = rsQry("comp_crc_cksum")
258 
                sSize = rsQry("byte_size")
259 
                sCompSize = rsQry("comp_byte_size")
260 
                Call GetDiffStateIcon( diffState, sDiffStateIcon, sStyle )
6375 dpurdie 261 
 
262 
                ' Find if this is file or folder
6376 dpurdie 263 
                If (IsNull(sSum) AND  (sSize = 0)) OR (IsNull(sCompSum) AND (sCompSize = 0)) Then
6375 dpurdie 264 
                    sSize = ""
265 
                    sCompSize = ""
266 
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
267 
                Else
268 
                    sSize = rsQry("byte_size")
269 
                    sCompSize = rsQry("comp_byte_size")
270 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
6376 dpurdie 271 
 
272 
                    If diffState > 1 OR (sSum <>  sCompSum) Then
273 
                        sumStyle = "err_dtl"
274 
                    End If
275 
 
276 
                    If diffState > 1 OR (sSize <> sCompSize) Then
277 
                        sizeStyle = "err_dtl"
278 
                    End If
279 
 
6375 dpurdie 280 
                End If
281 
 
282 
            %>
6376 dpurdie 283 
            <tr class="form_item_grey">
284 
              <td nowrap ><%=sDiffStateIcon%></td>
285 
              <td nowrap class="<%=sStyle%>"><%=sIcon & rsQry("name")%></td>
286 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sSize%></td>
287 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sSum%></td>
288 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sCompSize%></td>
289 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sCompSum%></td>
6375 dpurdie 290 
            </tr>
291 
            <%
292 
                rsQry.MoveNext
293 
            WEnd
294 
 
295 
            rsQry.Close()
296 
            Set rsQry = nothing
297 
            %>
298 
            </table><br>
299 
 
300 
            <%End If%>
301 
        <%Else%>
302 
        <!-- ==================================================== -->
303 
        <!-- =================== NORMAL FILES =================== -->
304 
        <!-- ==================================================== -->
6376 dpurdie 305 
            <%If rsQry.Recordcount < 1 Then
306 
                ' No files found ...
307 
                Call DisplayMessage ()
308 
            Else
6375 dpurdie 309 
            %>
310 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
6376 dpurdie 311 
            <tr class="form_field_hdr">
312 
              <td width="25%" >Name</td>
313 
              <td width="25%" align="right">Byte Size</td>
314 
              <td width="25%" align="right">CKSUM</td>
315 
              <td width="25%" align="right">MODCRC</td>
6375 dpurdie 316 
            </tr>
317 
            <%
318 
            Dim uRL
319 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
320 
                sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
321 
 
322 
                ' Find if this is file or folder
323 
                If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
324 
                    sSize = ""
325 
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
326 
                Else
327 
                    sSize = rsQry("byte_size")
328 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
329 
                End If
330 
 
331 
            %>
6376 dpurdie 332 
            <tr class="form_field_grey_bg body_txt_gray">
333 
              <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=sIcon & rsQry("file_path") & rsQry("file_name")%></a></td>
334 
              <td nowrap align="right"><%=sSize%></td>
335 
              <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
336 
              <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
6375 dpurdie 337 
            </tr>
338 
            <%
339 
                rsQry.MoveNext
340 
            WEnd
341 
            rsQry.Close()
342 
            Set rsQry = nothing
343 
            %>
344 
            </table><br>
345 
 
346 
            <%End If%>
347 
        <!-- ==================================================== -->
348 
        <%End If%>
349 
 
3872 dpurdie 350 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
351 
    <%If pkgCompare Then %>
6375 dpurdie 352 
        <input type="hidden" name="compare" value="<%=parCompare%>">
353 
        <input type="hidden" name="pv_id" value="<%=parPv_Id%>">
354 
        <input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
355 
        </form>
356 
    <%End If%>
3872 dpurdie 357