Subversion Repositories DevTools

Rev

Rev 6877 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6771 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'   build_replication_status.asp
5 
'
6 
'   Display the replication configuration
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="common/common_daemon.asp"-->
21 
<% '------------ ACCESS CONTROL ------------------ %>
22 
<!--#include file="_access_control_login_optional.asp"-->
23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsQry
27 
'------------ RUN BEFORE PAGE RENDER ----------
28 
'------------------------------------------------------------------------------
29 
Sub SidePanelContent
30 
%>
31 
<%
32 
End Sub
33 
'------------------------------------------------------------------------------
34 
Sub ShowMainPanel
35 
%>
36 
<table width="10" class="embedded_table" style="margin-bottom:10px">
37 
  <tr>
38 
    <td>
6874 dpurdie 39 
        <table class="rounded_box rounded_box_std embedded_table" width="100%" >
6873 dpurdie 40 
            <caption>Package Replication Summary</caption>
6771 dpurdie 41 
          <tr>
6784 dpurdie 42 
             <td>
6873 dpurdie 43 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
44 
            <!--#include file="messages/_msg_inline.asp"-->
45 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
46 
            <table width="100%" border="0" cellspacing="1" cellpadding="1" class=stdGrey>
47 
               <thead>
6771 dpurdie 48 
                      <!-- Status Table Header -->
6873 dpurdie 49 
                      <th>Target</th>
50 
                      <th>Enabled</th>
51 
                      <th>Mode</th>
52 
                      <th>Project</th>
53 
                      <th>Release</th>
54 
               </thead>
6881 dpurdie 55 
               <tbody>
6873 dpurdie 56 
               <!-- Status Table Body -->
57 
                <%
58 
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
59 
                Dim showWarn, showWarnText, hasProjectReplication
6881 dpurdie 60 
                set hasProjectReplication = CreateObject("Scripting.Dictionary")
6873 dpurdie 61 
                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
6881 dpurdie 62 
                    %><tr><%
6771 dpurdie 63 
 
6873 dpurdie 64 
                    Dim enabledControl
65 
                    enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
66 
                    Select Case rsQry("etype")
67 
                        ' Server entry
68 
                        Case 0
69 
                            Dim replicationMode
70 
                            If rsQry("BLAT_MODE") = "P" Then
71 
                                replicationMode = "All Projects"
72 
                                showWarn = true
73 
                                showWarnText = "Covered by replication of All Projects"
74 
                            ElseIf rsQry("BLAT_MODE") = "E" Then
75 
                                replicationMode = "Entire Archive"
76 
                                showWarnText = "Covered by replication of Entie Archive"
77 
                                showWarn = true
78 
                            Else
79 
                                replicationMode = "Normal"
80 
                                showWarn = false
81 
                            End If
6881 dpurdie 82 
                            hasProjectReplication.RemoveAll
6873 dpurdie 83 
                        %>
6881 dpurdie 84 
                            <td nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
6873 dpurdie 85 
                            <td><%=enabledControl%></td>
6881 dpurdie 86 
                            <td nowrap colspan=3><%=replicationMode%></td>
6873 dpurdie 87 
                        <%
6771 dpurdie 88 
 
6873 dpurdie 89 
                        ' No longer used
90 
                        Case 1%>
91 
                            <td></td>
92 
                            <td><%=enabledControl%></td>
6881 dpurdie 93 
                            <td nowrap colspan=3>Full Archive Replication</td>
6873 dpurdie 94 
                        <%
6771 dpurdie 95 
 
6873 dpurdie 96 
                        ' Project Entry
97 
                        Case 2
6881 dpurdie 98 
                            hasProjectReplication.Item( Cstr(rsQry("PROJ_ID")) ) = true
6873 dpurdie 99 
                            %>
100 
                            <td></td>
101 
                            <td><%=enabledControl%></td>
6881 dpurdie 102 
                            <td nowrap>Project
6873 dpurdie 103 
                                <%If showWarn Then%>
104 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
105 
                                <%End If%>
106 
                            </td>
6881 dpurdie 107 
                            <td nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
108 
                            <td nowrap></td>
6873 dpurdie 109 
                        <%
110 
                        ' Release Entry - has xref to containing project
111 
                        Case 3
112 
                            Dim noReplicaTxt : noReplicaTxt = ""
113 
                            If rsQry("OFFICIAL") = "A" Then
114 
                                noReplicaTxt = "Release is in a state that will not be replicated"
115 
                            End If
116 
                            %>
117 
                            <td></td>
118 
                            <td><%=enabledControl%></td>
6881 dpurdie 119 
                            <td nowrap>Release
6873 dpurdie 120 
                                <%If showWarn Then%>
121 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
122 
                                <%End If%>
123 
                                <%If noReplicaTxt <> "" Then%>
124 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
125 
                                <%End If%>
6881 dpurdie 126 
                                <%If hasProjectReplication.Exists(Cstr(rsQry("PROJ_ID"))) Then%>
6873 dpurdie 127 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
128 
                                <%End If%>
129 
                            </td>
6881 dpurdie 130 
                            <td nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
131 
                            <td nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
6873 dpurdie 132 
                            <a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
133 
                        <%
134 
                    End Select
135 
                    %></tr><%
136 
                    rsQry.MoveNext
137 
                WEnd
138 
                rsQry.Close
139 
                Set rsQry = Nothing
6881 dpurdie 140 
                Set hasProjectReplication = Nothing
6873 dpurdie 141 
                %>
6881 dpurdie 142 
               </tbody>
6873 dpurdie 143 
            </table>
6771 dpurdie 144 
             </td>
145 
           </tr>
146 
        </table>
147 
      </td>
148 
  </tr>
149 
</table>
150 
<%
151 
End Sub
152 
%>
153 
<html>
154 
   <head>
155 
      <title>Release Manager</title>
156 
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
157 
      <meta http-equiv="Pragma" content="no-cache">
158 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
159 
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
160 
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
161 
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
162 
      <!--#include file="_jquery_includes.asp"-->
163 
      <!-- DROPDOWN MENUS -->
164 
      <!--#include file="_menu_def.asp"-->
165 
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
166 
   </head>
167 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
168 
      <!-- HEADER -->
169 
      <!--#include file="_header.asp"-->
170 
      <!-- BODY ---->
171 
      <table class="full_table">
172 
         <tr>
6876 dpurdie 173 
            <td width="146px" class="bg_panel" valign="top">
6771 dpurdie 174 
                <%Call SidePanelContent%>
175 
            </td>
176 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
177 
                <%Call ShowMainPanel%>
178 
            </td>
179 
         </tr>
180 
         <tr>
6877 dpurdie 181 
            <td class="bg_panel_btm" height="350">
6771 dpurdie 182 
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
183 
         </tr>
184 
      </table>
185 
      <!-- FOOTER -->
186 
      <!--#include file="_footer.asp"-->
187 
   </body>
188 
</html>