Subversion Repositories DevTools

Rev

Rev 6176 | Rev 6267 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6176 Rev 6183
Line 176... Line 176...
176
       End If
176
       End If
177
    End If
177
    End If
178
    rsQry.Close
178
    rsQry.Close
179
    Set rsQry = Nothing
179
    Set rsQry = Nothing
180
 
180
 
-
 
181
    If bGetApplication("CheckToolset", TRUE) Then
181
    If NOT CheckConfigErrors Then
182
        If NOT CheckConfigErrors Then
182
 
183
 
183
        '
184
            '
184
        '   Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
185
            '   Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
185
        '   a TOOLSET builder. The test is a bit sloppy
186
            '   a TOOLSET builder. The test is a bit sloppy
186
        query = _
187
            query = _
187
            "SELECT * from ( " &_
188
                "SELECT * from ( " &_
188
            "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
189
                "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
189
            "FROM  " &_
190
                "FROM  " &_
190
            "  (SELECT bc.GBE_ID, " &_
191
                "  (SELECT bc.GBE_ID, " &_
191
            "    CASE " &_
192
                "    CASE " &_
192
            "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
193
                "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
193
            "      THEN 1 " &_
194
                "      THEN 1 " &_
194
            "      ELSE NULL " &_
195
                "      ELSE NULL " &_
195
            "    END AS hasToolset " &_
196
                "    END AS hasToolset " &_
196
            "  FROM release_manager.release_config rc, " &_
197
                "  FROM release_manager.release_config rc, " &_
197
            "    BUILD_MACHINE_CONFIG bc " &_
198
                "    BUILD_MACHINE_CONFIG bc " &_
198
            "  WHERE rc.rtag_id = :RTAG_ID " &_
199
                "  WHERE rc.rtag_id = :RTAG_ID " &_
199
            "  AND rc.bmcon_id IS NOT NULL " &_
200
                "  AND rc.bmcon_id IS NOT NULL " &_
200
            "  AND bc.bmcon_id  = rc.bmcon_id " &_
201
                "  AND bc.bmcon_id  = rc.bmcon_id " &_
201
            "  ) " &_
202
                "  ) " &_
202
            "GROUP BY GBE_ID ) " &_
203
                "GROUP BY GBE_ID ) " &_
203
            "Where  ToolsetCount != 1 "
204
                "Where  ToolsetCount != 1 "
-
 
205
 
-
 
206
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-
 
207
 
-
 
208
            If rsQry.RecordCount > 0 Then
-
 
209
                CheckConfigErrors = true
-
 
210
            End If
204
 
211
 
-
 
212
            rsQry.Close
205
        Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
213
            Set rsQry = Nothing
206
 
214
 
207
        If rsQry.RecordCount > 0 Then
-
 
208
            CheckConfigErrors = true
-
 
209
        End If
215
        End If
210
 
-
 
211
        rsQry.Close
-
 
212
        Set rsQry = Nothing
-
 
213
 
-
 
214
    End If
216
    End If
215
 
217
 
216
    OraDatabase.Parameters.Remove "RTAG_ID"
218
    OraDatabase.Parameters.Remove "RTAG_ID"
217
 
219
 
218
End Function
220
End Function