Add a 'publishall' option to attempt to publish all pending advisories.

1 files changed, 14 insertions, 0 deletions

diff --git a/mgaadv b/mgaadv
index 0a4df25..1840c2d 100755
--- a/mgaadv
+++ b/mgaadv
@@ -93,6 +93,15 @@ $0 publish [bugnum]
 Assign a new ID to an advisory file.
 END
     },
+    'publish-all' => {
+        run => \&publishall,
+        descr => 'Publish all pending advisories',
+        usage => <<END
+$0 publish-all
+
+Assign a new ID to all pending, validated advisories (subject to cross checks).
+END
+    },
     show   => {
         run   => \&showadv,
         descr => 'Show an advisory',
@@ -189,6 +198,11 @@ sub publish {
     MGA::Advisories::assign_id($_[1]);
 }
 
+sub publishall {
+    usageexit('usage', $_[0]) unless @_ == 1;
+    MGA::Advisories::assign_ids();
+}
+
 sub listadv {
     shift;
     my %advdb;