Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'   build_replication_status.asp
'
'   Display the replication configuration
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0  ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_form_window_common.asp"-->
<!--#include file="common/common_daemon.asp"-->
<% '------------ ACCESS CONTROL ------------------ %>
<!--#include file="_access_control_login_optional.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim rsQry
Dim styleAlt1
Dim styleAlt2
Dim styleNow

styleAlt1="class='body_rowg1'"
styleAlt2="class='body_rowg2'"
styleNow = styleAlt1
'----------------------------------------------
%>
<%
' Toggle row style between the two alternative styles
Sub ToggleStyleNow
   If styleNow = styleAlt1 Then
      styleNow = styleAlt2
   Else
      styleNow = styleAlt1
   End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>
<%
'------------------------------------------------------------------------------
Sub SidePanelContent
%>
<%
End Sub
'------------------------------------------------------------------------------
Sub ShowMainPanel
%>
<table width="10" class="embedded_table" style="margin-bottom:10px">
  <tr>
    <td>
        <table class="rounded_box embedded_table" width="100%" >
            <caption nowrap class="form_ttl tleft">Package Replication Summary</caption>
          <tr>
             <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
             <td bgcolor="#FFFFFF" valign="top">
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <!--#include file="messages/_msg_inline.asp"-->
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <table width="100%" border="0" cellspacing="1" cellpadding="1">
                   <tr class="form_field_bg">
                      <!-- Status Table Header -->
                      <td class="form_field_hdr form_align">Target</td>
                      <td class="form_field_hdr form_align">Enabled</td>
                      <td class="form_field_hdr form_align">Mode</td>
                      <td class="form_field_hdr form_align">Project</td>
                      <td class="form_field_hdr form_align">Release</td>
                   </tr>

                   <!-- Status Table Body -->
                    <%
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
                    Dim showWarn, showWarnText
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
                        %><tr class="body_rowg2"><%

                        Dim enabledControl
                        enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
                        Select Case rsQry("etype")
                            ' Server entry
                            Case 0 
                                Dim replicationMode 
                                If rsQry("BLAT_MODE") = "P" Then
                                    replicationMode = "All Projects"
                                    showWarn = true
                                    showWarnText = "Covered by replication of All Projects"
                                ElseIf rsQry("BLAT_MODE") = "E" Then
                                    replicationMode = "Entire Archive"
                                    showWarnText = "Covered by replication of Entie Archive"
                                    showWarn = true
                                Else
                                    replicationMode = "Normal"
                                    showWarn = false
                                End If
                            %>
                                <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
                                <td><%=enabledControl%></td>
                                <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
                            <%

                            ' No longer used
                            Case 1%>
                                <td></td>
                                <td><%=enabledControl%></td>
                                <td class="body_row" nowrap colspan=3>Full Archive Replication</td>
                            <%

                            ' Project Entry
                            Case 2%>
                                <td></td>
                                <td><%=enabledControl%></td>
                                <td class="body_row" nowrap>Project
                                    <%If showWarn Then%>
                                        <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
                                    <%End If%>    
                                </td>
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
                                <td class="body_row" nowrap></td>
                            <%
                            ' Release Entry - has xref to containing project
                            Case 3%>
                                <td></td>
                                <td><%=enabledControl%></td>
                                <td class="body_row" nowrap>Release
                                    <%If showWarn Then%>
                                        <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
                                    <%End If%>    
                                </td>
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
                                <td class="body_row" nowrap><a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
                            <%

                        End Select
                        %></tr><%
                        rsQry.MoveNext
                    WEnd
                    rsQry.Close
                    Set rsQry = Nothing
                    %>
                </table>
             </td>
             <td background="images/lbox_bgside_white.gif">&nbsp;</td>
           </tr>
        </table>
      </td>
  </tr>
</table>
<%
End Sub
%>
<html>
   <head>
      <title>Release Manager</title>
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
      <meta http-equiv="Pragma" content="no-cache">
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
      <!--#include file="_jquery_includes.asp"-->
      <!-- DROPDOWN MENUS -->
      <!--#include file="_menu_def.asp"-->
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
   </head>
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
      <!-- HEADER -->
      <!--#include file="_header.asp"-->
      <!-- BODY ---->
      <table class="full_table">
         <tr>
            <td width="146px" class="panel_bg" valign="top">
                <%Call SidePanelContent%>
            </td>
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
                <%Call ShowMainPanel%>
            </td>
         </tr>
         <tr>
            <td class="panel_bg" valign="bottom" align="center" height="350">
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
         </tr>
      </table>
      <!-- FOOTER -->
      <!--#include file="_footer.asp"-->
   </body>
</html>