WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/build_status.asp

 <%
 ' Set rfile parameter. This is a return page after Login
 Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 objPMod.PersistInQryString("proj_id")
 '------------ ACCESS CONTROL ------------------
+'Let users view the build status without being logged in, but as soon as they try and submit the form, check
+'their login status.
+If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
+<!--#include file="_access_control_login.asp"-->
+<!--#include file="_access_control_project.asp"-->
-%>
+<%End If%>
 <!--#include file="_access_control_general.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim objSortHelper
 Dim rsQry
 Dim parRtagId
 Dim parSourceRtagId
 Dim query_string
 Dim objBtnControl
-Dim  rcon_id
+Dim rcon_id
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parRtagId = Request("rtag_id")
 objPMod.PersistInQryString("rtag_id")
 Set objBtnControl = New ActionButtonControl
 '----------------------------------------------
 %>
 <%
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
-  Dim rsQry, query
+   Dim rsQry, query
-  OraDatabase.Parameters.Add "RTAG_ID",   parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "RTAG_ID",   parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
-  query = _
+   query = _
-  " SELECT * "&_
+   " SELECT * "&_
-  "  FROM RELEASE_TAGS rt"&_
+   "  FROM RELEASE_TAGS rt"&_
-  " WHERE rt.RTAG_ID = :RTAG_ID"
+   " WHERE rt.RTAG_ID = :RTAG_ID"
-  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
+   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-  OraDatabase.Parameters.Remove "RTAG_ID"
+   OraDatabase.Parameters.Remove "RTAG_ID"
-  If rsQry.RecordCount > 0 Then
+   If rsQry.RecordCount > 0 Then
-    outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
+      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
-    outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
+      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
-  Else
+   Else
-    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
+      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
-  End If
+   End If
-  rsQry.Close
+   rsQry.Close
-  Set rsQry = Nothing
+   Set rsQry = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub RipplePackage (flag)
-  On Error Resume Next
+   On Error Resume Next
-  objEH.ErrorRedirect = TRUE
+   objEH.ErrorRedirect = TRUE
-  OraDatabase.Parameters.Add "PV_ID_LIST",  Request("pv_id_list"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
+   OraDatabase.Parameters.Add "PV_ID_LIST",  Request("pv_id_list"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
-  OraDatabase.Parameters.Add "RTAG_ID",     parRtag_id,  ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "RTAG_ID",     parRtag_id,  ORAPARM_INPUT, ORATYPE_NUMBER
-  OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
-  objEH.TryORA ( OraSession )
+   objEH.TryORA ( OraSession )
-  If flag Then
+   If flag Then
-    OraDatabase.ExecuteSQL _
+      OraDatabase.ExecuteSQL _
-    "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
+      "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
-  Else
+   Else
-    OraDatabase.ExecuteSQL _
+      OraDatabase.ExecuteSQL _
-    "BEGIN  UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
+      "BEGIN  UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
-  End If
+   End If
-  objEH.CatchORA ( OraSession )
+   objEH.CatchORA ( OraSession )
-  OraDatabase.Parameters.Remove "PV_ID_LIST"
+   OraDatabase.Parameters.Remove "PV_ID_LIST"
-  OraDatabase.Parameters.Remove "RTAG_ID"
+   OraDatabase.Parameters.Remove "RTAG_ID"
-  OraDatabase.Parameters.Remove "USER_ID"
+   OraDatabase.Parameters.Remove "USER_ID"
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Function Get_Daemon_Mode( cMode )
 Function Get_Run_Level( nLevel, indefinitePause )
    If indefinitePause Then
       Get_Run_Level = "<span class='err_alert'>Stopped</span>"
    Else
-      If nLevel <= 1 Then
+      If nLevel = 1 Then
          Get_Run_Level = "Cannot Continue"
       ElseIf nLevel = 2 Then
          Get_Run_Level = "Paused"
       ElseIf nLevel = 3 Then
          Get_Run_Level = "Actively engaged in a build"
       ElseIf nLevel = 4 Then
          Get_Run_Level = "Idle"
-      ElseIf nLevel >= 5 Then
+      ElseIf nLevel = 5 Then
          Get_Run_Level = "Waiting"
       Else
          Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
       End If
    End If
 ' --- Enter Form Validation Rule Changes here... ----
 '----------------------------------------------------
 ' --- RUN onPostBack ---
-If Request("action") <> "" Then
+If Request("action") <> "" AND objAccessControl.UserLogedIn Then
   If objEH.Finally Then
     If Request("action") = "include" Then
       Call RipplePackage (True)
     Else
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Run Level</td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Current Package</td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Switch State</td>
                            </tr>
                            <%
+                           ' Get the number of release configurations for this RTAG_ID, and iterate through them
-                           query_string = " select * from release_config rc, run_level rl, packages pkg, gbe_machtype gm"&_
+                           query_string = " select * from release_config rc, gbe_machtype gm"&_
                                           "  where rc.rtag_id = "& parRtagId &_
-                                          "    and rc.rcon_id = rl.rcon_id(+)"&_
-                                          "    and pkg.pkg_id(+) = rl.current_pkg_id_being_built"&_
                                           "    and gm.gbe_id = rc.gbe_id"&_
                                           "  order by rc.daemon_hostname"
                            Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
-                           '--- Render rows ---
                            Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                               rcon_id = rsQry("rcon_id")
+                              Dim pkgName
+                              Dim currentRunLevel
+                              ' For this release configuration, get its entry from the run_level table. This table may not
+                              ' have an entry so we must handle that outcome too.
+                              query_string = " select * from run_level rl"&_
+                                             "  where rl.rcon_id = "& rcon_id
+                              Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
+                              currentRunLevel = -1
+                              If (rsQry2.RecordCount > 0) Then
+                                 ' Get the run level from the run_level table
+                                 currentRunLevel = rsQry2("current_run_level")
+                              End If
+                              ' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a
+                              ' package name from the packages table
+                              Dim rsQry3
+                              pkgName = NULL
+                              If (rsQry2.RecordCount > 0) AND NOT IsNull(rsQry2("current_pkg_id_being_built")) Then
+                                 query_string = " select pkg_name from run_level rl, packages pk"&_
+                                                "  where rl.rcon_id = "& rcon_id &_
+                                                "   and  rl.current_pkg_id_being_built = pk.pkg_id"
+                                 Set rsQry3 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
+                                 If (rsQry3.RecordCount > 0) Then
+                                    pkgName = rsQry3("pkg_name")
+                                 End If
+                                 rsQry3.Close()
+                                 Set rsQry3 = nothing
+                              End If
+                              ' --- Now render HTML for this release configuration ---
                               %>
                               <tr>
                                  <td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                               </tr>
                               <tr>
                                  <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
                                  <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
                                  <td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
-                                 <td nowrap class="body_rowg"><%=Get_Run_Level(rsQry("current_run_level"), indefinitelyPaused)%></td>
+                                 <td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused)%></td>
-                                 <td nowrap class="body_rowg"><%=Get_Package_Name(rsQry("pkg_name"))%></td>
+                                 <td nowrap class="body_rowg"><%=Get_Package_Name(pkgName)%></td>
                                  <td nowrap class="body_rowg">
                                     <%
-                                    If NOT IsNull(rsQry("current_run_level")) AND NOT indefinitelyPaused  Then
+                                    If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused  Then
                                        If objAccessControl.UserLogedIn Then
-                                          If IsNull(rsQry("pause")) Then
+                                          If IsNull(rsQry2("pause")) Then
                                              Call Action_Buttons ( "Daemon Pause" )
                                           Else
                                              Call Action_Buttons ( "Daemon Resume" )
                                           End If
                                        Else
-                                          If IsNull(rsQry("pause")) Then
+                                          If IsNull(rsQry2("pause")) Then
                                              Call Action_Buttons ( "Daemon Pause Disabled" )
                                           Else
                                              Call Action_Buttons ( "Daemon Resume Disabled" )
                                           End If
                                        End If
                                     End If
                                     %>
                                  </td>
                               </tr>
                               <%
+                              rsQry2.Close()
+                              Set rsQry2 = nothing
                               rsQry.MoveNext
                            Loop
                            rsQry.Close()
                            Set rsQry = nothing
                            %>
                         </table>
                      </td>
                      <td background="images/lbox_bgside_white.gif">&nbsp;</td>
                   </tr>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/build_status.asp @ 133 – Rev 127 → 133