#!/usr/bin/perl

# acrontab command: 25 * * * * lxplus (/afs/cern.ch/user/n/nougaret/myMAD/madX/AUTOMATION/MadBuild.pl) > /afs/cern.ch/user/n/nougaret/MADbuilt.out 2>&1


use MIME::Lite; # to send e-mail

if ( $#ARGV != 0 ) {
    print "expect 1 argument (1) releaseTag! EXIT!\n" ;
    exit ;
} else {
    $releaseTag = @ARGV[0];
}

open REPORT_FILE, ">MadBuild_Report.txt";
my $now = localtime;
print REPORT_FILE "MadBuild.pl report from $now\n";

$startTime = localtime;

#$htmlFile = '/afs/cern.ch/user/n/nougaret/www/mad/build.htm'; # for the time being

$website = "/afs/cern.ch/user/n/nougaret/www/mad/";

# first set environment variables for lf95 and NAG compilers
# this is necessary for the acron job which does not perform a login
# that would set the variables transparently.

my $path = $ENV{'PATH'}; # should handle case of empty string
my $newPath = $path . ":/afs/cern.ch/sw/fortran/nag/f95.5.361/bin:/afs/cern.ch/sw/fortran/lahey/lf9562/bin";
$ENV{'PATH'}=$newPath;

my $ldLibPath = $ENV{'LD_LIBRARY_PATH'}; # should handle case of empty string
my $newLdLibPath = $ldLlibPath . ":/afs/cern.ch/sw/fortran/lahey/lf9562/lib";
$ENV{'LD_LIBRARY_PATH'}=$newLdLibPath;

# flexlm license manager for NAG compiler
$ENV{'NAGF95_ROOT'}="/afs/cern.ch/sw/fortran/nag/f95.5.361";
$ENV{'LM_LICENSE_FILE'}="/afs/cern.ch/sw/fortran/nag/f95.5.361/license.dat";

@extractedPackages = ('madX');


$pwd = `pwd`;
chop $pwd;
$extractDir = join("", $pwd, "/MadCvsExtract") ;


mkdir($extractDir, 0777);
chdir($extractDir);


$cvsDir = ":gserver:isscvs.cern.ch:/local/reps/madx" ;


foreach(@extractedPackages) {
    my $pack = $_;
    print REPORT_FILE "Extract package $pack from CVS\n";
    `cvs -d $cvsDir checkout -r $releaseTag $pack`; # now extract for specified release tag
}

# build
my $buildReport = "";

chdir('./madX');

$buildReport = "<table width=\"75%\" border=\"0\">\n";

@makefiles = ("Makefile_develop","Makefile_nag","Makefile"); # last one overwrites madx, madxp

#@targets = ("madx","madxp"); # note that madxp is just a link on madx => should clean-up later on...
# note: we must do the clean-up everywhere, up to TestScenario.xml...
@targets = ("madx");

$compilationOK = 'true'; # default

