Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'===================================================================
141 ghuddy 3 
'                     Package Common
119 ghuddy 4 
'===================================================================
5 
%>
6 
<!--#include file="../class/classTemplateManager.asp"-->
7 
<!--#include file="../class/classTabControl.asp"-->
8 
<!--#include file="../class/classActionButtonControl.asp"-->
147 ghuddy 9 
<!--#include file="daemon_instructions.asp"-->
183 brianf 10 
<!--#include file="daemon_status.asp"-->
185 brianf 11 
<!--#include file="../_pkg_action_buttons.asp"-->
119 ghuddy 12 
<%
13 
'------------ VARIABLE DEFINITION -------------
14 
Dim parPv_id
141 ghuddy 15 
Dim nEnvTab         ' remember environment tab
119 ghuddy 16 
Dim objBtnControl
17 
Dim aTabBtnsDef
18 
'------------ CONSTANTS DECLARATION -----------
19 
'------------ VARIABLE INIT -------------------
20 
parPv_id = Request("pv_id")
21 
Set objBtnControl = New ActionButtonControl
22 
'------------ CONDITIONS ----------------------
23 
'----------------------------------------------
24 
%>
25 
<%
26 
'------------ RUN BEFORE PAGE RENDER ----------
27 
 
28 
'--- Make sure rtag_id is always present
29 
If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then Response.Redirect("index.asp")
30 
 
31 
 
32 
'--- Rebuild Environment
33 
If (Request("rtag_id") <> "") Then
141 ghuddy 34 
   Call Rebuild_Environment ( parRtag_id )
119 ghuddy 35 
End If
36 
 
37 
'--- Persist following parameters between postbacks
38 
objPMod.PersistInQryString ( aPersistList(enumPAR_RTAG_ID) )
39 
objPMod.PersistInQryString ( aPersistList(enumPAR_PV_ID) )
40 
 
41 
 
42 
'--- Get Environment (lefthand side menu) tab
43 
nEnvTab = GetEnvTab ( Request("envtab") )
44 
 
45 
 
46 
'--- Get Package General Information
47 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
48 
If Request("pv_id") <> "" Then
141 ghuddy 49 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
119 ghuddy 50 
 
141 ghuddy 51 
   ' Make sure pv_id exists as it may be removed
52 
   If pkgInfoHash.Item("pv_id") = "" Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
119 ghuddy 53 
 
5098 dpurdie 54 
ElseIf isDefined("allowNoPackage") Then
55 
    ' Get basic information - if no package is present
56 
    ' Used by dependencies.asp, find.asp and sdk_add_release.asp
57 
    Call Get_NoPkg_Info( Request("rtag_id") )
119 ghuddy 58 
Else
5098 dpurdie 59 
    ' Don't know how we got here without a pvid - display default page
60 
    Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
119 ghuddy 61 
End If
62 
 
63 
 
64 
'----------------------------------------------
65 
%>
66 
<%
67 
'-----------------------------------------------------------------------------------------------------------------------------
183 brianf 68 
Sub RenderPackageProperties (irtag_id)
119 ghuddy 69 
%>
183 brianf 70 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
141 ghuddy 71 
   <tr>
183 brianf 72 
     <td>
141 ghuddy 73 
         <%
74 
         If pkgInfoHash.Item ("is_patch") = "Y" Then
75 
            '--- PATCH ---
