Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
5623 dpurdie 4 
'
5 
'  Build Status Information
6 
'
5357 dpurdie 7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0  ' always load the page, dont store
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/_form_window_common.asp"-->
20 
<!--#include file="_action_buttons.asp"-->
21 
<!--#include file="class/classActionButtonControl.asp"-->
22 
<!--#include file="common/daemon_instructions.asp"-->
6166 dpurdie 23 
<!--#include file="common/common_daemon.asp"-->
6048 dpurdie 24 
<% '------------ ACCESS CONTROL ------------------ %>
6181 dpurdie 25 
<!--#include file="_access_control_login_optional.asp"-->
6070 dpurdie 26 
<!--#include file="_access_control_general.asp"-->
6052 dpurdie 27 
<!--#include file="_access_control_action_project.asp"-->
5357 dpurdie 28 
<% '------------ Scripts -------------------------- %>
29 
<%
30 
'------------ Variable Definition -------------
31 
Dim rsQry
32 
Dim parRtagId
33 
Dim query_string
34 
Dim rcon_id
35 
Dim shref_base
6786 dpurdie 36 
Dim canControl
5357 dpurdie 37 
'------------ Constants Declaration -----------
38 
'------------ Variable Init -------------------
39 
parRtagId = Request("rtag_id")
40 
objPMod.PersistInQryString("rtag_id")
6786 dpurdie 41 
canControl = canActionControlInProject("BuildControl")
5357 dpurdie 42 
'----------------------------------------------
6545 dpurdie 43 
Sub IncludePackages()
5357 dpurdie 44 
 
45 
   On Error Resume Next
46 
   objEH.ErrorRedirect = TRUE
