diff options
author | Nicolas Vigier <boklm@mageia.org> | 2013-06-13 12:44:57 +0000 |
---|---|---|
committer | Nicolas Vigier <boklm@mageia.org> | 2013-06-13 12:44:57 +0000 |
commit | 7aef72e3e486c3146c7b1e315c82b2a01de81552 (patch) | |
tree | 7bac4327486985e0fba16bd93b84c5d7b826c925 /lib | |
parent | dbb60f26899720e6931840d8a7194ca8669ad154 (diff) | |
download | mgaadvisories-7aef72e3e486c3146c7b1e315c82b2a01de81552.tar mgaadvisories-7aef72e3e486c3146c7b1e315c82b2a01de81552.tar.gz mgaadvisories-7aef72e3e486c3146c7b1e315c82b2a01de81552.tar.bz2 mgaadvisories-7aef72e3e486c3146c7b1e315c82b2a01de81552.tar.xz mgaadvisories-7aef72e3e486c3146c7b1e315c82b2a01de81552.zip |
Add list command to list advisories
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MGA/Advisories.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm index c5a31e1..f32625a 100644 --- a/lib/MGA/Advisories.pm +++ b/lib/MGA/Advisories.pm @@ -227,4 +227,10 @@ sub newadv { return $file; } +sub listadv { + my ($advdb) = @_; + print map { "$_: $advdb->{advisories}{$_}{subject}\n" } + sort keys %{$advdb->{advisories}}; +} + 1; |