foreach $makefile (@makefiles){

    TARGETS: foreach $target (@targets){ # this loop now useless

	my $detailedBuildReport = "";
	$detailedBuildReport = "<table width=\"75%\" border=\"0\">\n";
	my $startTime  = localtime;

	`make clean`;
	`rm $target`;
	`rm $target\_$makefile`; # later-on, $target copied into $target\_$makefile ...

	my $warnings = 0; # default
	my $makefileInvocation = 'undefined'; # default

	if ($makefile eq 'Makefile'){
	    $makefileInvocation = 'Makefile f95=/opt/intel/Compiler/11.0/081/bin/ia32/ifort DEBUG=NO'; 
	    # intel compiler installed on pcslux99
	} else {
	    if ($makefile eq 'Makefile_develop'){
		$makefileInvocation = 'Makefile f95=lf95 DEBUG=YES'; # the Lahey Fortran compiler
	    } else {
		if ($makefile eq 'Makefile_nag'){
		    $makefileInvocation = 'Makefile f95=f95 DEBUG=YES'; # f95 is the NAG compiler
		}
	    }
	}

	my $makeResult = `make -f $makefileInvocation $target 2>&1`; # for good 
	# $makeResult = "$makefileInvocation"; # for test

	# if we wanted to redirect stdout and stderr into separate files...
        # system("make -f $makefile $target 1>build_result_stdout 2>build_result_stderr");

	my $warnings = lookForWarnings($makeResult);
	# colorize warnings
	$makeResult =~ s/([wW])arning(s?)/<font class=\"warning-font\">\1arning\2<\/font>/g;
	# undo the above in case the warning appears as '0 warnings'
	$makeResult =~ s/([\s\t]+0[\s\t]+)<font class=\"warning\-font\">([Ww])arning(s?)<\/font>/\1\2arning\3/g;
	# make sure line feeds display correctly in HTML
	$makeResult =~ s/\n/<\/td><\/tr>\n<tr><td>/g;
	$makeResult = "<tr><td colspan=\"2\">" . $makeResult . "</td></tr>\n\n";

	
	my $nbOfTargets = `ls $target | wc -w`;
	if ($nbOfTargets == 1) {
		# keep all the targets as madx_Makefile_develop,
		# madx_Makefile_nag and madx_Makefile, as needed by MadTest.pl
		`cp $target $target\_$makefile`;
		if ($warnings==0) {
			$compilationOutcome{$target} = 'success';
		} else {
			$compilationOutcome{$target} = 'warning';
		}
	}
	else { 
	    $compilationOutcome{$target} = 'failure';
	    $compilationOK = 'false';
	}
	$detailedBuildReport .= "<tr class =\"$compilationOutcome{$target}\"><td colspan=\"2\">$target</td><td>$compilationOutcome{$target}</td></tr>\n";
	$detailedBuildReport .= "<tr><td>$makeResult</td><tr>\n";

	my $outcome = $compilationOutcome{$target};
	my $endTime = localtime;
	$detailedBuildReport .= "</table>\n";
	my $htmlFile = "build_" . $makefile . "_" . $target . ".htm";
	$buildReport .= "<tr class=\"$outcome\"><td>make -f $makefile $target</td><td><a href=\"$htmlFile\">$outcome</a></td></tr>\n";
	
	print REPORT_FILE "Compiling '$target' with '$makefile' yields $outcome\n";
	
	createWebPage($htmlFile,$detailedBuildReport,$startTime,$endTime);

    } # for each target
	
} # for each makefile

# now create the 'madxp' as symbolic links:

foreach $makefile (@makefiles){
    # we no longer need to compile madxp, which is now merged with madx.
    # for the time-being, we create a symbolic to madx so that the test-suite works as usual
    # in the long-run, all the madx-related stuff should go away.
    `rm ./madxp\_$makefile`; # just in case the file or link already exists ...
    `ln -s ./madx\_$makefile ./madxp\_$makefile`;
}

`make clean`; # final make clean, mostly to remove all the .o files

$buildReport .= "</table>\n";

$endTime = localtime;

createWebPage("build.htm",$buildReport, $startTime, $endTime ); # main page



# then send an e-mail, in case a compilation trouble encountered
if ($compilationOK eq 'false'){
    $msg = MIME::Lite->new(
			   From       => 'Jean-Luc.Nougaret@cern.ch', # if "" instead of '', '@'->'\@'
			   'Reply-To' => 'mad-automation-admin@cern.ch',
			   To         => 'mad-automation-admin@cern.ch', # for good
#			 To         => 'Jean-Luc.Nougaret@cern.ch', # for test
			   Subject    => "Automated MAD Build did not succeed",
			   Data       => "This is an automated e-mail. Check report on\nhttp://test-mad-automation.web.cern.ch/test-mad-automation/build.htm"
			   );
    $msg->send;
}

# return status output, to be processed by the calling MadBuildAndTest.py
print $compilationOK; # either 'true' or 'false'

 print REPORT_FILE "MadBuild.pl completed\n";
 close REPORT_FILE;

sub lookForWarnings {

	my $makeOutput = $_[0]; # global variable
	my $warnings = 0;
	my @lines = split /\n/, $makeOutput;
	
	foreach $line (@lines) {
		while ( $line =~ /([\s\t]*([\w\d_\-:]+)[\s\t]+[Ww]arning(s?))/g ){
			# /g modifier to make it a progressive match
			my $prefix = $2;
			if ($prefix ne "0") { $warnings=1;}
		}
	}
	
	return $warnings;
}
  
sub createWebPage {
    my $file = $website . $_[0];
    my $buildReport = $_[1];
    my $startTime = $_[2];
    my $endTime = $_[3];
    $html = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">';
    $html .= "<html>\n";
    $html .= "<head>\n";
    $html .= "<title>MAD build result</title>\n";
    $html .= "<link rel=stylesheet href=\"./MadTestWebStyle.css\" type=\"text/css\">"; # CSS stylesheet
    $html .= "</head>\n";
    $html .= "<!-- automatically generated by the MAD build script -->\n";
    $html .= "<body>\n";
    $html .= "<p>Build started $startTime, ended $endTime</p>\n";
    $html .= $buildReport;
    $html .= "</body>\n";
    $html .= "</html>\n";   
    open(OUT_HTML,">$file");
    print OUT_HTML $html;
    close OUT_HTML;
}