Fetch and clean log files in case of success (Bug #668)

1 files changed, 5 insertions, 11 deletions

diff --git a/ulri b/ulri
index ec7f816..367394a 100755
--- a/ulri
+++ b/ulri
@@ -389,17 +389,11 @@ foreach my $prefix (keys %pkg_tree) {
 		    }
 		    next if $error;
 		    
-		    # Do nothing if the scp failed, wait for the other run
-		    # (it may be a disk full problem)
-		    # next if $error;
-		    #if ($success) {
-		    # The SRPM should be recreated thus no need to copy it
-		    # foreach my $srpm (@{$ent->{srpms}}) {
-		    #     plog("linking $todo_dir/${prefix}_$srpm to $done_dir/${prefix}_$srpm");
-		    #     link "$todo_dir/${prefix}_$srpm", "$done_dir/${prefix}_$srpm"
-		    # 	}
-		    # FIXME Have to remove remote remaining packages and directory
-		    #}
+		    if ($success) {
+			# Fetch build log and clean remote machine
+			sget($remote, "$prefix_dir/log", "$done_dir/$prefix");
+			ssh($remote, "rm -rf $prefix_dir");
+		    }
 		}
 	    } # if ($status)