From 3a8b9560ccd568a1b1e97990a0b3da3f58b5d244 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Fri, 1 Nov 2019 21:20:12 +0000 Subject: emi: store uploaded architectures in .upload This allows to know which non mandatory architectures are done and will allow to surface it on the web UI. --- lib/Iurt/Emi.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib/Iurt/Emi.pm') diff --git a/lib/Iurt/Emi.pm b/lib/Iurt/Emi.pm index 851307c..6a8ea8e 100644 --- a/lib/Iurt/Emi.pm +++ b/lib/Iurt/Emi.pm @@ -7,6 +7,7 @@ use Iurt::Mail qw(sendmail); use Iurt::Queue qw(check_if_all_archs_processed); use Iurt::Util qw(plog); use MDK::Common::Func qw(find); +use MDK::Common::File qw(append_to_file); use MDK::Common::DataStructure qw(difference2); use strict; @@ -159,6 +160,14 @@ sub upload_prefix_in_media { plog('DEBUG', "running $command"); if (!system($command)) { plog('INFO', "upload succeeded"); + my %arches; + foreach my $pkg (@packages) { + my ($arch) = $pkg =~ /\.([^.]*)\.rpm$/; + $arches{$arch} = 1 unless $arch eq 'src'; + } + # Only kee noarch if it's the only architecture + delete $arches{'noarch'} if 1 < keys %arches; + append_to_file("$done/$path/$prefix.upload", map {"$_\n"} keys %arches); } else { # should send a mail or something plog('ERROR', "upload failed ($!), rejecting files in $reject$path/"); -- cgit v1.2.1