<%@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
%>
<% '------------ ACCESS CONTROL ------------------ %>
<%
'------------ Variable Definition -------------
Dim rsQry
'------------ RUN BEFORE PAGE RENDER ----------
'------------------------------------------------------------------------------
Sub SidePanelContent
%>
<%
End Sub
'------------------------------------------------------------------------------
Sub ShowMainPanel
%>
Package Replication Summary
Target
Enabled
Mode
Project
Release
<%
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
Dim showWarn, showWarnText, hasProjectReplication
set hasProjectReplication = CreateObject("Scripting.Dictionary")
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
%>
<%
Dim enabledControl
enabledControl = ""
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
hasProjectReplication.RemoveAll
%>
<%
' Release Entry - has xref to containing project
Case 3
Dim noReplicaTxt : noReplicaTxt = ""
If rsQry("OFFICIAL") = "A" Then
noReplicaTxt = "Release is in a state that will not be replicated"
End If
%>
<%End If%>