47 
   OraDatabase.Parameters.Add "PV_ID_LIST",  Request("pv_id_list"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
48 
   OraDatabase.Parameters.Add "RTAG_ID",     parRtag_id,  ORAPARM_INPUT, ORATYPE_NUMBER
49 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
50 
 
51 
   objEH.TryORA ( OraSession )
6545 dpurdie 52 
   OraDatabase.ExecuteSQL "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
5357 dpurdie 53 
   objEH.CatchORA ( OraSession )
54 
 
55 
   OraDatabase.Parameters.Remove "PV_ID_LIST"
56 
   OraDatabase.Parameters.Remove "RTAG_ID"
57 
   OraDatabase.Parameters.Remove "USER_ID"
58 
 
59 
End Sub
60 
'--------------------------------------------------------------------------------------------------------------------------
61 
'------------ RUN BEFORE PAGE RENDER ----------
62 
shref_base = "http://" & archive_server & "/devl/abtlog/"
63 
 
64 
'----------------------------------------------------
65 
' --- RUN onPostBack ---
66 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
67 
 
68 
  If objEH.Finally Then
69 
    If Request("action") = "include" Then
6559 dpurdie 70 
      Call IncludePackages ()
5357 dpurdie 71 
      ' Redirect to the current page so that a refesh will not
72 
      ' cause a form re-submit.
5957 dpurdie 73 
      Call Destroy_All_Objects
5357 dpurdie 74 
      Response.Redirect(ScriptName & "?rtag_id=" & parRtagId)
75 
    Else
76 
      Call OpenInWindow ( "dependencies.asp?rtag_id="& parRtagId )
77 
    End If
78 
  End If
79 
 
80 
End If
81 
 
82 
'----------------------------------------------
6546 dpurdie 83 
Sub ShowBuildStatus
84 
    <!-- FORM START -->
85 
    objFormComponent.FormName = "FormName"
86 
    objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
87 
    Call objFormComponent.FormStart()
88 
    %>
6874 dpurdie 89 
    <div>
90 
        <div class=panel>
91 
            <div class=rounded_box_caption>
92 
                BUILD STATUS INFORMATION
93 
            </div>
94 
            <div class="rounded_box">
95 
                <div class='rounded_box_pad listPanel'>
96 
                    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
97 
                    <!--#include file="messages/_msg_inline.asp"-->
98 
                    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
99 
                    <table width="100%" border="0" cellspacing="2" cellpadding="0">
100 
                        <tr>
101 
                            <td colspan=4 class='err_alert'><font size='2'><b>Packages Excluded From Build</b></font></td>
102 
                        </tr>
103 
                        <tr>
104 
                        <td></td>
105 
                        <td  colspan=3 class="body_row">
106 
                           <fieldset class="fset" align="right" style=" border: 1px groove;">
107 
                                Show
108 
                                <input type="checkbox" checked value=0 name="showManual"   id="manualCause"   onClick="toggleDispClass('manualCause',1);">Manual Exclusions
109 
                                <input type="checkbox" checked value=0 name="showCause"    id="rootCause"     onClick="toggleDispClass('rootCause',1);">Config Errors
110 
                                <input type="checkbox" checked value=0 name="showNoEnv"    id="rootNoEnv"     onClick="toggleDispClass('rootNoEnv',1);">Env Errors
111 
                                <input type="checkbox" checked value=0 name="showFile"     id="rootFile"      onClick="toggleDispClass('rootFile',1);">Build Errors
112 
                                <input type="checkbox" checked value=0 name="showIndirect" id="rootIndirect"  onClick="toggleDispClass('rootIndirect',1);">Indirect Exclusions
113 
                           </fieldset>
114 
                           </td>
115 
                        </tr>
6546 dpurdie 116 
 
6874 dpurdie 117 
                       <tr>
118 
                          <td class="head err_alert">Directly</td>
119 
                          <td class='head'>Package</td>
120 
                          <td class='head'>Version</td>
121 
                          <td class='head'>Root Cause</td>
122 
                       </tr>
123 
                       <tr>
124 
       <%
125 
       query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description, dnr.root_pv_id"&_
126 
                      "   from do_not_ripple dnr, package_versions pv, packages pkg"&_
127 
                      "  where dnr.rtag_id = "& parRtagId &_
128 
                      "    and pv.pv_id    = dnr.pv_id"&_
129 
                      "    and pkg.pkg_id  = pv.pkg_id"&_
130 
                      "    and nvl(dnr.root_pv_id, -1) < 0 " &_
131 
                      "  order by pkg_name"
132 
       Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
133 
       '--- Render rows ---
134 
       Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
135 
        Dim rowClass
136 
        Dim rowData
137 
        '
138 
        ' Manually excluded packages have no root_cause or root_file or root_pv_id
139 
        '
140 
        ' root_file, if supplied, indicates a build failure log file exists
141 
        ' this should always prevail over the textual root_cause
142 
        '
143 
        If (IsNull(rsQry("root_file")) AND IsNull(rsQry("root_cause"))) Then
144 
            rowData = "Manually Excluded"
145 
            rowClass = "manualCause"
6546 dpurdie 146 
 
6874 dpurdie 147 
        ElseIf IsNull(rsQry("root_file")) Then
148 
           rowData = rsQry("root_cause")
149 
           If InStr(rowData, "no build env") Then
150 
               rowClass = "rootNoEnv"
151 
           Else
152 
               rowClass = "rootCause"
153 
           End If
6546 dpurdie 154 
 
6874 dpurdie 155 
        Else
156 
            rowClass = "rootFile"
157 
            rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
158 
                      " Log file may have expired."" " &_
159 
                      "href=""" & shref_base & rsQry("root_file") & """>" &_
160 
                      "Build Failure Log File</a>"
161 
        End If
6546 dpurdie 162 
 
6874 dpurdie 163 
        Dim checkBoxData, checkBoxClass
164 
        If NiceInt(rsQry("root_pv_id"), -1) = -1   Then
165 
            checkBoxData = ""
166 
            checkBoxClass = "directInclude"
167 
        Else
168 
            checkBoxData = "disabled"
169 
            checkBoxClass = ""
170 
        End If
6546 dpurdie 171 
 
6874 dpurdie 172 
       %>
173 
          <tr class=" border <%=rowClass%>">
174 
             <td nowrap width="1%">
175 
                <a name="PkgName_<%=rsQry("pkg_name")%>">
176 
                <input class="<%=checkBoxClass%>" type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" <%=checkBoxData%>>
177 
                </a>
178 
             </td>
179 
             <td><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry("pv_id")%>&rtag_id=<%=rsQry("rtag_id")%>" title="<%=rsQry("pv_description")%>"><%=rsQry("pkg_name")%></a></td>
180 
             <td><%=rsQry("pkg_version")%></td>
181 
             <td><%=rowData%></td>
182 
          </tr>
183 
       <%
184 
        rsQry.MoveNext
185 
       Loop
6546 dpurdie 186 
 
6874 dpurdie 187 
       query_string = " select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description"&_
188 
                      "   from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg"&_
189 
                      "  where dnr.rtag_id = "& parRtagId &_
190 
                      "    and pv.pv_id    = dnr.pv_id"&_
191 
                      "    and pkg.pkg_id  = pv.pkg_id"&_
192 
                      "    and qv.pv_id    = dnr.root_pv_id"&_
193 
                      "    and qkg.pkg_id  = qv.pkg_id"&_
194 
                      "    and nvl(dnr.root_pv_id, -1) > 0"&_
195 
                      "  order by pkg.pkg_name"
196 
       Dim rsQry2
197 
       Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
198 
       ' -- DISPLAY INDIRECTLY EXCLUDED PACKAGES
199 
       '--- Render rows ---
200 
        If rsQry2.recordCount > 0    Then
201 
        %>
202 
          <tr>
203 
          <td class='head err_alert'>Indirectly</td>
204 
          <td class='head'>Package</td>
205 
          <td class='head'>Version</td>
206 
          <td class='head'>Root Cause Package</td>
207 
          </tr>
208 
       <%
209 
        End If
210 
       Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)%>
211 
          <tr class=" border rootIndirect">
212 
             <td><input type="checkbox" value=0 disabled=true name="notused"></td>
213 
             <td><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry2(0)%>&rtag_id=<%=rsQry2(4)%>" title="<%=rsQry2(5)%>"><%=rsQry2(1)%></a></td>
214 
             <td><%=rsQry2(2)%></td>
215 
             <td><a href="#PkgName_<%=rsQry2(3)%>" style="text-decoration: none;">&raquo;&nbsp;<%=rsQry2(3)%></a></td>
216 
          </tr>
217 
          <%
218 
          rsQry2.MoveNext
219 
       Loop%>
220 
         <tr class=foot>
221 
             <td><input id="toggleDirect"
222 
                        <%=Iif(rsQry.RecordCount > 0, "", " disabled ")%>
223 
                        type="checkbox" title="Toggle all visible directly excluded packages"></td>
224 
             <td colspan=3 class="right">
225 
                <%
226 
                Response.Write(objFormComponent.SubmitButton ( "Include", "name='IncludeSubmit' id='IncludeSubmit' class='form_btn' disabled style='color:silver' onClick=""return vixConfirm('Are you sure you want to include these packages for building?',{title:'Include Packages', post : 'FormName'})""" ))
