From 1739a98da9f74d4180d876d520feef36ae7764b4 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Sat, 18 Jan 2014 09:44:01 -0800 Subject: Still cleanup the queues when fetching logs for a failure fail (Probably never actually happens) --- ulri | 9 ++------- 1 file 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}}) { -- cgit v1.2.1