Subversion Repositories DevTools

Rev

Rev 6873 | Rev 6876 | 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>
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>
6771 dpurdie 55
 
6873 dpurdie 56
               <!-- Status Table Body -->
57
                <%
58
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
59
                Dim showWarn, showWarnText, hasProjectReplication
60
                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
61
                    %><tr class="body_rowg2"><%
6771 dpurdie 62
 
6873 dpurdie 63
                    Dim enabledControl
64
                    enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
65
                    Select Case rsQry("etype")
66
                        ' Server entry
67
                        Case 0 
68
                            Dim replicationMode 
69
                            If rsQry("BLAT_MODE") = "P" Then
70
                                replicationMode = "All Projects"
71
                                showWarn = true
72
                                showWarnText = "Covered by replication of All Projects"
73
                            ElseIf rsQry("BLAT_MODE") = "E" Then
74
                                replicationMode = "Entire Archive"
75
                                showWarnText = "Covered by replication of Entie Archive"
76
                                showWarn = true
77
                            Else
78
                                replicationMode = "Normal"
79
                                showWarn = false
80
                            End If
81
                            hasProjectReplication = false
82
                        %>
83
                            <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
84
                            <td><%=enabledControl%></td>
85
                            <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
86
                        <%
6771 dpurdie 87
 
6873 dpurdie 88
                        ' No longer used
89
                        Case 1%>
90
                            <td></td>
91
                            <td><%=enabledControl%></td>
92
                            <td class="body_row" nowrap colspan=3>Full Archive Replication</td>
93
                        <%
6771 dpurdie 94
 
6873 dpurdie 95
                        ' Project Entry
96
                        Case 2
97
                            hasProjectReplication = true
98
                            %>
99
                            <td></td>
100
                            <td><%=enabledControl%></td>
101
                            <td class="body_row" nowrap>Project
102
                                <%If showWarn Then%>
103
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
104
                                <%End If%>    
105
                            </td>
106
                            <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
107
                            <td class="body_row" nowrap></td>
108
                        <%
109
                        ' Release Entry - has xref to containing project
110
                        Case 3
111
                            Dim noReplicaTxt : noReplicaTxt = ""
112
                            If rsQry("OFFICIAL") = "A" Then
113
                                noReplicaTxt = "Release is in a state that will not be replicated"
114
                            End If
115
                            %>
116
                            <td></td>
117
                            <td><%=enabledControl%></td>
118
                            <td class="body_row" nowrap>Release
119
                                <%If showWarn Then%>
120
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
121
                                <%End If%>    
122
                                <%If noReplicaTxt <> "" Then%>
123
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
124
                                <%End If%>
125
                                <%If hasProjectReplication Then%>
126
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
127
                                <%End If%>
128
                            </td>
129
                            <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
130
                            <td class="body_row" nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
131
                            <a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
132
                        <%
6771 dpurdie 133
 
6873 dpurdie 134
                    End Select
135
                    %></tr><%
136
                    rsQry.MoveNext
137
                WEnd
138
                rsQry.Close
139
                Set rsQry = Nothing
140
                %>
141
            </table>
6771 dpurdie 142
             </td>
143
           </tr>
144
        </table>
145
      </td>
146
  </tr>
147
</table>
148
<%
149
End Sub
150
%>
151
<html>
152
   <head>
153
      <title>Release Manager</title>
154
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
155
      <meta http-equiv="Pragma" content="no-cache">
156
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
157
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
158
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
159
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
160
      <!--#include file="_jquery_includes.asp"-->
161
      <!-- DROPDOWN MENUS -->
162
      <!--#include file="_menu_def.asp"-->
163
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
164
   </head>
165
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
166
      <!-- HEADER -->
167
      <!--#include file="_header.asp"-->
168
      <!-- BODY ---->
169
      <table class="full_table">
170
         <tr>
171
            <td width="146px" class="panel_bg" valign="top">
172
                <%Call SidePanelContent%>
173
            </td>
174
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
175
                <%Call ShowMainPanel%>
176
            </td>
177
         </tr>
178
         <tr>
179
            <td class="panel_bg" valign="bottom" align="center" height="350">
180
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
181
         </tr>
182
      </table>
183
      <!-- FOOTER -->
184
      <!--#include file="_footer.asp"-->
185
   </body>
186
</html>