ulri: Better maintain in progress builds

1 files changed, 8 insertions, 0 deletions

diff --git a/ulri b/ulri
index aa6bf1f..aea8f68 100755
--- a/ulri
+++ b/ulri
@@ -314,6 +314,7 @@ foreach my $prefix (keys %pkg_tree) {
 	    unlink $lock_file;
 
 	    $run{bot}{$host}{$bot} = 0;
+	    $ent->{media}{$media}{bot} = grep { $_->{pid} ne $pid || $_->{host} ne $host } @{$ent->{media}{$media}{bot}};
 
 	    if (!$status) {
 		# TODO: fetch/clean the logs
@@ -542,6 +543,13 @@ foreach my $prefix (sort keys %pkg_tree) {
 		    if ($pid) {
 			# Register that the package is building
 			$run{bot}{$host}{$bot} = $prefix;
+			push @{$pkg_tree{$prefix}{media}{$media}{bot}}, {
+			    bot => $bot,
+			    host => $host,
+			    date => $fulldate,
+			    pid => $pid,
+			    'arch' => $arch,
+			};
 			$pkg_tree{$prefix}{media}{$media}{arch}{$noarch ? 'noarch' : $arch} = 1;
 
 			my $lock_arch = $noarch ? "$arch-noarch" : $arch;