Subversion Repositories DevTools

Rev

Rev 6775 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'   admin_blat_machines.asp
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="sec/Crypt.asp"-->
<!--#include file="common/_form_window_common.asp"-->
<!--#include file="_action_buttons.asp"-->
<!--#include file="class/classActionButtonControl.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login_optional.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim objBtnControl
Dim bCanEdit
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set objBtnControl = New ActionButtonControl
bCanEdit = canActionControl("ConfigureBuildService")
'----------------------------------------------
%>
<html>
<head>
<title>Package Replication Administration</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
<!--#include file="_jquery_includes.asp"-->
<!-- DROPDOWN MENUS -->
<!--#include file="_menu_def.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
</head>
<body>
<!-- HEADER -->
<!--#include file="_header.asp"-->
  <div class="div_table">
        <table border="0" cellspacing="1" cellpadding="2" class='stdBrown center_table'>
            <caption>List of Package Replicas</caption>
            <thead>
                <tr>
                <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <th nowrap>Enabled</th>
                <th nowrap>Server Name</th>
                <th nowrap>Display Name</th>
                <th nowrap>Replication Mode</th>
                <th nowrap width=250>Description</th>
                <th nowrap>Edit</th>         
                </tr>
            </thead>

      <%
      ' Load some action buttons
      Call objBtnControl.LoadActionButtons ( Array("btnEditBlatMachine", "btnDeleteBlatMachine"), OraDatabase )
      objBtnControl.ButtonSpacer = 1

      If NOT bCanEdit Then
        Call objBtnControl.Active  ( "btnEditBlatMachine", "N" )
        Call objBtnControl.Active  ( "btnDeleteBlatMachine", "N" )
      End If
      
      Dim rsQry
      Dim server_id,server_name,display_name, active, mode, description, replicationMode 
      Dim activeChecked
      
      Set rsQry = OraDatabase.DbCreateDynaset( "select BLAT_ID, blat_server_name, blat_display_name,blat_enable, blat_mode, blat_description from BLAT_SERVERS order by UPPER(blat_server_name)", ORADYN_DEFAULT )
      While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
          server_id     = rsQry("BLAT_ID")
          server_name   = rsQry("blat_server_name")
          display_name  = rsQry("blat_display_name")
          active        = rsQry("blat_enable")
          mode          = rsQry("blat_mode")
          description   = rsQry("blat_description")
          activeChecked = IIF( active = "Y", "checked", "")

          Select Case mode
            case "P"  replicationMode = "All Projects"
            case "E"  replicationMode = "Entire Archive"
            case "N"  replicationMode = "Release/Package"
            case else replicationMode = "Unknown"
          End Select

          %>
          <tr style="vertical-align:top;">
            <td nowrap><input type="checkbox" disabled <%=activeChecked%> ></td>
            <td nowrap><%=server_name%></td>
            <td nowrap><%=display_name%></td>
            <td nowrap><%=replicationMode%></td>
            <td   wrap><%=description%></td>
            <td nowrap><%Call objBtnControl.Render( Array("btnEditBlatMachine", "btnDeleteBlatMachine"), objAccessControl )%></td>
          </tr> 
          <%
          rsQry.MoveNext()
      Wend
      rsQry.Close()
      Set rsQry = nothing
      %>
    
  <tr>
    <td nowrap colspan=6 align=right><%Call Action_Buttons_State("Add Package Replica", bCanEdit)%>
  </tr>

</table>
    </div>
<!-- FOOTER -->
<!--#include file="_footer.asp"-->
</body>
</html>