40 |
40 |
41 my $characters = ''; |
41 my $characters = ''; |
42 |
42 |
43 my $CATEGORY_RAPTORWARNING = 'raptor_warning'; |
43 my $CATEGORY_RAPTORWARNING = 'raptor_warning'; |
44 my $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2 = 'missing_enable_abiv2_mode'; |
44 my $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2 = 'missing_enable_abiv2_mode'; |
|
45 my $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND = 'while_searching_for_deffile_file_not_found'; |
45 |
46 |
46 sub process |
47 sub process |
47 { |
48 { |
48 my ($text, $logfile, $component, $mmp, $phase, $recipe, $file, $line) = @_; |
49 my ($text, $logfile, $component, $mmp, $phase, $recipe, $file, $line) = @_; |
49 |
50 |
53 |
54 |
54 if ($text =~ m,missing flag ENABLE_ABIV2_MODE,) |
55 if ($text =~ m,missing flag ENABLE_ABIV2_MODE,) |
55 { |
56 { |
56 $severity = $RaptorCommon::SEVERITY_MINOR; |
57 $severity = $RaptorCommon::SEVERITY_MINOR; |
57 my $subcategory = $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2; |
58 my $subcategory = $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2; |
|
59 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file, $line); |
|
60 } |
|
61 elsif ($text =~ m,While Searching for a SPECIFIED DEFFILE: file not found: .*,) |
|
62 { |
|
63 $severity = $RaptorCommon::SEVERITY_MINOR; |
|
64 my $subcategory = $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND; |
58 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file, $line); |
65 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file, $line); |
59 } |
66 } |
60 else # log everything by default |
67 else # log everything by default |
61 { |
68 { |
62 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file, $line); |
69 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file, $line); |