6546 dpurdie 227 
                %>
6874 dpurdie 228 
             </td>
229 
         </tr>
230 
     </table>
231 
    </div>
232 
    </div>
233 
    </div>
234 
    </div>
6546 dpurdie 235 
    <!-- ACTION BUTTONS ---------------------------------------------->
236 
    <input type="hidden" name="action" value="include">
237 
    <!-- ACTION BUTTONS END  ------------------------------------------>
6874 dpurdie 238 
    <%Response.Write(objPMod.ComposeHiddenTags())%>
6546 dpurdie 239 
    <%Call objFormComponent.FormEnd()%>
240 
    <!-- FORM END ----------------------------------------------------->
241 
    <%
242 
    rsQry.Close()
243 
    Set rsQry = nothing
244 
    rsQry2.Close()
245 
    Set rsQry2 = nothing
246 
End Sub
247 
'-------------------------------------------------
248 
'
249 
Sub ShowDaemonStatus
5357 dpurdie 250 
%>
6874 dpurdie 251 
<div>
252 
    <div class="panel">
253 
        <div class=rounded_box_caption>
254 
                <table align="center" class="full_table">
255 
                   <tr>
256 
                      <td nowrap class="form_ttl"><p>DAEMON STATUS INFORMATION</p>
257 
                      </td>
258 
                      <td  valign="bottom" class="body_rowg">
259 
                        Last Build: <%=GetLastBuildAge(parRtagId)%> [<%=GetModifiedSeqNo(parRtagId)%>]
260 
                      </td>
261 
                      <td align="right" valign="bottom">
262 
                        <a class="txt_linked" href="<%=scriptName%>?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a>
263 
                      </td>
264 
                   </tr>
265 
                </table>
266 
        </div>
267 
        <div class='rounded_box'>
268 
            <div  class=listPanel>
269 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
270 
                <!--#include file="messages/_msg_inline.asp"-->
271 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
272 
                <table width="100%" border="0" cellspacing="2" cellpadding="0">
273 
                   <%
