Subversion Repositories DevTools

Rev

Rev 6778 | Rev 6784 | Go to most recent revision | 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>
39 
        <table class="rounded_box embedded_table" width="100%" >
40 
            <caption nowrap class="form_ttl tleft">Package Replication Summary</caption>
41 
          <tr>
42 
             <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
43 
             <td bgcolor="#FFFFFF" valign="top">
44 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
45 
                <!--#include file="messages/_msg_inline.asp"-->
46 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
47 
                <table width="100%" border="0" cellspacing="1" cellpadding="1">
48 
                   <tr class="form_field_bg">
49 
                      <!-- Status Table Header -->
50 
                      <td class="form_field_hdr form_align">Target</td>
51 
                      <td class="form_field_hdr form_align">Enabled</td>
52 
                      <td class="form_field_hdr form_align">Mode</td>
53 
                      <td class="form_field_hdr form_align">Project</td>
54 
                      <td class="form_field_hdr form_align">Release</td>
55 
                   </tr>
56 
 
57 
                   <!-- Status Table Body -->
58 
                    <%
59 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
6783 dpurdie 60 
                    Dim showWarn, showWarnText, hasProjectReplication
6771 dpurdie 61 
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
62 
                        %><tr class="body_rowg2"><%
63 
 
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
6774 dpurdie 69 
                                Dim replicationMode
6775 dpurdie 70 
                                If rsQry("BLAT_MODE") = "P" Then
6774 dpurdie 71 
                                    replicationMode = "All Projects"
72 
                                    showWarn = true
73 
                                    showWarnText = "Covered by replication of All Projects"
6775 dpurdie 74 
                                ElseIf rsQry("BLAT_MODE") = "E" Then
6774 dpurdie 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
6783 dpurdie 82 
                                hasProjectReplication = false
6771 dpurdie 83 
                            %>
84 
                                <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
85 
                                <td><%=enabledControl%></td>
86 
                                <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
87 
                            <%
88 
 
89 
                            ' No longer used
90 
                            Case 1%>
91 
                                <td></td>
92 
                                <td><%=enabledControl%></td>
93 
                                <td class="body_row" nowrap colspan=3>Full Archive Replication</td>
94 
                            <%
95 
 
96 
                            ' Project Entry
6783 dpurdie 97 
                            Case 2
98 
                                hasProjectReplication = true
99 
                                %>
6771 dpurdie 100 
                                <td></td>
101 
                                <td><%=enabledControl%></td>
6774 dpurdie 102 
                                <td class="body_row" nowrap>Project
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>
6771 dpurdie 107 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
108 
                                <td class="body_row" nowrap></td>
109 
                            <%
110 
                            ' Release Entry - has xref to containing project
6778 dpurdie 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 
                                %>
6771 dpurdie 117 
                                <td></td>
118 
                                <td><%=enabledControl%></td>
6774 dpurdie 119 
                                <td class="body_row" nowrap>Release
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%>
6778 dpurdie 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%>
6783 dpurdie 126 
                                    <%If hasProjectReplication Then%>
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%>
6774 dpurdie 129 
                                </td>
6771 dpurdie 130 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
6778 dpurdie 131 
                                <td class="body_row" nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
132 
                                <a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
6771 dpurdie 133 
                            <%
134 
 
135 
                        End Select
136 
                        %></tr><%
137 
                        rsQry.MoveNext
138 
                    WEnd
139 
                    rsQry.Close
140 
                    Set rsQry = Nothing
141 
                    %>
142 
                </table>
143 
             </td>
144 
             <td background="images/lbox_bgside_white.gif">&nbsp;</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>
173 
            <td width="146px" class="panel_bg" valign="top">
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>
181 
            <td class="panel_bg" valign="bottom" align="center" height="350">
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>