diff options
Diffstat (limited to 'mgaadv')
-rwxr-xr-x | mgaadv | 21 |
1 files changed, 21 insertions, 0 deletions
@@ -56,6 +56,15 @@ $0 mksite Generates the advisories web site END }, + process => { + run => \&process, + descr => 'Process advisories', + usage => <<END, +$0 process + +Process advisories i.e. move the [S]RPMs, update website, send emails +END + }, new => { run => \&newadv, descr => 'Create a new advisory file', @@ -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 { |