emi: Fix bug introduce in previous commit

It moved the creation of .upload too early, potentially before
metadata was updated when several packages were uploaded at once.

1 files changed, 7 insertions, 1 deletions

diff --git a/emi b/emi
index 72c3f7d..3726495 100755
--- a/emi
+++ b/emi
@@ -32,7 +32,7 @@ use Iurt::Config qw(config_usage config_init);
 use Iurt::Process qw(check_pid);
 use Iurt::Queue qw(get_upload_tree_state);
 use Iurt::Util qw(plog_init plog);
-use Iurt::Emi qw(find_prefixes_ready_to_upload upload_prefix_in_media);
+use Iurt::Emi qw(find_prefixes_ready_to_upload record_uploaded_packages upload_prefix_in_media);
 use MDK::Common qw(cat_ touch);
 
 my %run;
@@ -135,6 +135,12 @@ foreach my $target (keys %targets) {
 	foreach my $prefix (keys %is_finisher) {
 	    upload_prefix_in_media($config, \%pkg_tree, $prefix, $media, 1);
 	}
+
+	# Now that the finishers are done, metadata was updated so the packages are available
+	foreach my $prefix (@{$targets{$target}{$media}{to_upload}}) {
+	    my $path = $pkg_tree{$prefix}{media}{$media}{path};
+	    record_uploaded_packages($config, \%pkg_tree, $prefix, $media) unless -f "$reject/$path/$prefix.youri";;
+	}
     }
 }