42 my $characters = ''; |
42 my $characters = ''; |
43 |
43 |
44 my $CATEGORY_RAPTORWARNING = 'raptor_warning'; |
44 my $CATEGORY_RAPTORWARNING = 'raptor_warning'; |
45 my $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2 = 'missing_enable_abiv2_mode'; |
45 my $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2 = 'missing_enable_abiv2_mode'; |
46 my $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND = 'while_searching_for_deffile_file_not_found'; |
46 my $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND = 'while_searching_for_deffile_file_not_found'; |
|
47 my $CATEGORY_RAPTORWARNING_EXPORTUNFROZENPRESENT = 'exportunfrozen_present'; |
47 |
48 |
48 sub process |
49 sub process |
49 { |
50 { |
50 my ($text, $logfile, $component, $mmp, $phase, $recipe, $file) = @_; |
51 my ($text, $logfile, $component, $mmp, $phase, $recipe, $file) = @_; |
51 |
52 |
63 } |
64 } |
64 elsif ($text =~ m,While Searching for a SPECIFIED DEFFILE: file not found: .*,) |
65 elsif ($text =~ m,While Searching for a SPECIFIED DEFFILE: file not found: .*,) |
65 { |
66 { |
66 $severity = $RaptorCommon::SEVERITY_MINOR; |
67 $severity = $RaptorCommon::SEVERITY_MINOR; |
67 my $subcategory = $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND; |
68 my $subcategory = $CATEGORY_RAPTORWARNING_WHILESEARCHINGFORDEFFILEFILENOTFOUND; |
|
69 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file); |
|
70 } |
|
71 elsif ($text =~ m,EXPORTUNFROZEN present in .*,) |
|
72 { |
|
73 $severity = $RaptorCommon::SEVERITY_MAJOR; |
|
74 my $subcategory = $CATEGORY_RAPTORWARNING_EXPORTUNFROZENPRESENT; |
68 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file); |
75 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file); |
69 } |
76 } |
70 else # log everything by default |
77 else # log everything by default |
71 { |
78 { |
72 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file); |
79 RaptorCommon::dump_fault($category, $subcategory, $severity, $logfile, $component, $mmp, $phase, $recipe, $file); |