Subversion Repositories DevTools

Rev

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

Rev 129 Rev 161
Line 29... Line 29...
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
 33 
Dim daemon_hostname
- 
 
 34 
Dim bmcon_id
34 
Dim gbe_id
 35 
Dim gbe_id
- 
 
 36 
Dim gbe_value
35 
Dim daemon_mode
 37 
Dim daemon_mode
36 
Dim gbe_buildfilter
 38 
Dim gbe_buildfilter
37 
'------------ CONSTANTS DECLARATION -----------
 39 
'------------ CONSTANTS DECLARATION -----------
38 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 40 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
39 
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_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
Line 47... Line 49...
47 
'------------ CONDITIONS ----------------------
 49 
'------------ CONDITIONS ----------------------
48 
'----------------------------------------------
 50 
'----------------------------------------------
49 
%>
 51 
%>
50 
<%
 52 
<%
51 
'--------------------------------------------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------------------------------------------
52 
Function GetMachType ( ngbe_id )
 54 
Function GetMachHost (abmcon_id)
53 
   Dim rsQry, query
 55 
   Dim rsQry, query
54 
 
 56 
 
55 
   OraDatabase.Parameters.Add "gbe_id",   ngbe_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 57 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
56 
 
 58 
 
- 
 
 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" &_
57 
   query = GetQuery ("GBE_MACHTYPECombo.sql")
 60 
           " FROM build_machine_config bm, gbe_machtype gb WHERE bm.gbe_id = gb.gbe_id order by bm.display_name"
58 
 
 61 
 
59 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 62 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
60 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 63 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
61 
      GetMachType = rsQry.GetRows()
 64 
      GetMachHost = rsQry.GetRows()
62 
   Else
 65 
   Else
63 
      GetMachType = NULL
 66 
      GetMachHost = NULL
64 
   End If
 67 
   End If
65 
 
 68 
 
66 
   rsQry.Close()
 69 
   rsQry.Close()
67 
   Set rsQry = Nothing
 70 
   Set rsQry = Nothing
68 
 
 71 
 
69 
   OraDatabase.Parameters.Remove "gbe_id"
 72 
   OraDatabase.Parameters.Remove "display_name"
70 
End Function
 73 
End Function
- 
 
 74 
 
71 
'--------------------------------------------------------------------------------------------------------------------------
 75 
'--------------------------------------------------------------------------------------------------------------------------
72 
%>
 76 
%>
73 
<%
 77 
<%
74 
'------------ RUN BEFORE PAGE RENDER ----------
 78 
'------------ RUN BEFORE PAGE RENDER ----------
75 
 
 79 
 
76 
 
 80 
 
77 
If CBool(Request("action")) Then
 81 
If CBool(Request("action")) Then
78 
 
 82 
 
79 
   If Request("rcon_id") <> "" Then
 83 
   If Request("rcon_id") <> "" Then
80 
 
 84 
 
