common/tools/analysis/yarp.pl
changeset 207 6d9dd19b6949
parent 205 863cc9c0bf03
child 284 e5f3b53baae0
equal deleted inserted replaced
168:bf91a7e3c25b 207:6d9dd19b6949
    66     my $recipe;
    66     my $recipe;
    67     my %attempts;
    67     my %attempts;
    68     my %licenceattempts;
    68     my %licenceattempts;
    69     my $counter = 0;
    69     my $counter = 0;
    70     my $licence = 0;
    70     my $licence = 0;
       
    71     my $failures = 0;
    71     while( my $line = <FILE>)
    72     while( my $line = <FILE>)
    72     {
    73     {
    73       ++$counter;
    74       ++$counter;
    74       if($line =~ m/^<recipe\s+(\S.+)>/)
    75       if($line =~ m/^<recipe\s+(\S.+)>/)
    75       {
    76       {
    82         if(defined $recipe)
    83         if(defined $recipe)
    83         {         
    84         {         
    84 #          if($recipe->{'exit'} !~ m/ok/)
    85 #          if($recipe->{'exit'} !~ m/ok/)
    85           if($recipe->{'exit'} =~ m/failed/)
    86           if($recipe->{'exit'} =~ m/failed/)
    86           {
    87           {
       
    88 	          ++$failures;
    87 #            if($recipe->{'target'} =~ m/\S:epoc32\//i) 
    89 #            if($recipe->{'target'} =~ m/\S:epoc32\//i) 
    88 #               && $recipe->{'target'} !~ m/\S:epoc32\/build/i)
    90 #               && $recipe->{'target'} !~ m/\S:epoc32\/build/i)
    89             {
    91             {
    90               DumpRecipe($recipe);
    92               DumpRecipe($recipe);
    91 
    93 
   129         }      
   131         }      
   130       }
   132       }
   131     }
   133     }
   132   close FILE;
   134   close FILE;
   133   print OUT "\n\nSummaries\n\n";
   135   print OUT "\n\nSummaries\n\n";
       
   136   
       
   137   print OUT "Raptor recipe failures: $failures\n";
       
   138   
   134   foreach my $attempt (sort keys %attempts)
   139   foreach my $attempt (sort keys %attempts)
   135   {
   140   {
   136     print OUT "Overall attempts: $attempt,".$attempts{$attempt}.",\n";
   141     print OUT "Overall attempts: $attempt,".$attempts{$attempt}.",\n";
   137   }
   142   }
   138   foreach my $attempt (sort keys %licenceattempts)
   143   foreach my $attempt (sort keys %licenceattempts)