summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon McVittie <simon.mcvittie@collabora.co.uk>2014-02-10 15:03:37 (GMT)
committerSimon McVittie <simon.mcvittie@collabora.co.uk>2014-02-20 18:21:56 (GMT)
commit4e5b72258d098901ee6f88ed3842a8a637349381 (patch)
tree46cc46a1aeff20d9f65d068c4787d564ba7b0896
parent28702ef890a19d50c70687903d9f6bdac6ee545c (diff)
downloadopen-build-service-238-reprepro-logging.tar.gz
open-build-service-238-reprepro-logging.tar.xz
bs_publish: improve logging for reprepro invocations238-reprepro-logging
-rwxr-xr-xsrc/backend/bs_publish14
1 files changed, 12 insertions, 2 deletions
diff --git a/src/backend/bs_publish b/src/backend/bs_publish
index 32df95e..64331b8 100755
--- a/src/backend/bs_publish
+++ b/src/backend/bs_publish
@@ -532,6 +532,8 @@ sub updaterepo_reprepro {
# (.deb, .udeb, .ddeb)
my $in_files = 0;
while (my $line = <$fh>) {
+ print " $line";
+
if ($in_files) {
if ($line =~ /^\s/) {
if ($line =~ /\.((?:|u|d)deb)$/) {
@@ -552,11 +554,12 @@ sub updaterepo_reprepro {
# no binary packages at all? assume we must have mis-parsed it,
# and run reprepro for the .deb files so we get a better
# error report
+ print " warning: no .deb/.udeb/.ddeb found in .changes, assuming .deb only\n";
%types = (deb => 1);
}
foreach my $type (keys %types) {
- qsystem ('reprepro', '-b', $repo,
+ my @args = ('reprepro', '-b', $repo,
'--ignore=ignore',
'--ignore=wrongdistribution',
'--ignore=updatedarchall',
@@ -566,14 +569,21 @@ sub updaterepo_reprepro {
'-C', $component,
'include', $codename,
"$extrep/$f");
+
+ print(" importing .$type binaries: ", join(' ', @args), "\n");
+ qsystem(@args);
}
} elsif ($f =~ /\.dsc/) {
print " Updated dsc file => $f\n" ;
- qsystem ('reprepro', '-b', $repo,
+
+ my @args = ('reprepro', '-b', $repo,
'-C', $component,
'-P', 'standard',
'-S', 'main',
'includedsc', $codename, "$extrep/$f");
+
+ print(" importing sources: ", join(' ', @args), "\n");
+ qsystem(@args);
}
}
}