From 472cd881bd9d799ef3680ed0c65a40ca2007ac2b Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Mon, 17 Jun 2013 20:48:45 +0000
Subject: Add support for filters on list command

Possible filters are :
 - advisory type
 - distribution release
 - package name
 - CVE
 - media
---
 lib/MGA/Advisories.pm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'lib/MGA/Advisories.pm')

diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm
index 0115438..9ebe35e 100644
--- a/lib/MGA/Advisories.pm
+++ b/lib/MGA/Advisories.pm
@@ -328,9 +328,18 @@ sub newadv {
 }
 
 sub listadv {
-    my ($advdb) = @_;
-    print map { "$_ . $advdb->{advisories}{$_}{subject}\n" } 
-        adv_sort($advdb, keys %{$advdb->{advisories}});
+    my ($advdb, @filter) = @_;
+    my @advlist = keys %{$advdb->{advisories}};
+    foreach my $f (@filter) {
+        my $l = $advdb->{by_type}{$f} || $advdb->{by_cve}{$f}
+                || $advdb->{by_rel}{$f} || $advdb->{by_media}{$f}
+                || $advdb->{by_src}{$f} || [];
+        my %z;
+        @z{@$l} = (1) x @$l;
+        @advlist = grep { $z{$_} } @advlist;
+    }
+    print map { "$_ . $advdb->{advisories}{$_}{subject}\n" }
+        adv_sort($advdb, @advlist);
 }
 
 sub showadv {
-- 
cgit v1.2.1