#!/usr/local/bin/perl
use DBI;
require "$ENV{'FSW'}/web/rebuild_db.pl";
my (@data, $i, $j, $max_loop, $not_depend);
@data = ();
@data = sql_execute ( "select", "select a1.rebuild_start_time, a1.rebuild_end_time, a1.FSW_build_instance, a1.rebuild_os_type, a2.status, a1.official_release, a1.comment from build_release_log as a1, rebuild_status as a2 where a1.rebuild_status = a2.id and a2.status = 'completed' and a1.FSW_build_instance like \"B%\" and official_release = 'yes' order by a1.rebuild_start_time desc ", @data );
print "Successful FSW Release Build:\n";
print "
\n";
print "\n";
print "| Build Start Time | \n";
print "Build End Time | \n";
print "CMX Instance | \n";
print "OS | \n";
print "Build Status | \n";
print "Official Release | \n";
print "Comment | \n";
print "
\n";
for $i ( 0 .. $#data )
{
print "\n";
for $j ( 0 .. $#{ $data[$i] } )
{
print "| $data[$i][$j] | \n";
}
print "
\n";
}
print "
\n";
@data = ();
@data = sql_execute ( "select", "select a1.rebuild_start_time, a1.rebuild_end_time, a1.FSW_build_instance, a1.rebuild_os_type, a2.status from build_release_log as a1, rebuild_status as a2 where a1.rebuild_status = a2.id and a2.status = 'completed' and a1.FSW_build_instance not like \"B%\" and ( DATEDIFF(NOW(),(a1.rebuild_start_time)) < 30 ) order by a1.id desc ", @data );
print "Successful FSW Nightly Build:\n";
print "
\n";
print "\n";
print "| Build Start Time | \n";
print "Build End Time | \n";
print "CMX Instance | \n";
print "OS | \n";
print "Build Status | \n";
print "
\n";
for $i ( 0 .. $#data )
{
print "\n";
for $j ( 0 .. $#{ $data[$i] } )
{
print "| $data[$i][$j] | \n";
}
print "
\n";
}
print "
\n";
print "Failed FSW Build:\n";
print "
\n";
print "\n";
print "| Build Start Time | \n";
print "CMX Instance | \n";
print "OS | \n";
print "Where the build failed | \n";
print "
\n";
@data = ();
@data = sql_execute ( "select", "select a1.rebuild_start_time, a1.FSW_build_instance, a1.rebuild_os_type, a1.comment from build_release_log as a1 where a1.rebuild_status = 4 and comment != '' and ( DATEDIFF(NOW(),(a1.rebuild_start_time)) < 10 ) order by a1.id desc ", @data );
for $i ( 0 .. $#data )
{
print "\n";
for $j ( 0 .. $#{ $data[$i] } )
{
print "| $data[$i][$j] | \n";
}
print "
\n";
}
print "
\n";