274 
                   Dim bInactiveMachine : bInactiveMachine = false
275 
                   %>
276 
                   <td width="9%" valign="top"></td>
277 
                   <thead>
278 
                      <th>Daemon Host</th>
279 
                      <th>Machine Type</th>
280 
                      <th>Mode</th>
281 
                      <th>Run Level</th>
282 
                      <th>Current Package</th>
283 
                      <th>Est Duration<%=Quick_Help("h_buildtime")%></th>
284 
                      <th>Last Change<%=Quick_Help("h_lastchange")%></th>
285 
                      <th>Control State</th>
286 
                   </thead>
287 
                   <%
288 
                   ' Get Build Information for this Release
289 
                   query_string = _
290 
                        "SELECT rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') AS ACTIVE," &_
291 
                        "       rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) AS delta," &_
292 
                        "       pk.pkg_name, rl.current_pv_id, pv.build_time, TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) AS build_delta" &_
293 
                        " FROM release_config rc," &_
294 
                        "   gbe_machtype gm," &_
295 
                        "   build_machine_config bm," &_
296 
                        "   run_level rl," &_
297 
                        "   packages pk," &_
298 
                        "   package_versions pv" &_
299 
                        " WHERE rc.rtag_id     = " & parRtagId &_
300 
                        "  AND gm.gbe_id        = rc.gbe_id" &_
301 
                        "  AND rl.rcon_id(+)    = rc.rcon_id" &_
302 
                        "  AND rc.bmcon_id      =bm.bmcon_id(+)" &_
303 
                        "  AND pk.pkg_id(+)     = rl.current_pkg_id_being_built" &_
304 
                        "  AND rl.current_pv_id = pv.pv_id(+)" &_
305 
                        " ORDER BY bm.display_name, rc.rcon_id"
6546 dpurdie 306 
 
6874 dpurdie 307 
                   Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
6546 dpurdie 308 
 
6874 dpurdie 309 
                   Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
310 
                      Dim pkgName
311 
                      Dim pkgPvid
312 
                      Dim pkgBuildTime
313 
                      Dim currentRunLevel
314 
                      Dim daemonState
315 
                      Dim delta
316 
                      Dim PkgBuildDelta
317 
                      Dim pkgId
318 
                      Dim bActive
319 
                      Dim estDuration
320 
                      Dim daemonMode
321 
                      Dim lastChange
6546 dpurdie 322 
 
6874 dpurdie 323 
                      rcon_id = rsQry("rcon_id")
324 
                      ' = rsQry("display_name")
325 
                      ' = rsQry("gbe_value")
326 
                      daemonMode = rsQry("daemon_mode")
327 
                      bActive = rsQry("ACTIVE")
328 
                      daemonState = rsQry("pause")
329 
                      currentRunLevel = rsQry("current_run_level")
330 
                      pkgId = rsQry("current_pkg_id_being_built")
331 
                      delta = rsQry("delta")
332 
                      pkgName = rsQry("pkg_name")
333 
                      pkgPvid = rsQry("current_pv_id")
334 
                      pkgBuildTime = rsQry("build_time")
335 
                      PkgBuildDelta = rsQry("build_delta")
336 
                      lastChange = NULL
337 
                      estDuration = NULL
6546 dpurdie 338 
 
6874 dpurdie 339 
                      If bActive = "N" Then bInactiveMachine = true
340 
                      If IsNull(daemonState) Then daemonState = 0
341 
                      If daemonState = "2" Then pkgId = Null
342 
                      If IsNull(currentRunLevel) Then currentRunLevel = -1
343 
                      If daemonMode = "M" AND not IsNull(pkgName) Then estDuration = pkgBuildTime & "[" & PkgBuildDelta & "]"
344 
                      If bActive <> "U" Then lastChange = PrettyDelta(delta, daemonState,pkgName )
6546 dpurdie 345 
 
6874 dpurdie 346 
                      ' --- Now render HTML for this release configuration ---
347 
                      %>
348 
                      <tr class=border>
349 
                         <td><%=rsQry("display_name")%></td>
350 
                         <td><%=rsQry("gbe_value")%></td>
351 
                         <td><%=Get_Daemon_Mode(daemonMode)%></td>
7063 dpurdie 352 
                         <td><%=Get_Run_Level(currentRunLevel, IndefPause, daemonState, bActive)%></td>
6874 dpurdie 353 
                         <td><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, daemonState, bActive)%></td>
