From 7aef72e3e486c3146c7b1e315c82b2a01de81552 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Thu, 13 Jun 2013 12:44:57 +0000
Subject: Add list command to list advisories

---
 mgaadv | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'mgaadv')

diff --git a/mgaadv b/mgaadv
index 0351703..4ea8b81 100755
--- a/mgaadv
+++ b/mgaadv
@@ -5,6 +5,15 @@ use MGA::Advisories;
 use Template;
 
 my %actions = (
+    list   => {
+        run   => \&listadv,
+        descr => 'List advisories',
+        usage => <<END,
+$0 list
+
+Print the list of published advisories
+END
+    },
     mksite => {
         run   => \&mksite,
         descr => 'Generates the advisories web site',
@@ -71,6 +80,13 @@ sub newadv {
     }
 }
 
+sub listadv {
+    usageexit('usage', $_[0]) unless @_ == 1;
+    my %advdb;
+    $advdb{advisories} = MGA::Advisories::get_advisories();
+    MGA::Advisories::listadv(\%advdb);
+}
+
 if (@ARGV == 0 || !$actions{$ARGV[0]}) {
     usageexit();
 }
-- 
cgit v1.2.1