Subversion Repositories DevTools

Rev

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

Rev 161 Rev 4293
Line 28... Line 28...
28 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
 28 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
29 
Dim sMessage
 29 
Dim sMessage
30 
Dim GBE_MACHTYPE
 30 
Dim GBE_MACHTYPE
31 
Dim Query_String
 31 
Dim Query_String
32 
Dim RecordCount
 32 
Dim RecordCount
33 
Dim daemon_hostname
 - 
 
34 
Dim bmcon_id
 33 
Dim bmcon_id
35 
Dim gbe_id
 34 
Dim gbe_id
36 
Dim gbe_value
 35 
Dim gbe_value
37 
Dim daemon_mode
 36 
Dim daemon_mode
38 
Dim gbe_buildfilter
 37 
Dim gbe_buildfilter
Line 55... Line 54...
55 
   Dim rsQry, query
 54 
   Dim rsQry, query
56 
 
 55 
 
57 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 56 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
58 
 
 57 
 
59 
   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" &_
 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" &_
- 
 
 59 
           " FROM build_machine_config bm, gbe_machtype gb " &_
60 
           " FROM build_machine_config bm, gbe_machtype gb WHERE bm.gbe_id = gb.gbe_id order by bm.display_name"
 60 
           " WHERE bm.gbe_id = gb.gbe_id order by bm.display_name"
61 
 
 61 
 
62 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 62 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
63 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 63 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
64 
      GetMachHost = rsQry.GetRows()
 64 
      GetMachHost = rsQry.GetRows()
65 
   Else
 65 
   Else
Line 67... Line 67...
67 
   End If
 67 
   End If
68 
 
 68 
 
69 
   rsQry.Close()
 69 
   rsQry.Close()
70 
   Set rsQry = Nothing
 70 
   Set rsQry = Nothing
71 
 
 71 
 
72 
   OraDatabase.Parameters.Remove "display_name"
 72 
   OraDatabase.Parameters.Remove "bmcon_id"
73 
End Function
 73 
End Function
74 
 
 74 
 
75 
'--------------------------------------------------------------------------------------------------------------------------
 75 
'--------------------------------------------------------------------------------------------------------------------------
76 
%>
 76 
%>
77 
<%
 77 
<%
Line 185... Line 185...
185 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 185 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
186 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 186 
         <%Call Messenger ( sMessage , 3, "100%" )%>
187 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 187 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
188 
         <!--#include file="messages/_msg_inline.asp"-->
 188 
         <!--#include file="messages/_msg_inline.asp"-->
189 
         <%
 189 
         <%
- 
 
 190 
         Query_String = "select * " &_
190 
         Query_String = "select * from release_config rc, gbe_machtype gbe "&_
 191 
                        " from release_config rc, gbe_machtype gbe "&_
- 
 
 192 
                        " where rc.rtag_id = "& parRtag_id &_
191 
         " where rc.rtag_id = "& parRtag_id &" and gbe.gbe_id = rc.gbe_id"
 193 
                        "   and gbe.gbe_id = rc.gbe_id"
192 
 
 194 
 
193 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 195 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
194 
 
 196 
 
195 
         RecordCount = rsQry.RecordCount
 197 
         RecordCount = rsQry.RecordCount
196 
 
 198 
 
Line 204... Line 206...
204 
            %>
 206 
            %>
205 
            <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
 207 
            <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
206 
            <%
 208 
            <%
207 
            Dim rsTemp
 209 
            Dim rsTemp
208 
 
 210 
 
- 
 
 211 
            Query_String = "SELECT * " &_
- 
 
 212 
                           "    FROM RELEASE_CONFIG rc, " &_
- 
 
 213 
                           "    build_machine_config bm, " &_
- 
 
 214 
                           "    gbe_machtype gb " &_
209 
            Query_String = "SELECT * FROM RELEASE_CONFIG rc, build_machine_config bm, gbe_machtype gb WHERE rc.rcon_id = "& Request("rcon_id") & " AND rc.daemon_hostname = bm.machine_hostname AND bm.gbe_id = gb.gbe_id"
 215 
                           "WHERE rc.rcon_id = "& Request("rcon_id") &_
- 
 
 216 
                           "    AND rc.bmcon_id = bm.bmcon_id " &_
- 
 
 217 
                           "    AND bm.gbe_id = gb.gbe_id"
210 
 
 218 
 
211 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 219 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
212 
 
 220 
 
213 
            bmcon_id   =   rsTemp("bmcon_id")
 221 
            bmcon_id        =   rsTemp("bmcon_id")
214 
            daemon_mode   =   rsTemp("daemon_mode")
 222 
            daemon_mode     =   rsTemp("daemon_mode")
215 
 
 - 
 
216 
            daemon_hostname   =   rsTemp("daemon_hostname")
 - 
 
217 
            gbe_id   =   rsTemp("gbe_id")
 223 
            gbe_id          =   rsTemp("gbe_id")
218 
            gbe_value   =   rsTemp("gbe_value")
 224 
            gbe_value       =   rsTemp("gbe_value")
219 
            gbe_buildfilter = rsTemp("gbe_buildfilter")
 225 
            gbe_buildfilter = rsTemp("gbe_buildfilter")
220 
 
 226 
 
221 
            rsTemp.Close()
 227 
            rsTemp.Close()
222 
            Set rsTemp = Nothing
 228 
            Set rsTemp = Nothing
223 
         else
 229 
         else