iurt: record the list of generated packages

2 files changed, 10 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index aebf425..d7518b2 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- iurt: record the list of generated packages
+
 0.7.16
 - iurt: use --target noarch for noarch packages rather than the arch used to
   built them.
diff --git a/iurt b/iurt
index 4f2d7af..c4393c4 100755
--- a/iurt
+++ b/iurt
@@ -885,8 +885,16 @@ retry:
 		# If copy fails (like disk full), report a failure and delete partially copied files
 		plog('ERROR', "ERROR: could not copy rpm files from $chroot_tmp/home/$luser/rpmbuild/RPMS/ to $local_spool ($!)");
 		foreach my $package (@packages) {
+		    $package =~ s|.*/||;
 		    unlink "$local_spool/$package";
 		}
+	    } else {
+		my $packagesfile = "$local_spool/log/$srpm/packages.$run{my_arch}.$run{run}.log";
+		open my $f, ">$packagesfile";
+		foreach my $package (@packages) {
+		    $package =~ s|.*/||;
+		    print $f "$package\n";
+	        }
 	    }
 	}