#!/usr/bin/perl

$firstRelease = $ARGV[0];
$secondRelease = $ARGV[1];

use File::Path; # to remove directory trees

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

@extractedPackages = ('madX');

$pwd = `pwd`;
chop $pwd;
$extractDir = $pwd . "/MadCvsExtract_releaseWorkReport" ;
rmtree($extractDir);
mkdir($extractDir, 0777);
chdir($extractDir);


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

my $startTime = localtime;


foreach(@extractedPackages) {
    my $pack = $_;
    `cvs -d $cvsDir checkout $pack`;
}

chdir('./madX');

# now find-out all the work from the contributors
# that went into the CVS in between the two last releases

@authors = (); # global variable modified by recordWork
recordWork($firstRelease, $secondRelease);


chdir($pwd); # back to the top menu
rmtree($extractDir);

exit 0;


sub recordWork { # should also pass the output file name
    $rel1 = $_[0]; # first release
    $rel2 = $_[1]; # second release

    $rootDir = "$website"; 
    chop $rootDir; # don't need the final "/"
    $workReportFile = "workReport.html";
    open WORKFILE, ">$rootDir/$workReportFile";
    $workReportContent = "";

    @files = `ls *.*`;
    @makefiles = `ls Make*`;
    @files = (@files, @makefiles);
    # print "rel1 is $rel1, rel2 is $rel2\n";
    FILE_LOOP: foreach $file (@files){
	chop $file;
	my @logs = `cvs log $file`;
	# first look for the revisions associated to the first and second releases
	foreach $log (@logs){
	    
	    my $pattern1 = "^[\\s\\t]*$rel1\[\\s\\t]*:[\\s\\t]*([\\d\\.]+)[\\s\\t]*\$";
	    # print "pattern is $pattern\n";
	    if ($log =~/$pattern1/){
		$rev1 = $1;
		# print "$file: $rel1 -> revision 1 is $rev1\n";
	    }
	    my $pattern2 = "^[\\s\\t]*$rel2\[\\s\\t]*:[\\s\\t]*([\\d\\.]+)[\\s\\t]*\$";
	    if ($log =~ /$pattern2/){
		$rev2 = $1;
		# print "$file: $rel2 -> revision 2 is $rev2\n";
	    }
	}
	
	if ($rev1 eq $rev2){
	    # no work went into latest release, may skip
	    next FILE_LOOP;
	}

	# now look for the authors having modified the code between release 1 and 2
	# (including the latter).
	# to this end, check all revisions located between $rev1 and $rev2 for given file
	
	# re-scan log for this file in order to find-out revision work
	# in a CVS log info looks like the following:
	# revision: 1.2.3
	# date: ... author: ...
	my $parserState = "skipHeader" ; # some state-variable
	my $nextParserState = ""; # default		
	my @logsOfInterest = `cvs log -r$rev1:$rev2 $file`;

#	print "cvs log -r$rev1:$rev2 $file\n";

	foreach $log (@logsOfInterest){
  
#	    print "Current Parser State = $parserState\n";
    
	    if ($parserState eq "skipHeader"){
		if ($log =~ /^description:[\s\t]*/){
		    $nextParserState = "skipLine";
		} else {
		    $nextParserState = "skipHeader";
		}
	    }

	    if ($parserState eq "skipLine"){
		if ($log =~ /^\-\-\-(\-)+[\s\t]*/){
		    $nextParserState = "readRev";
		} else {
		    if ($log =~ /^\=\=\=(\=)+[\s\t]*/){
			$nextParserState = "EOF";
		    } else {
			print "line '-----' expected, but not found!\n";
			return; # leave function
			# should clean-up the HTML file containing the work-report first
		    }
		}
	    }
	    
	    
	    if ($parserState eq "readRevisionInfo"){
		#print "Mode: retreive detailed work info\n";
		#print "Process line $log\n";
		if ($log =~ /author[\s\t]*:[\s\t]*(\w+);/){
		    $author = $1;
		    # print "found work-unit carried-out by $candidate\n";
		    # make sure author is not already in the list
		    my $alreadyRecorded = 0;
		    foreach $auth (@authors){
			if ($auth eq $author) {
			    $alreadyRecorded = 1;
			}
		    }
		    
		    $log =~ /;[\s\t]+lines:[\s\t]+\+(\d+)[\s\t]+\-(\d+)[\s\t]*;/;
		    # print "work is +$1 -$2 LOC\n";
		    if ($alreadyRecorded == 0 ) {
			@authors = ( @authors, $author );
			$workByAuthor{$author}="";
			$linesAdded{$author} = $1;
			$linesDeleted{$author} = $2;  
		    } else {
			$linesAdded{$author} += $1;
			$linesDeleted{$author} += $2;
			
		    }
		}
		$nextParserState = "readComment" ;
	    }



	    if ($parserState eq "skipRevisionInfo"){
		# in case the work has been registered for the previous release, we want to discard it here
		# (a parallel sequential machine dedicated to rejecting work from previous release)
		$nextParserState = "skipComment";
	    }
	    if ($parserState eq "skipComment"){ # also, just in case the work relates to the previous release
		# (a parallel sequential machine dedicated to rejecting work from previous release)
		if ($log =~ /\-\-\-\-(\-)+/){
		    # actually we find-out we should actually be in "skipLine" state
		    $nextParserState = "readRev";
		} else {
		    if ($log =~ /(========)+/){
			$nextParserState = "EOF";
		    } else {
			$nextParserState = "skipComment"; # until encounter a '---' or '===' marker
		    }
		}
	    }


	    
	    if ($parserState eq "readComment"){
		

		if ($log =~ /\-\-\-\-(\-)+/){
		    # actually we find-out we should actually be in "skipLine" state
		    # mark the end of the comment with a specific beacon "EndOfComment"
		    $workByAuthor{$author} .= "EndOfComment\n";
		    $nextParserState = "readRev";
		} else {
		    if ($log =~ /(========)+/){
			# same as above
			$workByAuthor{$author} .= "EndOfComment\n";
			$nextParserState = "EOF";
		    } else {
			# should concatenate the comment's string here...
			$workByAuthor{$author} .= "$log";
			$nextParserState = "readComment"; # until encounter a '---' or '===' marker
		    }
		}

#		$nextParserState = "skipLine"; # unless the comment spreads over successive lines!
		

	    }

	    if ($parserState eq "readRev"){
		if ($log =~ /^[\s\t]*revision[\s\t]+([\d\.]+)[\s\t]*$/){
		    # same number of dots?
		    my $rev = $1;
		    
		    if ($rev eq $rev1){
			# print "revision $rev of $file belongs to last release => skip!\n";
			# don't want to register work that went in to the previous release: skip
			$nextParserState = "skipRevisionInfo";
		    } else {
			
			# if we reach this point, the comparison was succesful
			# =>advance to the next log line contains the author
			
			$nextParserState = "readRevisionInfo";
			# print "$file: contribution found $rev1 < $rev <= $rev2\n";

		    }
		    
			
		} else {
		    print "Encountered error while parsing file\n";
		    exit;
		} # if ($log
	    } # if (parserState


	    $parserState = $nextParserState;
	    
	} # foreach $log  line
	

    } # for each file

    # sort list of authors in alphabetical order
    @authors = sort (@authors);

    foreach $author (@authors){
	$workReportContent .= "<tr class=\"work-author\"><td>$author</td></tr>\n";
	@workComments = split /EndOfComment\n/, $workByAuthor{$author}; # "EndOfComment" is our specific beacon

	@cleanedWorkComments =();
	# remove multiple entries, e.g. occuring when several files are commited at the same time
	SCAN_COMMENTS: foreach $comment (@workComments){
	    foreach $registeredComment (@cleanedWorkComments){
		if ($comment eq $registeredComment){
		    next SCAN_COMMENTS;
		}
	    }
	    @cleanedWorkComments = ( @cleanedWorkComments, $comment);
	}

	
	# new HTML table line for each comment
	$oddOrEven = "even";
	foreach $comment (@cleanedWorkComments){

	    $workReportContent .= "<tr class=\"work-log-$oddOrEven\"><td>$comment</td></tr>\n";

	    if ($oddOrEven eq "even"){
		$oddOrEven = "odd";
	    } else {
		$oddOrEven = "even";
	    }

	}
    }

    my $endTime = localtime; # note that startTime defined outside this subroutine

    # create web page
    my $html = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">';
    $html .= "<html>\n";
    $html .= "<head>\n";
    $html .= "<title>Work log between releases $rel1 and $rel2 </title>\n";
    $html .= "<link rel=stylesheet href=\"./MadTestWebStyle.css\" type=\"text/css\">"; # CSS stylesheet at same level
    $html .= "</head>\n";
    $html .= "<!-- automatically generated by the MAD test script -->\n";
    $html .= "<body>\n";
    $html .= "<p>Work log between releases $rel1 and $rel2 </p>\n";   
    $html .= "<p>Log report started $startTime, ended $endTime</p>\n";
    $html .= "<table width=\"75%\" border=\"0\">\n";
    $html .= $workReportContent;
    $html .= "</table>\n";
    $html .= "</body>\n";
    $html .= "</html>\n";


    print "closing $workReportFile\n";

    print WORKFILE $html;
    close WORKFILE;

} # sub