From d715427162dea4dff161104350ad4e568a51a395 Mon Sep 17 00:00:00 2001 From: Colin Guthrie Date: Sun, 3 Aug 2014 19:12:40 +0100 Subject: Add a new command to move the packages. This shells out to a separate command that actually implements this. Such a tool exists already in mgatools called 'mga-move-pkg' --- mgaadv | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'mgaadv') diff --git a/mgaadv b/mgaadv index e2ed080..229d133 100755 --- a/mgaadv +++ b/mgaadv @@ -54,6 +54,15 @@ END $0 mksite Generates the advisories web site +END + }, + process => { + run => \&process, + descr => 'Process advisories', + usage => < { @@ -139,6 +148,18 @@ sub mksite { MGA::Advisories::send_report(\%advdb); } +sub process { + my %advdb; + $advdb{advisories} = MGA::Advisories::get_advisories(); + MGA::Advisories::move_packages(\%advdb); + MGA::Advisories::publish_advisories(\%advdb); + MGA::Advisories::sort_advisories(\%advdb); + MGA::Advisories::output_pages(\%advdb); + MGA::Advisories::dumpdb(\%advdb); + MGA::Advisories::send_adv_mail(\%advdb); + MGA::Advisories::send_report(\%advdb); +} + sub editor { $ENV{EDITOR} || $ENV{VISUAL} || '/usr/bin/editor' } sub newadv { -- cgit v1.2.1