354 
                         <td><%=estDuration%></td>
355 
                         <td><%=lastChange%></td>
356 
                         <td>
357 
                            <%
7063 dpurdie 358 
                            If NOT IndefPause  Then
6874 dpurdie 359 
                                If bActive = "U" Then
360 
                                ElseIf bActive = "N" Then
361 
                                    Call Action_Buttons ( "Daemon Unavailable" )
362 
                                ElseIf daemonState = 0 Then
363 
                                    Call Action_Buttons_State ( "Daemon Pause", canControl )
364 
                                ElseIf daemonState = 1 Then
365 
                                    Call Action_Buttons_State ( "Daemon Resume", canControl )
366 
                                ElseIf daemonState = 2 Then
367 
                                    Call Action_Buttons_State ( "Daemon Start", canControl )
368 
                                Else
369 
                                    Call Action_Buttons_State ( "Daemon Resume", canControl )
370 
                              End If
371 
                            Else
372 
                               %>Unavailable<%
373 
                            End If
374 
                            %>
375 
                         </td>
376 
                      </tr>
377 
                      <%
378 
                      rsQry.MoveNext
379 
                   Loop
380 
                   %>
381 
                   <tr class=foot>
382 
                     <td colspan=7>
383 
                     <%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert">&nbsp;Daemon configuration errors detected</span>
384 
                        <a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">
385 
                            <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">
386 
                        </a>
387 
                     <%End If%>
388 
                     </td>
389 
                     <td>
390 
                     <%
7063 dpurdie 391 
                       If (rsQry.RecordCount > 0) AND NOT IndefPause Then
6874 dpurdie 392 
                           Call Action_Buttons_State ( "Daemon Control All", objAccessControl.UserLogedIn AND canControl )
393 
                       Else
394 
                         %>&nbsp<%
395 
                       End If
396 
                     %>
397 
                     </td>
398 
                   </tr>
399 
                   <%
400 
                     rsQry.Close()
401 
                     Set rsQry = nothing
402 
                   %>
403 
                </table>
404 
            </div>
405 
        </div>
406 
    </div>
407 
</div>
6546 dpurdie 408 
<%
409 
End Sub
410 
'-------------------------------------------------
411 
'
412 
Sub ShowDaemonInstructions
413 
%>
414 
<!-- Daemon Instructions Display -->
6874 dpurdie 415 
<div>
416 
    <div class=panel>
417 
        <div class=rounded_box_caption>
418 
            DAEMON INSTRUCTIONS FOR THIS RELEASE
419 
        </div>
420 
            <div class='rounded_box'>
421 
                <div class=listPanel>
422 
                    <table width="100%" border="0" cellspacing="2" cellpadding="0">
423 
                       <thead>
424 
                          <th>Operation</th>
425 
                          <th>Package</th>
426 
                          <th>Version</th>
427 
                          <th>Scheduled Time<%=Quick_Help("SchedTime")%>
428 
                          <th>Repeat</th>
429 
                          <th>In Progress</th>
430 
                       </thead>
431 
                       <%
432 
                       Dim PkgVersion
433 
                       Dim UserName
434 
                       Dim UserEmail
435 
                       Dim bInProgress
436 
                       Dim bIsOverdue
437 
                       Dim bIsReady
6546 dpurdie 438 
 
6874 dpurdie 439 
                       Set rsQry = OraDatabase.DbCreateDynaset( "SELECT DAEMON_INSTRUCTIONS_ID,"&_
440 
                                                              "       OP_CODE,"&_
441 
                                                              "       RTAG_ID,"&_
442 
                                                              "       PV_ID,"&_
443 
                                                              "       SCHEDULED_DATETIME,"&_
444 
                                                              "       REPEAT_SECS,"&_
445 
                                                              "       ADDED_DATETIME,"&_
446 
                                                              "       USER_ID,"&_
447 
                                                              "       IN_PROGRESS,"&_
448 
                                                              "       (CASE WHEN SCHEDULED_DATETIME <= SYSDATE THEN 1 ELSE 0 END) AS READY,"&_
449 
                                                              "       (CASE WHEN (SCHEDULED_DATETIME + (1/144)) < SYSDATE THEN 1 ELSE 0 END) AS OVERDUE"&_
450 
                                                              "  FROM DAEMON_INSTRUCTIONS "&_
451 
                                                              "  WHERE RTAG_ID = "& parRtagId &_
452 
                                                              "  ORDER BY PV_ID, SCHEDULED_DATETIME, DAEMON_INSTRUCTIONS_ID", ORADYN_DEFAULT )
