Subversion Repositories DevTools

Rev

Rev 4293 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4293 Rev 4296
Line 14... Line 14...
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
 17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/_form_window_common.asp"-->
 18 
<!--#include file="common/_form_window_common.asp"-->
19 
 
 - 
 
20 
 
 - 
 
21 
<%
 19 
<%
22 
'------------ ACCESS CONTROL ------------------
 20 
'------------ ACCESS CONTROL ------------------
23 
%>
 21 
%>
24 
<!--#include file="_access_control_general.asp"-->
 22 
<!--#include file="_access_control_general.asp"-->
25 
<!--#include file="_access_control_login.asp"-->
 23 
<!--#include file="_access_control_login.asp"-->
26 
<%
 24 
<%
27 
'------------ VARIABLE DEFINITION -------------
 25 
'------------ VARIABLE DEFINITION -------------
28 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
 26 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
29 
Dim sMessage
 27 
Dim sMessage
30 
Dim GBE_MACHTYPE
 - 
 
31 
Dim Query_String
 28 
Dim Query_String
32 
Dim RecordCount
 29 
Dim RecordCount
33 
Dim bmcon_id
 30 
Dim bmcon_id
34 
Dim gbe_id
 31 
Dim gbe_id
35 
Dim gbe_value
 32 
Dim gbe_value
36 
Dim daemon_mode
 33 
Dim daemon_mode
37 
Dim gbe_buildfilter
 34 
Dim gbe_buildfilter
- 
 
 35 
Dim bShowEmpty
38 
'------------ CONSTANTS DECLARATION -----------
 36 
'------------ CONSTANTS DECLARATION -----------
39 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 - 
 
40 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 - 
 
41 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 - 
 
42 
'------------ VARIABLE INIT -------------------
 37 
'------------ VARIABLE INIT -------------------
43 
sMessage = NULL
 38 
sMessage = NULL
44 
 
 39 
 
45 
parRtag_id = Request("rtag_id")
 40 
parRtag_id = Request("rtag_id")
46 
 
 41 
 
Line 48... Line 43...
48 
'------------ CONDITIONS ----------------------
 43 
'------------ CONDITIONS ----------------------
49 
'----------------------------------------------
 44 
'----------------------------------------------
50 
%>
 45 
%>
51 
<%
 46 
<%
52 
'--------------------------------------------------------------------------------------------------------------------------
 47 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 48 
'-------------------------------------------------
- 
 
 49 
' Function:     GetMachHost
- 
 
 50 
' Description:  Determine the current Display Host Information for a given BMCON_ID
- 
 
 51 
' Arguments:    abmcon_id   - A BMCON_ID
- 
 
 52 
'
- 
 
 53 
' Returns:      An array with 5 elements in it - do be used in creating a multicolum drop down list
- 
 
 54 
'
53 
Function GetMachHost (abmcon_id)
 55 
Function GetMachHost (abmcon_id)
54 
   Dim rsQry, query
 56 
   Dim rsQry, query
55 
 
 57 
 
56 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 58 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
57 
 
 59 
 
- 
 
 60 
   query = "SELECT bm.bmcon_id," &_
- 
 
 61 
                  "display_name," &_
- 
 
 62 
                  "gbe_value," &_
58 
   query = "SELECT bm.bmcon_id,display_name, gbe_value, COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description, DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_
 63 
                  "COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description," &_
- 
 
 64 
                  "DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_
59 
           " FROM build_machine_config bm, gbe_machtype gb " &_
 65 
           " FROM build_machine_config bm," &_
- 
 
 66 
           "      gbe_machtype gb " &_
60 
           " WHERE bm.gbe_id = gb.gbe_id order by bm.display_name"
 67 
           " WHERE bm.gbe_id = gb.gbe_id" &_
- 
 
 68 
           " ORDER by bm.display_name"
61 
 
 69 
 
62 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 70 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
63 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 71 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
64 
      GetMachHost = rsQry.GetRows()
 72 
      GetMachHost = rsQry.GetRows()