76 
            Response.write "<br><a href='patches.asp?pv_id="& pkgInfoHash.Item ("patch_parent_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'><img src='icons/i_caretone.gif' hspace='2' border='0' align='absmiddle'>Back To "& pkgInfoHash.Item ("pkg_name") &"</a><br><br>"
119 ghuddy 77 
 
141 ghuddy 78 
            If pkgInfoHash.Item ("is_obsolete") = "Y" Then
79 
               Dim rsTemp
80 
               Set rsTemp = OraDatabase.DbCreateDynaset( "select patch_obsoleted_by from package_patches where patch_id ="&pkgInfoHash.Item ("pv_id"), cint(0))
119 ghuddy 81 
 
141 ghuddy 82 
               If rsTemp("patch_obsoleted_by") <> "" Then
119 ghuddy 83 
 
141 ghuddy 84 
                  Set rsTemp = OraDatabase.DbCreateDynaset( "select pkg_version from package_versions where pv_id ="&rsTemp("patch_obsoleted_by"), cint(0))
85 
                  Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( "<b>Obsoleted by patch "& rsTemp("pkg_version") & ". </b> " ) & NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
119 ghuddy 86 
 
141 ghuddy 87 
                  rsTemp.Close()
88 
                  Set rsTemp = nothing
89 
               Else
90 
                  Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
91 
               End If
92 
               Response.write enum_imgPatchObsolete
93 
            Else
94 
               Response.write enum_imgPatch
95 
            End If
119 ghuddy 96 
 
97 
 
141 ghuddy 98 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
99 
               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
100 
            Else
101 
               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
102 
            End If
103 
         Else
104 
            '--- PACKAGE ---
183 brianf 105 
            Response.write "<table cellspacing=1 cellpadding=0>"
106 
            Response.write "<tr>"
107 
            Response.write "<td>"
108 
            Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") & "&nbsp;" & "&nbsp;" & "</SPAN>"
109 
            Response.write "</td>"
110 
 
111 
            ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected
4617 dpurdie 112 
            Dim lState
141 ghuddy 113 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
4617 dpurdie 114 
              lState = enum_imgReleasedLocked
183 brianf 115 
            ElseIf pkgInfoHash("is_released") Then
4617 dpurdie 116 
              lState = enum_imgReleasedUnlocked
183 brianf 117 
            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
4617 dpurdie 118 
              lState = enum_imgPending
183 brianf 119 
            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
120 
              'ElseIf (irtag_id<>"") Then
4617 dpurdie 121 
              lState = enum_imgBuilding
141 ghuddy 122 
            End If
4617 dpurdie 123 
            If NOT isEmpty(lState) Then Response.write "<td>" & lState & "</td>"
183 brianf 124 
 
125 
            If pkgInfoHash.Item ("product_state") = 4 Then
4617 dpurdie 126 
                Response.write "<td>" & enum_imgProductRejected & "</td>"
183 brianf 127 
            End If
128 
 
129 
            Dim state_icon
130 
            If Not IsNull(pkgInfoHash.Item ("deprecated_state")) Then
131 
              Select Case CInt(pkgInfoHash.Item ("deprecated_state"))
132 
                Case enumPKG_STATE_DEPRECATED
133 
                  state_icon = enum_imgDeprecated
134 
                Case enumPKG_STATE_DEPRECATED_DEPENDENT
135 
                  state_icon = enum_imgDeprecatedDependent
136 
              End Select
4617 dpurdie 137 
              If NOT isEmpty(state_icon) Then Response.write "<td>" & state_icon & "</td>"
183 brianf 138 
            End If
139 
 
140 
            If Not (IsNull(pkgInfoHash.Item ("pkg_state")) or pkgInfoHash.Item ("pkg_state") = 0) Then
141 
              Select Case CInt(pkgInfoHash.Item ("pkg_state"))
142 
                Case enumPKG_STATE_MAJOR
143 
                  state_icon = enum_imgCritical
144 
                Case enumPKG_STATE_MINOR
145 
                  state_icon = enum_imgWarning
146 
                Case enumPKG_STATE_MAJOR_READY
147 
                  state_icon = enum_imgCReady
148 
                Case enumPKG_STATE_MINOR_READY
149 
                  state_icon = enum_imgWReady
150 
                Case enumPKG_NOT_FOUND
151 
                  state_icon = enum_imgNotFound
152 
                Case enumPKG_STATE_NEW_PATCH
153 
                  state_icon = enum_imgPatchAvailable
154 
                Case enumPKG_ADVISORY_RIPPLE
155 
                  state_icon = enum_imgAR
156 
                Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
157 
                  state_icon = enum_imgARD
5080 dpurdie 158 
                Case enumPKG_SDK_IMPORT
159 
                  state_icon = enum_imgSdkImport
160 
                Case enumPKG_SDK_DEPENDENCY
161 
                  state_icon = enum_imgSdkDep
183 brianf 162 
              End Select
4617 dpurdie 163 
                Response.write "<td>"
164 
                Response.write state_icon
165 
                Response.write "</td>"
183 brianf 166 
            End If
167 
 
5098 dpurdie 168 
            ' Package peg status
169 
            ' Not done as a part of pkg_state some states are not mutually exclusive
170 
            If pkgInfoHash.Item ("is_pegged") Then
171 
                Response.write "<td>"
172 
                Response.write enum_imgGreenPin
173 
                Response.write "</td>"
174 
            End If
183 brianf 175 
 
176 
            'build_type', and a value of 'M' = manual and 'A' = auto
177 
            If pkgInfoHash.Item("build_type") = "M" Then
4617 dpurdie 178 
                Response.write "<td>"
179 
                Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manually versioned package'>"
180 
                Response.write "</td>"
183 brianf 181 
            End If
182 
 
183 
            ' check if a daemon instruction exists for this package
184 
            Dim sDmInstr
185 
            sDmInstr = GetOpCodeListForRtagIdAndPvId( "", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "" )
186 
            If sDmInstr <> "" Then
4617 dpurdie 187 
                Response.write "<td>"
188 
                Response.write "<img src='icons/i_daemon_instr.gif' width='19' height='17' border='0' title='Daemon instruction:" & "&#13;" & sDmInstr & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
189 
                Response.write "</td>"
183 brianf 190 
            End If
191 
 
192 
            ' check if this package has a build failure file
193 
            If pkgInfoHash("has_build_failure") Then
4617 dpurdie 194 
                Response.write "<td>"
195 
                Response.write "<img src='icons/i_build_failure.gif' width='19' height='17' border='0' title='Package build failure." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
196 
                Response.write "</td>"
183 brianf 197 
            ElseIf pkgInfoHash("is_excluded") Then
198 
            ' check if this package has been excluded from the build
4617 dpurdie 199 
                Response.write "<td>"
200 
                Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
201 
                Response.write "</td>"
183 brianf 202 
            End If
203 
 
4617 dpurdie 204 
            ' Warn if the package is not in the package archive
4710 dpurdie 205 
            ' Use http access for package test as this does not require AD authentication
206 
             If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "P") Then
