scripts/metadata.pl: add support for ignoring source packages when generating metadata

Signed-off-by: Felix Fietkau <nbd@openwrt.org>
SVN-Revision: 48170

diff --git a/scripts/metadata.pl b/scripts/metadata.pl
index 54341c458fd78747eae0219a863c1b5cd1f358a2..48b1b7a96048d8e8729abc31aad8e0cdacc4f2da 100755 (executable)
--- a/scripts/metadata.pl
+++ b/scripts/metadata.pl
@@ -3,6 +3,7 @@ use FindBin;
 use lib "$FindBin::Bin";
 use strict;
 use metadata;
+use Getopt::Long;
 
 my %board;
 
@@ -871,6 +872,7 @@ sub gen_version_filtered_list() {
 }
 
 sub parse_command() {
+       GetOptions("ignore=s", \@ignore);
        my $cmd = shift @ARGV;
        for ($cmd) {
                /^target_config$/ and return gen_target_config();
@@ -895,6 +897,8 @@ Available Commands:
        $0 package_licensefull [file]           Package license information (full list)
        $0 version_filter [patchver] [list...]  Filter list of version tagged strings
 
+Options:
+       --ignore <name>                         Ignore the source package <name>
 EOF
 }
 

diff --git a/scripts/metadata.pm b/scripts/metadata.pm
index 09273df3ad543e2001c392d26144637f72a6fa8b..0ed3524e8175ecfc6f8e0a16cd13c4e57aaa3d04 100644 (file)
--- a/scripts/metadata.pm
+++ b/scripts/metadata.pm
@@ -2,7 +2,7 @@ package metadata;
 use base 'Exporter';
 use strict;
 use warnings;
-our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig %features %overrides clear_packages parse_package_metadata parse_target_metadata get_multiline);
+our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig %features %overrides clear_packages parse_package_metadata parse_target_metadata get_multiline @ignore);
 
 our %package;
 our %preconfig;
@@ -11,6 +11,7 @@ our %category;
 our %subdir;
 our %features;
 our %overrides;
+our @ignore;
 
 sub get_multiline {
        my $fh = shift;
@@ -130,6 +131,7 @@ sub parse_package_metadata($) {
        my $subdir;
        my $src;
        my $override;
+       my %ignore = map { $_ => 1 } @ignore;
 
        open FILE, "<$file" or do {
                warn "Cannot open '$file': $!\n";
@@ -152,6 +154,7 @@ sub parse_package_metadata($) {
                        $overrides{$src} = 1;
                };
                next unless $src;
+               next if $ignore{$src};
                /^Package:\s*(.+?)\s*$/ and do {
                        undef $feature;
                        $pkg = {};