65 
   Else
 73 
   Else
Line 75... Line 83...
75 
'--------------------------------------------------------------------------------------------------------------------------
 83 
'--------------------------------------------------------------------------------------------------------------------------
76 
%>
 84 
%>
77 
<%
 85 
<%
78 
'------------ RUN BEFORE PAGE RENDER ----------
 86 
'------------ RUN BEFORE PAGE RENDER ----------
79 
 
 87 
 
80 
 
 - 
 
81 
If CBool(Request("action")) Then
 88 
If CBool(Request("action")) Then
82 
 
 89 
 
83 
   If Request("rcon_id") <> "" Then
 90 
    If  Request("bmcon_id") = "" Then
- 
 
 91 
        sMessage = "Select a Build Machine before updating the entry"
- 
 
 92 
    Else
84 
 
 93 
 
85 
      OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
86 
      OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
87 
      OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
88 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
89 
 
 - 
 
90 
      objEH.TryORA ( OraSession )
 - 
 
91 
      On Error Resume Next
 - 
 
92 
 
 - 
 
93 
      OraDatabase.ExecuteSQL _
 - 
 
94 
      "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
 - 
 
95 
      OraSession.CommitTrans
 - 
 
96 
 
 - 
 
97 
      objEH.CatchORA ( OraSession )
 - 
 
98 
 
 - 
 
99 
      OraDatabase.Parameters.Remove "RCON_ID"
 - 
 
100 
      OraDatabase.Parameters.Remove "BMCON_ID"
 - 
 
101 
      OraDatabase.Parameters.Remove "DAEMON_MODE"
 94 
       '    Add or Update after the users edit session
102 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
 - 
 
103 
 
 - 
 
104 
      If objEH.Finally Then
 95 
       If Request("rcon_id") <> "" Then
105 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
 - 
 
106 
         Call CloseWindow()
 - 
 
107 
      End If
 - 
 
108 
 
 96 
 
109 
      rsQry.Close
 97 
          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
110 
      Set rsQry = nothing
 98 
          OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 99 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 100 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
111 
 
 101 
 
112 
   Else
 - 
 
113 
      OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
114 
      OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
115 
      OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
116 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
117 
 
 - 
 
118 
      objEH.TryORA ( OraSession )
 102 
          objEH.TryORA ( OraSession )
119 
      On Error Resume Next
 103 
          On Error Resume Next
120 
 
 - 
 
121 
      OraDatabase.ExecuteSQL _
 - 
 
122 
      "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
 - 
 
123 
 
 - 
 
124 
      objEH.CatchORA ( OraSession )
 - 
 
125 
 
 - 
 
126 
      OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
127 
      OraDatabase.Parameters.Remove "BMCON_ID"
 - 
 
128 
      OraDatabase.Parameters.Remove "DAEMON_MODE"
 - 
 
129 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
 - 
 
130 
 
 - 
 
131 
      If objEH.Finally Then
 - 
 
132 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
 - 
 
133 
         Call CloseWindow()
 - 
 
134 
      End If
 - 
 
135 
 
 104 
 
136 
      rsQry.Close
 105 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
137 
      Set rsQry = nothing
 106 
          OraSession.CommitTrans
138 
 
 107 
 
139 
   End If
 108 
          objEH.CatchORA ( OraSession )
140 
 
 109 
 
- 
 
 110 
          OraDatabase.Parameters.Remove "RCON_ID"
- 
 
 111 
          OraDatabase.Parameters.Remove "BMCON_ID"
- 
 
 112 
          OraDatabase.Parameters.Remove "DAEMON_MODE"
- 
 
 113 
          OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
- 
 
 114 
 
- 
 
 115 
          If objEH.Finally Then
- 
 
 116 
             Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
- 
 
 117 
             Call CloseWindow()
141 
End If
 118 
          End If
- 
 
 119 
 
- 
 
 120 
          rsQry.Close
- 
 
 121 
          Set rsQry = nothing
