Subversion Repositories DevTools

Rev

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