453 
                       While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
6546 dpurdie 454 
 
6874 dpurdie 455 
                          If IsNull(rsQry("IN_PROGRESS")) OR rsQry("IN_PROGRESS") = "0" Then
456 
                             bInProgress = False
457 
                          Else
458 
                             bInProgress = True
459 
                          End If
6546 dpurdie 460 
 
6874 dpurdie 461 
                          ' only flag as overdue if time threshold has been met but the daemon has not marked the instruction as being in progress.
462 
                          If rsQry("OVERDUE") AND NOT bInProgress Then
463 
                             bIsOverdue = True
464 
                          Else
465 
                             bIsOverdue = False
466 
                          End If
6546 dpurdie 467 
 
6874 dpurdie 468 
                          If rsQry("READY") Then
469 
                             bIsReady = True
470 
                          Else
471 
                             bIsReady = False
472 
                          End If
6546 dpurdie 473 
 
6874 dpurdie 474 
                          ' Get as much info about the package as we can
475 
                          Dim PkgId: PkgId = 0
476 
                          Dim PkgName : PkgName = "N/A"
477 
                          If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then
478 
                             Call Get_Pkg_Short_Info(rsQry("PV_ID"), PkgId, PkgName, PkgVersion, NULL, NULL, NULL)
479 
                          End If
480 
                          %>
481 
                          <tr class=border>
482 
                             <td>
483 
                                <%=DaemonInstructionOperationName(rsQry("OP_CODE"))%>
484 
                             </td>
6546 dpurdie 485 
 
6874 dpurdie 486 
                             <td>
487 
                                <%If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then%>
488 
                                   <a href='fixed_issues.asp?rtag_id=<%=rsQry("RTAG_ID")%>&pv_id=<%=rsQry("PV_ID")%>'><%=PkgName%>
489 
                                <%Else%>
490 
                                   <%=PkgName%>
491 
                                <%End If%>
492 
                             </td>
6546 dpurdie 493 
 
6874 dpurdie 494 
                             <td >
495 
                                <%=PkgVersion%>
496 
                             </td>
6546 dpurdie 497 
 
6874 dpurdie 498 
                             <td <%If bIsOverdue Then%>style=color:Red<%Elseif bIsReady Then%>style=color:Green<%End If%>><%=DisplayDateTime(rsQry("SCHEDULED_DATETIME"))%></td>
6546 dpurdie 499 
 
6874 dpurdie 500 
                             <td><%=DaemonInstructionRepeatString(rsQry("OP_CODE"), rsQry("REPEAT_SECS"))%></td>
6546 dpurdie 501 
 
6874 dpurdie 502 
                             <td>
503 
                                <%If bInProgress Then%>
504 
                                   YES
505 
                                <%Else%>
506 
                                   NO
507 
                                <%End If%>
508 
                             </td>
509 
                          </tr>
510 
                          <%
511 
                          rsQry.MoveNext()
512 
                       Wend
513 
                       rsQry.Close()
514 
                       Set rsQry = nothing
515 
                       %>
516 
                    </table>
517 
                </div>
518 
            </div>
519 
    </div>
520 
</div>
6546 dpurdie 521 
<%
522 
End Sub
523 
%>
5357 dpurdie 524 
<html>
525 
   <head>
526 
      <title>Release Manager</title>
527 
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
528 
      <meta http-equiv="Pragma" content="no-cache">
529 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 530 
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
531 
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
532 
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 533 
      <!--#include file="_jquery_includes.asp"-->
534 
      <!-- TIPS -->
6676 dpurdie 535 
      <script type="text/javascript" src="scripts/json2.js?ver=<%=VixVerNum%>"></script>
6579 dpurdie 536 
      <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
537 
      <script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 538 
      <script language="JavaScript" type="text/JavaScript">
6538 dpurdie 539 
      formTips.tips.h_buildtime       = stdTip(300, 'Est. Build Duration', 'Estimated build duration in seconds. Based simply on the last build duration for this package');
540 
 
5623 dpurdie 541 
      formTips.tips.h_lastchange       = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +
542 
                                                                  '<p>Short times will be shown as seconds. Longer times will be shown as a time within ' +
