Parse log generated during proprocessing of zip config, so it gets included in BRAG analysis.
#!/usr/bin/perl
# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Adds info form a file to a CSV
use strict;
my $csvfile = shift @ARGV;
my $filelist = shift @ARGV;
my $zipfile = shift @ARGV;
if(! -e $csvfile)
{
die "cannot find $csvfile\n";
}
if(!-e $filelist)
{
die "Cannot find $filelist\n";
}
my %ziptimes;
if(defined $zipfile)
{
open(ZIP,"7za l $zipfile 2>&1|") or die "Error: Couldn't look in $zipfile\n";
#print "time,file\n";
while( my $line = <ZIP>)
{
if($line =~ m/^(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s\S{5}\s+(\d+)\s+\d+\s+(.+)$/) #ignoring packed size...
{
my $name = $3;
my $size = $2;
my $time = $1;
$name =~ s/\\/\//g;
$name = lc($name);
$ziptimes{$name} = $time;
#print "$time,$name\n";
}
}
close ZIP;
}
my %files;
open(FILES,"<$filelist") or die "Couldn't open $filelist\n";
while(my $line = <FILES>)
{
$line =~ s/\\/\//g;
if($line =~ m/^(.+)\s*:\s(.+\S)\s*$/)
{
my $group = $1;
my $file = $2;
$file = lc($file);
if($files{$file})
{
$files{$file} = $files{$file}." ".$group; #Stop polluting next column
print "Multi:$file".$files{$file}."\n";
}
else
{
$files{$file} = ",".$group;
}
}
}
close FILE;
open(CSV,"<$csvfile") or die "Couldn't open $csvfile\n";
my $resultsfile = $csvfile."_results.csv";
open(RESULTS,">$resultsfile") or die "Couldn't open write to $resultsfile\n";
my $header = <CSV>;
$header =~ s/\n//;
print RESULTS $header.",status,time\n";
my @fields = split(',',$header);
my $targetindex = 0;
my $counter = 0;
my $bldinfindex = 0;
my %failed;
my %bldinffiles;
foreach my $column (@fields)
{
if($column =~ m/target/)
{
$targetindex = $counter;
}
elsif($column =~ m/bldinf/)
{
$bldinfindex = $counter;
}
++$counter;
}
# print "\ntarget:$targetindex\tbuildinf:$bldinfindex\n";
while(my $line = <CSV>)
{
$line =~ s/\n//;
@fields = split(',',$line);
my $target = $fields[$targetindex];
$target = lc($target);
my $bldinf = $fields[$bldinfindex];
if(!defined $bldinffiles{$bldinf})
{
$bldinffiles{$bldinf} = 1;
}
my $found = 0;
if(defined $files{$target})
{
$found = 1;
$line = $line.$files{$target};
if($files{$target} =~ m/fail/i)
{
if(!defined $failed{$bldinf})
{
$failed{$bldinf} = 1;
}
}
}
if(defined $ziptimes{$target})
{
if($found)
{
$line = $line.",".$ziptimes{$target};
}
else
{
$line = $line.",,".$ziptimes{$target};
}
}
print RESULTS $line."\n";
}
close RESULTS;
close CSV;
foreach my $bldinf (sort(keys %bldinffiles))
{
if(!defined $failed{$bldinf})
{
print "OK:\t$bldinf\n";
}
}
foreach my $bldinf (sort(keys %failed))
{
print "Failed:\t$bldinf\n";
}