Subversion Repositories DevTools

Rev

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

Rev 4170 Rev 4293
Line 66... Line 66...
66 
 
 66 
 
67 
 
 67 
 
68 
   If rsQry.RecordCount > 0 Then
 68 
   If rsQry.RecordCount > 0 Then
69 
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
 69 
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
70 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 70 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
71 
      'outobjDetails.Item ("description") = rsQry("description")
 - 
 
72 
      'outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
 - 
 
73 
      'outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
 - 
 
74 
      'outobjDetails.Item ("owner_email") = rsQry("owner_email")
 - 
 
75 
      'If rsQry("assoc_mass_ref") <> "" Then
 - 
 
76 
      'outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
 - 
 
77 
      'End If
 - 
 
78 
   Else
 71 
   Else
79 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
 72 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
80 
 
 73 
 
81 
   End If
 74 
   End If
82 
 
 75 
 
83 
 
 - 
 
84 
   rsQry.Close
 76 
   rsQry.Close
85 
   Set rsQry = Nothing
 77 
   Set rsQry = Nothing
86 
End Sub
 78 
End Sub
87 
'--------------------------------------------------------------------------------------------------------------------------
 79 
'--------------------------------------------------------------------------------------------------------------------------
88 
Sub DeleteDaemon(rcon_id_list)
 80 
Sub DeleteDaemon(rcon_id_list)
Line 90... Line 82...
90 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
 82 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
91 
 
 83 
 
92 
   On Error Resume Next
 84 
   On Error Resume Next
93 
   objEH.TryORA()
 85 
   objEH.TryORA()
94 
 
 86 
 
- 
 
 87 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST);  END;"
- 
 
 88 
 
- 
 
 89 
   objEH.CatchORA ( OraSession )
- 
 
 90 
 
95 
   OraDatabase.ExecuteSQL _
 91 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
- 
 
 92 
End Sub
- 
 
 93 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 94 
Sub RemoveDaemon(rcon_id_list)
- 
 
 95 
 
- 
 
 96 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 97 
 
- 
 
 98 
   On Error Resume Next
- 
 
 99 
   objEH.TryORA()
- 
 
 100 
 
96 
   "BEGIN  PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST);  END;"
 101 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST);  END;"
97 
 
 102 
 
98 
   objEH.CatchORA ( OraSession )
 103 
   objEH.CatchORA ( OraSession )
99 
 
 104 
 
100 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
 105 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
101 
End Sub
 106 
End Sub
Line 113... Line 118...
113 
'----------------------------------------------------
 118 
'----------------------------------------------------
114 
 
 119 
 
115 
' --- RUN onPostBack ---
 120 
' --- RUN onPostBack ---
116 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
 121 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
117 
   If objForm.IsValidOnPostBack Then
 122 
   If objForm.IsValidOnPostBack Then
118 
 
 - 
 
119 
      If objAccessControl.IsActive("BuildConfiguration") Then
 123 
      If objAccessControl.IsActive("BuildConfiguration") Then
- 
 
 124 
         If Request("btn") = "Delete" Then
120 
         Call DeleteDaemon(Request("rcon_id_list"))
 125 
             Call DeleteDaemon(Request("rcon_id_list"))
- 
 
 126 
         ElseIf Request("btn") = "Remove" Then
- 
 
 127 
             Call RemoveDaemon(Request("rcon_id_list"))
- 
 
 128 
        End If
121 
      End If
 129 
      End If
122 
 
 130 
 
123 
      If objEH.Finally Then
 131 
      If objEH.Finally Then
124 
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
 132 
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
125 
      End If
 133 
      End If
Line 213... Line 221...
213 
                        If objAccessControl.IsActive("BuildConfiguration") Then
 221 
                        If objAccessControl.IsActive("BuildConfiguration") Then
214 
                           Call Action_Buttons ( "Add Daemon" )
 222 
                           Call Action_Buttons ( "Add Daemon" )
215 
                        End If
 223 
                        End If
216 
 
 224 
 
217 
                        ' Load some action buttons
 225 
                        ' Load some action buttons
218 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )
 226 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
219 
                        objBtnControl.ButtonSpacer = 1
 227 
                        objBtnControl.ButtonSpacer = 1
220 
 
 228 
 
221 
                        %>
 229 
                        %>
222 
 
 230 
 
223 
                        <!-- +++++++++++++++++++++++++++++++++++ -->
 231 
                        <!-- +++++++++++++++++++++++++++++++++++ -->
Line 237... Line 245...
237 
                     <%End If%>
 245 
                     <%End If%>
