Subversion Repositories DevTools

Rev

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