uh_parser/uh.pl
changeset 228 ba90e30c0f3c
parent 225 fb5bc19e742d
child 249 f0ed429f31b7
equal deleted inserted replaced
227:2101b329ee80 228:ba90e30c0f3c
   167 		}
   167 		}
   168 		
   168 		
   169 		$failure->{subcategory} = 'uncategorized' if (!$failure->{subcategory});
   169 		$failure->{subcategory} = 'uncategorized' if (!$failure->{subcategory});
   170 		$failure->{severity} = 'unknown' if (!$failure->{severity});
   170 		$failure->{severity} = 'unknown' if (!$failure->{severity});
   171 		$failure->{mmp} = '-' if (!$failure->{mmp});
   171 		$failure->{mmp} = '-' if (!$failure->{mmp});
       
   172 		$failure->{phase} = '-' if (!$failure->{phase});
       
   173 		$failure->{recipe} = '-' if (!$failure->{recipe});
   172 		
   174 		
   173 		# populate severities dynamically.
   175 		# populate severities dynamically.
   174 		#$severities->{$failure->{severity}} = 1;
   176 		#$severities->{$failure->{severity}} = 1;
   175 		
   177 		
   176 		# put failure items into their category container
   178 		# put failure items into their category container
   177 		if ($failure->{category} =~ /^raptor_(error|warning|unreciped)$/i)
   179 		if ($failure->{category} =~ /^recipe_failure$/i || $failure->{category} =~ /^raptor_(error|warning|unreciped)$/i && $failure_package)
       
   180 		{
       
   181 			$recipe_failures_num_by_severity->{$failure_package} = {} if (!defined $recipe_failures_num_by_severity->{$failure_package});
       
   182 			my $package_failure = $recipe_failures_num_by_severity->{$failure_package};
       
   183 			
       
   184 			if (!defined $package_failure->{$failure->{severity}})
       
   185 			{
       
   186 				$package_failure->{$failure->{severity}} = 1;
       
   187 			}
       
   188 			else
       
   189 			{
       
   190 				$package_failure->{$failure->{severity}} ++;
       
   191 			}
       
   192 			
       
   193 			$recipe_failures_by_package_severity->{$failure_package} = {} if (!defined $recipe_failures_by_package_severity->{$failure_package});
       
   194 			$recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}} = [] if (!defined $recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}});
       
   195 			push(@{$recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}}}, $failure);
       
   196 		}
       
   197 		elsif ($failure->{category} =~ /^raptor_(error|warning|unreciped)$/i)
   178 		{
   198 		{
   179 			$general_failures_num_by_severity->{$failure->{category}} = {} if (!defined $general_failures_num_by_severity->{$failure->{category}});
   199 			$general_failures_num_by_severity->{$failure->{category}} = {} if (!defined $general_failures_num_by_severity->{$failure->{category}});
   180 			my $general_failure = $general_failures_num_by_severity->{$failure->{category}};
   200 			my $general_failure = $general_failures_num_by_severity->{$failure->{category}};
   181 			
   201 			
   182 			if (!defined $general_failure->{$failure->{severity}})
   202 			if (!defined $general_failure->{$failure->{severity}})
   189 			}
   209 			}
   190 			
   210 			
   191 			$general_failures_by_category_severity->{$failure->{category}} = {} if (!defined $general_failures_by_category_severity->{$failure->{category}});
   211 			$general_failures_by_category_severity->{$failure->{category}} = {} if (!defined $general_failures_by_category_severity->{$failure->{category}});
   192 			$general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}} = [] if (!defined $general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}});
   212 			$general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}} = [] if (!defined $general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}});
   193 			push(@{$general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}}}, $failure);
   213 			push(@{$general_failures_by_category_severity->{$failure->{category}}->{$failure->{severity}}}, $failure);
   194 		}
       
   195 		elsif ($failure->{category} =~ /^recipe_failure$/i)
       
   196 		{
       
   197 			$recipe_failures_num_by_severity->{$failure_package} = {} if (!defined $recipe_failures_num_by_severity->{$failure_package});
       
   198 			my $package_failure = $recipe_failures_num_by_severity->{$failure_package};
       
   199 			
       
   200 			if (!defined $package_failure->{$failure->{severity}})
       
   201 			{
       
   202 				$package_failure->{$failure->{severity}} = 1;
       
   203 			}
       
   204 			else
       
   205 			{
       
   206 				$package_failure->{$failure->{severity}} ++;
       
   207 			}
       
   208 			
       
   209 			$recipe_failures_by_package_severity->{$failure_package} = {} if (!defined $recipe_failures_by_package_severity->{$failure_package});
       
   210 			$recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}} = [] if (!defined $recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}});
       
   211 			push(@{$recipe_failures_by_package_severity->{$failure_package}->{$failure->{severity}}}, $failure);
       
   212 		}
   214 		}
   213 	}
   215 	}
   214 	else
   216 	else
   215 	{
   217 	{
   216 		print "WARNING: line does not match expected format at $csv_file line $csv_linenum. Skipping\n";
   218 		print "WARNING: line does not match expected format at $csv_file line $csv_linenum. Skipping\n";