#!C:\Program Files\IBM\RationalSDLC\ClearQuest\CQperl.exe

use CGI::Carp qw(fatalsToBrowser);
use CQPerlExt;       # for ClearQuest API access
     
my ($sessionObj) = CQSession::Build();
my ($workSpace) = "";
  
$sessionObj->UserLogon("user", "passwd\$", "CQDB", "");

###########################################################
# Create the query to find ReleaseForm records
###########################################################
my $queryDef = $sessionObj->BuildQuery("Environment");  

# select the fields that you want in the report
    
$queryDef->BuildField("Environment");
$queryDef->BuildField("Release");
$queryDef->BuildField("Project");
$queryDef->BuildField("VLS_Name");
$queryDef->BuildField("AppServerName");
$queryDef->BuildField("State");
$queryDef->BuildField("URL");


my ($FilterNode1) = $queryDef->BuildFilterOperator($CQPerlExt::CQ_BOOL_OP_AND);
  $FilterNode1->BuildFilter("Release", $CQPerlExt::CQ_COMP_OP_EQ, ["$Release"]);
  $FilterNode1->BuildFilter("Environment", $CQPerlExt::CQ_COMP_OP_EQ, ["$Environment"]);
  $FilterNode1->BuildFilter("State", $CQPerlExt::CQ_COMP_OP_EQ, ["Active"]);    
  $FilterNode1->BuildFilter("Project", $CQPerlExt::CQ_COMP_OP_NEQ, ["InfoAdvantage Baseline"]);
  $FilterNode1->BuildFilter("Project", $CQPerlExt::CQ_COMP_OP_NEQ, ["InfoAdvantage Platinum"]);
  $FilterNode1->BuildFilter("Project", $CQPerlExt::CQ_COMP_OP_NEQ, ["InfoAdvantage Custom"]);
  $FilterNode1->BuildFilter("Project", $CQPerlExt::CQ_COMP_OP_NEQ, ["PB Baseline"]);

# Create sort types and sort orders

my $queryFieldDefs = $queryDef->GetQueryFieldDefs();

$hostname = $queryFieldDefs->ItemByName("Release");
$hostname->SetSortType($CQPerlExt::CQ_SORT_ASC);
$hostname->SetSortOrder(1);

my $resultSet = $sessionObj->BuildResultSet($queryDef);   # create our result set
$resultSet->EnableRecordCount();
# execute the query and populate the result set
$resultSet->Execute();
# go to the first row of the result set
$status = $resultSet->MoveNext();

# while we have another row in the result set

while ($status == $CQPerlExt::CQ_SUCCESS) {             
                
my $Environment = $resultSet->GetColumnValue(1);
my $Release = $resultSet->GetColumnValue(2);
my $Project = $resultSet->GetColumnValue(3);
my $VLS_Name = $resultSet->GetColumnValue(4);
my $AppServerName = $resultSet->GetColumnValue(5);
my $State = $resultSet->GetColumnValue(6);
my $URL = $resultSet->GetColumnValue(7);

print <<END_HTML;
             
     <table border="1" cellpadding="8" bgcolor="#CCD6F5">
     <tr>
     <td><input type="checkbox" value="$VLSName"/></td>
     <td>$Release</td>
     <td>$Environment</td>
     <td width="160">$Project</td>
     <td width="430"><a href="$URL">$URL</a></td>
     </tr>
     </table>
     
END_HTML
     
# next row in result set

$status = $resultSet->MoveNext;
             
     }
     

print <<END_HTML;
<br><input type="submit" value="Bounce"/>
</form>

END_HTML
     
CQSession::Unbuild($sessionObj);