238 
                     <td valign="top">
 246 
                     <td valign="top">
239 
                  </tr>
 247 
                  </tr>
240 
                  <%
 248 
                  <%
241 
 
 249 
 
- 
 
 250 
                  query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter " &_
- 
 
 251 
                                 " from release_manager.release_config rc," &_
242 
                  query_string = "select * from release_config rc, build_machine_config bm, gbe_machtype gbe "&_
 252 
                                 "      release_manager.build_machine_config bm," &_
- 
 
 253 
                                 "      release_manager.gbe_machtype gbe" &_
- 
 
 254 
                                 " where rc.rtag_id=" & parRtagId &_
- 
 
 255 
                                 "      and rc.bmcon_id=bm.bmcon_id(+)" &_
- 
 
 256 
                                 "      and rc.gbe_id=gbe.gbe_id" &_
243 
                  " where rc.rtag_id = "& parRtagId &" and rc.daemon_hostname = bm.machine_hostname(+) and rc.gbe_id = gbe.gbe_id order by daemon_mode, bm.display_name"
 257 
                                 " order by daemon_mode, bm.display_name"
244 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 258 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
245 
 
 - 
 
246 
                  Dim daemon_mode, daemon
 259 
                  Dim daemon_mode, daemon, cbtype
247 
                  Dim cbtype
 - 
 
248 
 
 260 
 
249 
                  cbtype = "hidden"
 261 
                  cbtype = "hidden"
250 
                  If objAccessControl.IsActive("BuildConfiguration") Then
 262 
                  If objAccessControl.IsActive("BuildConfiguration") Then
251 
                     cbtype = "checkbox"
 263 
                     cbtype = "checkbox"
252 
                  End If
 264 
                  End If
253 
 
 265 
 
254 
                  '--- Render rows ---
 266 
                  '--- Render rows ---
255 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 267 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
256 
                     rcon_id = rsQry("rcon_id")
 268 
                     rcon_id = rsQry("rcon_id")
257 
                     daemon  = rsQry("display_name")
 269 
                     daemon  = rsQry("display_name")
- 
 
 270 
                     If IsNull(daemon) Then
- 
 
 271 
                         daemon = "-Undefined-"
- 
 
 272 
                     End If
258 
 
 273 
 
259 
                     If rsQry("daemon_mode") = "M" Then
 274 
                     If rsQry("daemon_mode") = "M" Then
260 
                        daemon_mode = "MASTER"
 275 
                        daemon_mode = "MASTER"
261 
                     Else
 276 
                     Else
262 
                        daemon_mode = "SLAVE"
 277 
                        daemon_mode = "SLAVE"
Line 269... Line 284...
269 
                        <%If rsQry("daemon_mode") = "M" AND rsQry.RecordCount <> 1 Then%>
 284 
                        <%If rsQry("daemon_mode") = "M" AND rsQry.RecordCount <> 1 Then%>
270 
                           <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>" disabled></td>
 285 
                           <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>" disabled></td>
271 
                        <%Else%>
 286 
                        <%Else%>
272 
                           <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
 287 
                           <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
273 
                        <%End If%>
 288 
                        <%End If%>
274 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("display_name")%></td>
 289 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon%></td>
275 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
 290 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
276 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
 291 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
277 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
 292 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
278 
                        <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 293 
                        <%If objAccessControl.IsActive("BuildConfiguration") Then%>
279 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
 294 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
280 
                        <%End If%>
 295 
                        <%End If%>
281 
                     </tr>
 296 
                     </tr>
282 
                     <%
 297 
                     <%
283 
                     rsQry.MoveNext
 298 
                     rsQry.MoveNext
284 
                  Loop
 299 
                  Loop
Line 302... Line 317...
302 
            <td align="right" background="images/bg_action_norm.gif" >
 317 
            <td align="right" background="images/bg_action_norm.gif" >
303 
 
 318 
 
304 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>
 319 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>
305 
               <%=objPMod.ComposeHiddenTags()%>
 320 
               <%=objPMod.ComposeHiddenTags()%>
306 
               <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 321 
               <%If objAccessControl.IsActive("BuildConfiguration") Then%>
- 
 
 322 
                  <input name="btn" type="submit" class="form_btn" value="Remove">
307 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
 323 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
308 
               <%End If%>
 324 
               <%End If%>
309 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
 325 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
310 
               <input type="hidden" name="action" value="true">
 326 
               <input type="hidden" name="action" value="true">
311 
            </td>
 327 
            </td>