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     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           {

    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";

   134   foreach my $attempt (sort keys %attempts)

   138   foreach my $attempt (sort keys %attempts)

   135   {

   139   {

   136     print OUT "Overall attempts: $attempt,".$attempts{$attempt}.",\n";

   140     print OUT "Overall attempts: $attempt,".$attempts{$attempt}.",\n";

   137   }

   141   }

   138   foreach my $attempt (sort keys %licenceattempts)

   142   foreach my $attempt (sort keys %licenceattempts)