diff options
Diffstat (limited to 'scripts/download-using-manifests.pl.in')
| -rw-r--r-- | scripts/download-using-manifests.pl.in | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/scripts/download-using-manifests.pl.in b/scripts/download-using-manifests.pl.in index eee1bdec2dc0..afc0e5009a92 100644 --- a/scripts/download-using-manifests.pl.in +++ b/scripts/download-using-manifests.pl.in @@ -4,12 +4,17 @@ use strict; use readmanifest; my $manifestDir = "@localstatedir@/nix/manifests"; +my $logFile = "@localstatedir@/log/nix/downloads"; + +open LOGFILE, ">>$logFile" or die "cannot open log file $logFile"; # Check the arguments. die unless scalar @ARGV == 1; my $targetPath = $ARGV[0]; +print LOGFILE "$$ get $targetPath\n"; + # Load all manifests. my %narFiles; @@ -175,12 +180,15 @@ while (scalar @path > 0) { if ($edge->{type} eq "present") { print "using already present path `$v'\n"; + print LOGFILE "$$ present $v\n"; } elsif ($edge->{type} eq "patch") { my $patch = $edge->{info}; print "applying patch `$patch->{url}' to `$u' to create `$v'\n"; + print LOGFILE "$$ patch $patch->{url} $patch->{size} $patch->{baseHash} $u $v\n"; + # Download the patch. print " downloading patch...\n"; my $patchPath = downloadFile "$patch->{url}", "$patch->{hash}"; @@ -206,6 +214,8 @@ while (scalar @path > 0) { my $narFile = $edge->{info}; print "downloading `$narFile->{url}' into `$v'\n"; + print LOGFILE "$$ narfile $narFile->{url} $narFile->{size} $v\n"; + # Download the archive. print " downloading archive...\n"; my $narFilePath = downloadFile "$narFile->{url}", "$narFile->{hash}"; @@ -216,3 +226,7 @@ while (scalar @path > 0) { die "cannot unpack `$narFilePath' into `$targetPath'" if ($? != 0); } } + + +print LOGFILE "$$ success\n"; +close LOGFILE; |