Correct handling of tag name and changeset author in sf-tag-hg-code
Addition of sf-push-hg-tags and associated template file, for pushing the tags created in sf-tag-hg-code back out to the MCL.
Minor whitespace rationalisation.
my @asYarpFiles = ();
open(FILE, $ARGV[0]);
while ( <FILE> )
{
if ( m/^[^,]*,[^,]*,([^,]*)/ )
{
my $sFile = $1;
chomp $sFile;
# print "$sFile\n";
push(@asYarpFiles, $sFile);
}
}
close(FILE);
my $nYarpFiles = scalar(@asYarpFiles);
#print "Found $nYarpFiles files to parse\n";
my $nTotalRecipeErrors = 0;
for my $nYarpFile (@asYarpFiles)
{
my $nRecipeErrors = 0;
# print "Parsing file $nYarpFile...\n";
open(FILE, $nYarpFile);
while ( <FILE> )
{
if ( m/^Raptor recipe failures:\s+(\d+)$/ )
{
# print "Raptor recipe failures: $1\n";
$nRecipeErrors = $1;
}
}
close(FILE);
# print "Recipe errors in $nYarpFile: $nRecipeErrors\n";
$nTotalRecipeErrors += $nRecipeErrors;
}
#print "Total recipe errors across all files: $nTotalRecipeErrors\n";
print "$nTotalRecipeErrors";