81 
      OraDatabase.Parameters.Add "DAEMON_HOSTNAME",   Request("daemon_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
82 
      OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 85 
      OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
83 
      OraDatabase.Parameters.Add "GBE_ID",         Request("gbe_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
84 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER",   Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 88 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
 
 89 
 
86 
      objEH.TryORA ( OraSession )
 90 
      objEH.TryORA ( OraSession )
87 
      On Error Resume Next
 91 
      On Error Resume Next
88 
 
 92 
 
89 
      OraDatabase.ExecuteSQL _
 93 
      OraDatabase.ExecuteSQL _
90 
      "BEGIN  PK_BUILDAPI.UPDATE_DAEMON(:DAEMON_HOSTNAME, :RCON_ID, :GBE_ID, :GBE_BUILDFILTER);  END;"
 94 
      "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
91 
      OraSession.CommitTrans
 95 
      OraSession.CommitTrans
92 
 
 96 
 
93 
      objEH.CatchORA ( OraSession )
 97 
      objEH.CatchORA ( OraSession )
94 
 
 98 
 
95 
      OraDatabase.Parameters.Remove "DAEMON_HOSTNAME"
 - 
 
96 
      OraDatabase.Parameters.Remove "RCON_ID"
 99 
      OraDatabase.Parameters.Remove "RCON_ID"
97 
      OraDatabase.Parameters.Remove "GBE_ID"
 100 
      OraDatabase.Parameters.Remove "BMCON_ID"
- 
 
 101 
      OraDatabase.Parameters.Remove "DAEMON_MODE"
98 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
 102 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
99 
 
 103 
 
100 
      If objEH.Finally Then
 104 
      If objEH.Finally Then
101 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
 105 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
102 
         Call CloseWindow()
 106 
         Call CloseWindow()
Line 104... Line 108...
104 
 
 108 
 
105 
      rsQry.Close
 109 
      rsQry.Close
106 
      Set rsQry = nothing
 110 
      Set rsQry = nothing
107 
 
 111 
 
108 
   Else
 112 
   Else
109 
      OraDatabase.Parameters.Add "DAEMON_HOSTNAME",   Request("daemon_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
110 
      OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 113 
      OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
111 
      OraDatabase.Parameters.Add "GBE_ID",         Request("gbe_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
112 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER",   Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 116 
      OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
113 
 
 117 
 
114 
      objEH.TryORA ( OraSession )
 118 
      objEH.TryORA ( OraSession )
115 
      On Error Resume Next
 119 
      On Error Resume Next
116 
 
 120 
 
117 
      OraDatabase.ExecuteSQL _
 121 
      OraDatabase.ExecuteSQL _
118 
      "BEGIN  PK_BUILDAPI.ADD_DAEMON(:DAEMON_HOSTNAME, :RTAG_ID, :GBE_ID, :GBE_BUILDFILTER);  END;"
 122 
      "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
119 
 
 123 
 
120 
      objEH.CatchORA ( OraSession )
 124 
      objEH.CatchORA ( OraSession )
121 
 
 125 
 
122 
      OraDatabase.Parameters.Remove "DAEMON_HOSTNAME"
 - 
 
123 
      OraDatabase.Parameters.Remove "RTAG_ID"
 126 
      OraDatabase.Parameters.Remove "RTAG_ID"
124 
      OraDatabase.Parameters.Remove "GBE_ID"
 127 
      OraDatabase.Parameters.Remove "BMCON_ID"
- 
 
 128 
      OraDatabase.Parameters.Remove "DAEMON_MODE"
125 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
 129 
      OraDatabase.Parameters.Remove "GBE_BUILDFILTER"
126 
 
 130 
 
127 
      If objEH.Finally Then
 131 
      If objEH.Finally Then
128 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
 132 
         Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
129 
         Call CloseWindow()
 133 
         Call CloseWindow()
Line 146... Line 150...
146 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 150 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
147 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 151 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
148 
<script language="JavaScript" src="scripts/common.js"></script>
 152 
<script language="JavaScript" src="scripts/common.js"></script>
149 
</head>
 153 
</head>
150 
 
 154 
 
151 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.daemon_hostname.focus();">
 155 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bmcon_id.focus();">
152 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 156 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
153 
   <tr>
 157 
   <tr>
154 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update DAEMON</span> <br>
 158 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update DAEMON</span> <br>
155 
         Add a new DAEMON or edit an existing DAEMON.
 159 
         Add a new DAEMON or edit an existing DAEMON.
156 
      </td>
 160 
      </td>
Line 200... Line 204...
200 
            %>
 204 
            %>
201 
            <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
 205 
            <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
202 
            <%
 206 
            <%
203 
            Dim rsTemp
 207 
            Dim rsTemp
204 
 
 208 
 
205 
            Query_String = "SELECT * FROM RELEASE_CONFIG WHERE RCON_ID = "& Request("rcon_id")
 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"
206 
 
 210 
 
207 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 211 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
208 
 
 212 
 
- 
 
 213 
            bmcon_id   =   rsTemp("bmcon_id")
209 
            daemon_mode   =   rsTemp("daemon_mode")
 214 
            daemon_mode   =   rsTemp("daemon_mode")
210 
 
 215 
 
211 
            daemon_hostname   =   rsTemp("daemon_hostname")
 216 
            daemon_hostname   =   rsTemp("daemon_hostname")
212 
            gbe_id   =   rsTemp("gbe_id")
 217 
            gbe_id   =   rsTemp("gbe_id")
- 
 
 218 
            gbe_value   =   rsTemp("gbe_value")
213 
            gbe_buildfilter = rsTemp("gbe_buildfilter")
 219 
            gbe_buildfilter = rsTemp("gbe_buildfilter")
214 
 
 220 
 
215 
            rsTemp.Close()
 221 
            rsTemp.Close()
216 
            Set rsTemp = Nothing
 222 
            Set rsTemp = Nothing
217 
 
 223 
         else
- 
 
 224 
           If RecordCount = 0 Then
- 
 
 225 
             daemon_mode = "M"
- 
 
 226 
           else
- 
 
 227 
             daemon_mode = "S"
- 
 
 228 
           End If
218 
         End   If
 229 
         End   If
219 
         %>
 230 
         %>
220 
         <table width="50%" border="0">
 231 
         <table width="50%" border="0">
221 
            <tr>
 232 
            <tr>
222 
               <td><span class="body_txt">Daemon HostName</span></td>
 233 
               <td><span class="body_txt">Daemon Host</span></td>
223 
               <td>
 234 
               <td>
224 
                  <input name="daemon_hostname" type="text" class="body_txt" value="<%=daemon_hostname%>">
 235 
                  <%=objFormComponent.Combo_Multi ( "bmcon_id", GetMachHost(bmcon_id), FALSE, "class='body_txt'",3,"20,20,50")%>
225 
               </td>
 236 
               </td>
226 
            </tr>
 237 
            </tr>
227 
            <tr>
 238 
            <tr>
228 
               <td><span class="body_txt">Daemon Mode</span></td>
 239 
               <td><span class="body_txt">Daemon Mode</span></td>
229 
               <%If RecordCount = 0 OR daemon_mode = "M" Then%>
 - 
 
230 
                  <td>
 240 
               <td>
231 
                     <input name="daemon_mode" size="6" type="text" class="form_ivalue" value="MASTER" readonly>
 241 
                 <select name="daemon_mode" class='body_txt'>
232 
                  </td>
 242 
                   <option value=M <%=iif(daemon_mode="M","selected","")%>>MASTER</option>
233 
               <%Else%>
 - 
 
234 
                  <td>
 - 
 
235 
                     <input name="daemon_mode" size="6" type="text" class="form_ivalue" value="SLAVE" readonly>
 243 
                   <option value=S <%=iif(daemon_mode="S","selected","")%>>SLAVE</option>
236 
                  </td>
 244 
                 </select>
237 
               <%End If%>
 245 
               </td>
238 
            </tr>
 246 
            </tr>
239 
            <tr>
 247 
            <tr>
240 
               <td><span class="body_txt">GBE_MACHTYPE</span></td>
 - 
 
241 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "class='body_txt'" )%></td>
 - 
 
242 
 
 - 
 
243 
               <tr>
 248 
               <tr>
244 
                  <td><span class="body_txt">GBE_BUILDFILTER</span></td>
 249 
                  <td><span class="body_txt">GBE_BUILDFILTER</span></td>
245 
                  <td><input name="gbe_buildfilter" type="text" class="body_txt" size="80" value="<%=gbe_buildfilter%>"></td>
 250 
                  <td><input name="gbe_buildfilter" type="text" class="body_txt" size="80" value="<%=gbe_buildfilter%>"></td>
246 
               </tr>
 251 
               </tr>
247 
            </tr>
 252 
            </tr>
Line 266... Line 271...
266 
'------------ RUN AFTER PAGE RENDER -----------
 271 
'------------ RUN AFTER PAGE RENDER -----------
267 
Set objFormCollector = Nothing
 272 
Set objFormCollector = Nothing
268 
'----------------------------------------------
 273 
'----------------------------------------------
269 
Call Destroy_All_Objects
 274 
Call Destroy_All_Objects
270 
%>
 275 
%>
271 
 
 - 
 
272 
 
 -