emi: Detect uploaded packages (.upload files)

1 files changed, 7 insertions, 0 deletions

diff --git a/emi b/emi
index d26e758..88d2b87 100755
--- a/emi
+++ b/emi
@@ -121,6 +121,7 @@ my $reject = "$config->{queue}/rejected";
 my %pkg_tree;
 my %excluded;
 my %archdone;
+my %uploaded;
 
 
 #
@@ -144,6 +145,12 @@ sub done_func {
 		plog('DEBUG', "found .excluded ($prefix) for $arch");
 		$excluded{$prefix}{$section}{$arch} = 1;
 	    }
+	} elsif ($suffix =~ /^\.(\w+)$/) {
+	    my ($action) = $1;
+	    if ($action eq 'upload') {
+		plog('DEBUG', "found already uploaded ($prefix)");
+		$uploaded{$prefix}{$section} = 1;
+	    }
 	}
     }
 }