- 
 
 122 
 
- 
 
 123 
       Else
- 
 
 124 
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 125 
          OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 126 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 127 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
142 
 
 128 
 
- 
 
 129 
          objEH.TryORA ( OraSession )
- 
 
 130 
          On Error Resume Next
143 
 
 131 
 
- 
 
 132 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
- 
 
 133 
 
- 
 
 134 
          objEH.CatchORA ( OraSession )
- 
 
 135 
 
- 
 
 136 
          OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 137 
          OraDatabase.Parameters.Remove "BMCON_ID"
- 
 
 138 
          OraDatabase.Parameters.Remove "DAEMON_MODE"
- 
 
 139 
          OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
- 
 
 140 
 
- 
 
 141 
          If objEH.Finally Then
- 
 
 142 
             Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
- 
 
 143 
             Call CloseWindow()
- 
 
 144 
          End If
- 
 
 145 
 
- 
 
 146 
          rsQry.Close
- 
 
 147 
          Set rsQry = nothing
- 
 
 148 
 
- 
 
 149 
       End If
- 
 
 150 
    End If
- 
 
 151 
End If
144 
'----------------------------------------------
 152 
'----------------------------------------------
145 
%>
 153 
%>
146 
<html>
 154 
<html>
147 
<head>
 155 
<head>
148 
<title>Release Manager</title>
 156 
<title>Release Manager</title>
Line 185... Line 193...
185 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 193 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
186 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 194 
         <%Call Messenger ( sMessage , 3, "100%" )%>
187 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 195 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
188 
         <!--#include file="messages/_msg_inline.asp"-->
 196 
         <!--#include file="messages/_msg_inline.asp"-->
189 
         <%
 197 
         <%
- 
 
 198 
         '  Determine if any daemons have been configured in this release
- 
 
 199 
         '  Will be used to determine if a new entry should be a MASTER or a SLAVE
- 
 
 200 
         '
190 
         Query_String = "select * " &_
 201 
         Query_String = "select * " &_
191 
                        " from release_config rc, gbe_machtype gbe "&_
 202 
                        " from release_config rc," &_
- 
 
 203 
                        "      gbe_machtype gbe " &_
192 
                        " where rc.rtag_id = "& parRtag_id &_
 204 
                        " where rc.rtag_id = "& parRtag_id &_
193 
                        "   and gbe.gbe_id = rc.gbe_id"
 205 
                        "   and gbe.gbe_id = rc.gbe_id"
194 
 
 206 
 
195 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 207 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
196 
 
 208 
 
197 
         RecordCount = rsQry.RecordCount
 209 
         RecordCount = rsQry.RecordCount
- 
 
 210 
         If RecordCount = 0 Then
- 
 
 211 
            daemon_mode = "M"
- 
 
 212 
         else
- 
 
 213 
            daemon_mode = "S"
198 
 
 214 
         End If
199 
         rsQry.Close()
 215 
         rsQry.Close()
200 
 
 216 
 
201 
         Set rsQry = Nothing
 217 
         Set rsQry = Nothing
202 
         %>
 218 
         %>
203 
         <br>
 219 
         <%If Request("rcon_id") <> "" Then%>
- 
 
 220 
             <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
204 
         <%
 221 
         <%
205 
         If Request("rcon_id") <> "" Then
 222 
            ' Edit an existing entry
206 
            %>
 - 
 
207 
            <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
 223 
            '   May have a link into the build_machine_config - or it may not
208 
            <%
 224 
            '   Check first
209 
            Dim rsTemp
 225 
            Dim rsTemp
- 
 
 226 
            bShowEmpty = TRUE
210 
 
 227 
 
211 
            Query_String = "SELECT * " &_
 228 
            Query_String = "SELECT * " &_
212 
                           "    FROM RELEASE_CONFIG rc, " &_
 229 
                           " FROM RELEASE_CONFIG rc," &_
213 
                           "    build_machine_config bm, " &_
 - 
 
