common/tools/raptor/parse.pl
changeset 383 52675b624b66
parent 242 51e429810aba
child 720 44dd64cfb32b
equal deleted inserted replaced
373:cc469b3fe547 383:52675b624b66
    11 #
    11 #
    12 # Description:
    12 # Description:
    13 # Run the raptor parsers
    13 # Run the raptor parsers
    14 
    14 
    15 use strict;
    15 use strict;
       
    16 use FindBin;
       
    17 use lib $FindBin::Bin;
    16 use RaptorReleaseable;
    18 use RaptorReleaseable;
    17 use RaptorError;
    19 use RaptorError;
    18 use RaptorWarning;
    20 use RaptorWarning;
    19 use RaptorInfo;
    21 use RaptorInfo;
    20 use RaptorUnreciped;
    22 use RaptorUnreciped;
    30 my $warning_module = 0;
    32 my $warning_module = 0;
    31 my $info_module = 0;
    33 my $info_module = 0;
    32 my $unreciped_module = 0;
    34 my $unreciped_module = 0;
    33 my $recipe_module = 0;
    35 my $recipe_module = 0;
    34 our $basedir = '';
    36 our $basedir = '';
       
    37 our $raptor_config = '';
    35 my $append = 0;
    38 my $append = 0;
    36 my $help = 0;
    39 my $help = 0;
    37 GetOptions((
    40 GetOptions((
    38 	'log:s' => \@logfiles,
    41 	'log:s' => \@logfiles,
    39 	'releaseable!' => \$releaseable_module,
    42 	'releaseable!' => \$releaseable_module,
    40 	'error!' => \$error_module,
    43 	'error!' => \$error_module,
    41 	'warning!' => \$warning_module,
    44 	'warning!' => \$warning_module,
    42 	'info!' => \$info_module,
    45 	'info!' => \$info_module,
    43 	'unreciped!' => \$unreciped_module,
    46 	'unreciped!' => \$unreciped_module,
    44 	'recipe!' => \$recipe_module,
    47 	'recipe!' => \$recipe_module,
    45 	'basedir:s' => \$basedir,
    48 	'basedir=s' => \$basedir,
       
    49 	'config=s' => \$raptor_config,
    46 	'append!' => \$append,
    50 	'append!' => \$append,
    47 	'help!' => \$help
    51 	'help!' => \$help
    48 ));
    52 ));
    49 
    53 
    50 $help = 1 if (!@logfiles);
    54 $help = 1 if (!@logfiles);