207 
                 If NOT testArchiveAccessPkg(pkgInfoHash.Item ("pkg_name"), pkgInfoHash.Item ("pkg_version")) Then
208 
                     Response.write "<td>"
209 
                     Response.write enum_imgNotInArchive
210 
                     Response.write "</td>"
211 
                 End If
212 
             End If
183 brianf 213 
 
4764 dpurdie 214 
             ' Warn if the package versionis not in the release
215 
             If pkgInfoHash.Exists("notInRelease")  Then
216 
                     Response.write "<td>"
217 
                     Response.write enum_imgNotInRelease
218 
                     Response.write "</td>"
219 
             End If
220 
 
183 brianf 221 
            Response.write "</tr>"
222 
            Response.write "</table>"
223 
 
141 ghuddy 224 
         End If
225 
         %>
183 brianf 226 
 
141 ghuddy 227 
      </td>
228 
   </tr>
229 
   <tr>
183 brianf 230 
      <td style=color:Red>
231 
         <%'=GetOpCodeListForRtagIdAndPvId( "NOTE: '", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "' has been requested" )%>
232 
      </td>
147 ghuddy 233 
   </tr>
183 brianf 234 
   </table>
119 ghuddy 235 
<%
236 
End Sub
237 
 
238 
'-----------------------------------------------------------------------------------------------------------------------------
183 brianf 239 
Sub RenderStatus(irtag_id,ipv_id)
119 ghuddy 240 
%>
4687 dpurdie 241 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
183 brianf 242 
   <tr>
185 brianf 243 
     <td width="100%">
183 brianf 244 
       <!-- PACKAGE PROPERTIES ----------------------------  -->
245 
       <%
246 
         If ipv_id <> "" Then
247 
           Call RenderPackageProperties (irtag_id)
248 
         End If
249 
       %>
250 
     </td>
185 brianf 251 
   </tr>
252 
   </table>
253 
<%
254 
End Sub
255 
 
256 
'-----------------------------------------------------------------------------------------------------------------------------
257 
Sub RenderDaemonBar(irtag_id,ipv_id)
258 
%>
4687 dpurdie 259 
   <!-- Daemon Bar ----------------------------  -->
5009 dpurdie 260 
   <table border="0" cellspacing="0" cellpadding="0">
185 brianf 261 
   <tr>
262 
     <td valign=bottom>
183 brianf 263 
       <%
264 
         If irtag_id<>"" Then
265 
           Dim objDmSts: Set objDmSts = New DaemonStatus
266 
       %>
5009 dpurdie 267 
           <fieldset style="margin:0px;padding:2px;">
183 brianf 268 
               <%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
269 
           </fieldset>
270 
       <%
271 
           Set objDmSts = Nothing
272 
         End If
273 
       %>
274 
     </td>
275 
   </tr>
276 
   </table>
277 
<%
278 
End Sub
279 
 
280 
'-----------------------------------------------------------------------------------------------------------------------------
185 brianf 281 
Sub RenderActionBar(irtag_id,ipv_id)
282 
   Response.write("<table border=0 cellpadding=0 cellspacing=0>")
283 
   Response.write("  <tr>")
4703 dpurdie 284 
   Response.write("    <td width='99%'>")
185 brianf 285 
   If Not ((ipv_id = "") or (IsNull(ipv_id))) Then
286 
     Call RenderActionButtons
287 
   End If
288 
   Response.write("    </td>")
4082 dpurdie 289 
 
185 brianf 290 
   Response.write("    <td width='1%'>")
291 
   Call RenderDaemonBar(irtag_id,ipv_id)
292 
   Response.write("    </td>")
293 
   Response.write("  </tr>")
294 
   Response.write("</table>")
295 
End Sub
296 
'-----------------------------------------------------------------------------------------------------------------------------
183 brianf 297 
%>