From 5ffd3bc2ee3279cc928be7544b49dfba91957eb4 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Thu, 10 Jan 2013 22:54:57 +0000
Subject: src-rpm-list: add skip list file as 2nd arg

---
 src-rpm-list | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src-rpm-list b/src-rpm-list
index aa87a82..e5a8bf9 100755
--- a/src-rpm-list
+++ b/src-rpm-list
@@ -2,11 +2,15 @@
 
 # This script takes a root SRPMS directory as argument, and print the
 # list of package names on stdout
+# As second argument, it can optionally take a file containing a list
+# of packages (as regexp) to skip
 
 use strict;
 use URPM;
+use MDK::Common;
 
 my $srpmsdir = $ARGV[0] or exit 1;
+my $skipfile = $ARGV[1];
 
 my $urpm = URPM->new;
 
@@ -17,4 +21,16 @@ foreach (glob("$srpmsdir/*/*/media_info/synthesis.hdlist.cz")) {
 my %res;
 $urpm->traverse(sub { $res{$_[0]->name} = 1 });
 
-print join("\n", sort(keys %res), '')
+my @skip = $skipfile ? chomp_(cat_($skipfile)) : ();
+my @pkgs = grep {
+              my $res = 1;
+              foreach my $skipre (@skip) {
+                  if ($_ =~ m/^$skipre$/) {
+		      $res = 0;
+		      last;
+                  }
+              }
+	      $res;
+           } (keys %res);
+
+print join("\n", sort @pkgs, '')
-- 
cgit v1.2.1