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