From d715427162dea4dff161104350ad4e568a51a395 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
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'
---
 lib/MGA/Advisories.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'lib')

diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm
index ac0aa9e..d408dc3 100644
--- a/lib/MGA/Advisories.pm
+++ b/lib/MGA/Advisories.pm
@@ -143,6 +143,36 @@ sub download_advisories {
     close $fh;
 }
 
+sub move_packages {
+    my ($advdb) = @_;
+    return unless $config->{mode} eq 'site';
+    return unless $config->{move_pkg_cmd};
+    my @cmd = (
+        $config->{move_pkg_cmd},
+        '--sync',
+        '--no-confirm'
+    );
+    foreach my $adv (keys %{$advdb->{advisories}}) {
+        next if $advdb->{advisories}{$adv}{status}{moved};
+        foreach my $rel (keys %{$advdb->{advisories}{$adv}{src}}) {
+            foreach my $media (keys %{$advdb->{advisories}{$adv}{src}{$rel}}) {
+                foreach my $srpm (@{$advdb->{advisories}{$adv}{src}{$rel}{$media}}) {
+                    push(@cmd, "$rel/$media/$srpm.src.rpm");
+                }
+            }
+        }
+    }
+
+    return if scalar(@cmd) < 4;
+    report_exit("Could not move packages") if (0 != system(@cmd));
+
+    foreach my $adv (keys %{$advdb->{advisories}}) {
+        next if $advdb->{advisories}{$adv}{status}{moved};
+        $advdb->{advisories}{$adv}{status}{moved} = time();
+        save_status($advdb, $adv);
+    }
+}
+
 sub publish_advisories {
     my ($advdb) = @_;
     foreach my $adv (sort keys %{$advdb->{advisories}}) {
-- 
cgit v1.2.1