From afee969c4aa80f36cda9a3967e9c4c964867658e Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Mon, 17 Jun 2013 14:31:51 +0000
Subject: List unpublished advisories when mode is set to 'qa'

---
 lib/MGA/Advisories.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm
index d321017..a69cf16 100644
--- a/lib/MGA/Advisories.pm
+++ b/lib/MGA/Advisories.pm
@@ -58,7 +58,10 @@ sub get_advisories_from_dir {
     my %advisories;
     foreach my $advfile (glob "$config->{advisories_dir}/*.adv") {
         my $adv = LoadFile($advfile);
-        next unless $adv->{ID};
+        if (!$adv->{ID}) {
+            next unless $config->{mode} eq 'qa';
+            $adv->{ID} = next_id('TODO', keys %advisories);
+        }
         report_exit("Duplicate advisory $adv->{ID}") if $advisories{$adv->{ID}};
         report_exit("Unknown type $adv->{type}") unless
                 $config->{advisory_types}{$adv->{type}};
-- 
cgit v1.2.1