543 
                                                                  'the last 24 hours. Longer times will be shown as a date.'
544 
                                                                  );
5357 dpurdie 545 
      </script>
6544 dpurdie 546 
    <script language="JavaScript" type="text/JavaScript">
547 
    $(document).ready(function() {
6545 dpurdie 548 
        //
549 
        //  Init the check boxes
550 
        InitShow();
6546 dpurdie 551 
        isChecked('pv_id_list','IncludeSubmit');
6545 dpurdie 552 
 
6610 dpurdie 553 
<% If objAccessControl.UserLogedIn Then %>
6544 dpurdie 554 
        // Attach function to toggle checkbox
555 
        // toggle all visible checkboxes
556 
         $('#toggleDirect').click(function(){
557 
            var state = this.checked;
6545 dpurdie 558 
            var list = $('.directInclude:visible:enabled');
6544 dpurdie 559 
            list.prop('checked', state);
560 
            isChecked('pv_id_list','IncludeSubmit');
561 
         });
6545 dpurdie 562 
 
563 
         $('.directInclude').click(function(){
564 
             isChecked('pv_id_list','IncludeSubmit');
565 
         });
6610 dpurdie 566 
<%Else%>
567 
        {
568 
        // Not logged in - disable boxes
569 
        var list = $('.directInclude');
570 
            list.prop('disabled', true);
571 
         $('#toggleDirect').prop('disabled', true);
572 
        }
573 
<%End If%>
6545 dpurdie 574 
 
6544 dpurdie 575 
    });
6545 dpurdie 576 
 
577 
    function InitShow(e)
578 
    {
579 
        toggleDispClass('rootCause',0);
580 
        toggleDispClass('rootNoEnv',0);
581 
        toggleDispClass('rootFile',0);
582 
        toggleDispClass('rootIndirect',0);
583 
        toggleDispClass('manualCause',0);
584 
    }
585 
 
586 
    function toggleDispClass(cname,flip)
587 
    {
588 
        var cookieName = 'RELMGR_BUILDSTATUS';
589 
        var cv = JSON.parse(getCookie(cookieName));
590 
        if (!cv)
591 
            cv = new Object;
592 
        if (!cv.BuildStatus)
593 
            cv.BuildStatus = new Object;
594 
 
595 
        var state = cv.BuildStatus[cname];
596 
        if (state === undefined)
597 
            state = true;
598 
 
599 
        if (flip>0)
600 
            state = !state;
601 
 
602 
        cv.BuildStatus[cname] = state;
603 
 
604 
        // Reflect the current state in the checkbox
605 
        var de = document.getElementById(cname);
606 
        if (de)
607 
            de.checked = state;
608 
 
609 
        var elements = new Array();
610 
        elements = getElementsByClassName(cname);
611 
        for(i in elements ){
612 
            if (state) {
613 
                elements[i].style.display = "";
614 
            }
615 
            else {
616 
                elements[i].style.display = "none";
617 
            }
618 
        }
619 
        setCookie(cookieName, JSON.stringify(cv), 365 );
620 
    }
621 
 
6544 dpurdie 622 
    </script>
5357 dpurdie 623 
      <!-- DROPDOWN MENUS -->
624 
      <!--#include file="_menu_def.asp"-->
6579 dpurdie 625 
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 626 
   </head>
6546 dpurdie 627 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
5357 dpurdie 628 
      <!-- HEADER -->
629 
      <!--#include file="_header.asp"-->
630 
      <!-- BODY ---->
6546 dpurdie 631 
      <table class="full_table">
5357 dpurdie 632 
         <tr>
6876 dpurdie 633 
            <td width="146px" class="bg_panel" valign="top">
6546 dpurdie 634 
                <%Call BuildMenuPane%>
5357 dpurdie 635 
            </td>
636 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
6546 dpurdie 637 
                <%Call ShowBuildStatus%>
638 
                <%Call ShowDaemonStatus%>
639 
                <%Call ShowDaemonInstructions%>
5357 dpurdie 640 
            </td>
641 
         </tr>
642 
         <tr>
6877 dpurdie 643 
            <td class="bg_panel_btm" height="350">
6546 dpurdie 644 
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
5357 dpurdie 645 
         </tr>
646 
      </table>
647 
      <!-- FOOTER -->
648 
      <!--#include file="_footer.asp"-->
649 
   </body>
650 
</html>
6546 dpurdie 651