214 
                           "    gbe_machtype gb " &_
 230 
                           "      gbe_machtype gb" &_
215 
                           "WHERE rc.rcon_id = "& Request("rcon_id") &_
 231 
                           " WHERE rc.rcon_id = "& Request("rcon_id") &_
216 
                           "    AND rc.bmcon_id = bm.bmcon_id " &_
 - 
 
217 
                           "    AND bm.gbe_id = gb.gbe_id"
 232 
                           "   AND rc.gbe_id = gb.gbe_id"
218 
 
 233 
 
219 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 234 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
220 
 
 235 
 
- 
 
 236 
            If rsTemp.RecordCount > 0 Then
221 
            bmcon_id        =   rsTemp("bmcon_id")
 237 
                bmcon_id        =  rsTemp("bmcon_id")
222 
            daemon_mode     =   rsTemp("daemon_mode")
 238 
                daemon_mode     =  rsTemp("daemon_mode")
223 
            gbe_id          =   rsTemp("gbe_id")
 239 
                gbe_id          =  rsTemp("gbe_id")
224 
            gbe_value       =   rsTemp("gbe_value")
 240 
                gbe_value       =  rsTemp("gbe_value")
225 
            gbe_buildfilter = rsTemp("gbe_buildfilter")
 241 
                gbe_buildfilter =  rsTemp("gbe_buildfilter")
- 
 
 242 
            End If
226 
 
 243 
 
227 
            rsTemp.Close()
 244 
            rsTemp.Close()
228 
            Set rsTemp = Nothing
 245 
            Set rsTemp = Nothing
- 
 
 246 
 
- 
 
 247 
            If NOT isNULL(bmcon_id) AND bmcon_id <> "" Then
- 
 
 248 
 
- 
 
 249 
                '   Extract information from the machine config
229 
         else
 250 
                Query_String = "SELECT * " &_
- 
 
 251 
                               " FROM build_machine_config bc, " &_
- 
 
 252 
                               "      gbe_machtype gb " &_
- 
 
 253 
                               "WHERE bc.bmcon_id = " & bmcon_id &_
- 
 
 254 
                               "  AND bc.gbe_id = gb.gbe_id"
- 
 
 255 
 
- 
 
 256 
                Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 257 
 
230 
           If RecordCount = 0 Then
 258 
                If rsTemp.RecordCount > 0 Then
- 
 
 259 
                    bmcon_id        =  rsTemp("bmcon_id")
- 
 
 260 
                    gbe_id          =  rsTemp("gbe_id")
- 
 
 261 
                    gbe_value       =  rsTemp("gbe_value")
231 
             daemon_mode = "M"
 262 
                    bShowEmpty      = FALSE
232 
           else
263 
                End If
- 
 
 264 
 
233 
             daemon_mode = "S"
 265 
                rsTemp.Close()
- 
 
 266 
                Set rsTemp = Nothing
234 
           End If
 267 
            End If
235 
         End   If
 268 
         End   If
236 
         %>
 269 
         %>
237 
         <table width="50%" border="0">
 270 
         <table width="50%" border="0">
238 
            <tr>
 271 
            <tr>
239 
               <td><span class="body_txt">Daemon Host</span></td>
 272 
               <td><span class="body_txt">Daemon Host</span></td>
240 
               <td>
 273 
               <td>
241 
                  <%=objFormComponent.Combo_Multi ( "bmcon_id", GetMachHost(bmcon_id), FALSE, "class='body_txt'",3,"20,20,50")%>
 274 
                  <%=objFormComponent.Combo_Multi ( "bmcon_id", GetMachHost(bmcon_id), bShowEmpty, "class='body_txt'",3,"20,20,50")%>
242 
               </td>
 275 
               </td>
243 
            </tr>
 276 
            </tr>
244 
            <tr>
 277 
            <tr>
245 
               <td><span class="body_txt">Daemon Mode</span></td>
 278 
               <td><span class="body_txt">Daemon Mode</span></td>
246 
               <td>
 279 
               <td>