Still cleanup the queues when fetching logs for a failure fail (Probably never actually happens)

1 files changed, 2 insertions, 7 deletions

diff --git a/ulri b/ulri
index fefb922..b24a7f8 100755
--- a/ulri
+++ b/ulri
@@ -464,21 +464,16 @@ foreach my $prefix (keys %pkg_tree) {
 		plog('ERROR', "copying from $host:$prefix_dir/ " .
 		     "to $fail_dir/ failed ($!)");
 		$compildone->{$prefix}{$media}{$arch} = 0;
-		# clean the log on the compilation machine
-		ssh($remote, "rm -rf $prefix_dir");
-		next bot;
 	    }
 	    
-	    # What to do with the previously build packages? Move them to
-	    # failure, rejected ?
-	    # 20061220 warly move them to failure for now
-	    
+	    # Move already built packages to failures if one arch failed
 	    foreach my $rpm (@{$ent->{rpms}}) {
 		my $file = "$done_dir/${prefix}_$rpm";
 		plog('DEBUG', "moving built rpm $file to $fail_dir/${prefix}_$rpm");
 		link $file, "$fail_dir/${prefix}_$rpm";
 		unlink $file;
 	    }
+
 	    # Should clean the queue 
 	    # Must remove the SRPM and the lock 
 	    foreach my $srpm (@{$ent->{srpms}}) {