mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Some logging for evaluation.

Browse source
This commit is contained in:
Eelco Dolstra 2004-12-30 16:34:54 +00:00
parent 6270aa727d
commit 581bcb986f
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scripts/download-using-manifests.pl.in
View file

@ -4,12 +4,17 @@ use strict;
use readmanifest; use readmanifest;
my $manifestDir = "@localstatedir@/nix/manifests"; my $manifestDir = "@localstatedir@/nix/manifests";
my $logFile = "@localstatedir@/log/nix/downloads";
open LOGFILE, ">>$logFile" or die "cannot open log file $logFile";
# Check the arguments. # Check the arguments.
die unless scalar @ARGV == 1; die unless scalar @ARGV == 1;
my $targetPath = $ARGV[0]; my $targetPath = $ARGV[0];
print LOGFILE "$$ get $targetPath\n";
# Load all manifests. # Load all manifests.
my %narFiles; my %narFiles;
@ -175,12 +180,15 @@ while (scalar @path > 0) {
if ($edge->{type} eq "present") { if ($edge->{type} eq "present") {
print "using already present path `$v'\n"; print "using already present path `$v'\n";
print LOGFILE "$$ present $v\n";
} }
elsif ($edge->{type} eq "patch") { elsif ($edge->{type} eq "patch") {
my $patch = $edge->{info}; my $patch = $edge->{info};
print "applying patch `$patch->{url}' to `$u' to create `$v'\n"; 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. # Download the patch.
print " downloading patch...\n"; print " downloading patch...\n";
my $patchPath = downloadFile "$patch->{url}", "$patch->{hash}"; my $patchPath = downloadFile "$patch->{url}", "$patch->{hash}";
@ -206,6 +214,8 @@ while (scalar @path > 0) {
my $narFile = $edge->{info}; my $narFile = $edge->{info};
print "downloading `$narFile->{url}' into `$v'\n"; print "downloading `$narFile->{url}' into `$v'\n";
print LOGFILE "$$ narfile $narFile->{url} $narFile->{size} $v\n";
# Download the archive. # Download the archive.
print " downloading archive...\n"; print " downloading archive...\n";
my $narFilePath = downloadFile "$narFile->{url}", "$narFile->{hash}"; my $narFilePath = downloadFile "$narFile->{url}", "$narFile->{hash}";
@ -216,3 +226,7 @@ while (scalar @path > 0) {
die "cannot unpack `$narFilePath' into `$targetPath'" if ($? != 0); die "cannot unpack `$narFilePath' into `$targetPath'" if ($? != 0);
} }
} }
print LOGFILE "$$ success\n";
close LOGFILE;

2
scripts/generate-patches.pl
View file

@ -220,6 +220,8 @@ foreach my $p (keys %dstOutPaths) {
next; next;
} }
print " size $narDiffSize; full size $dstNarBz2Size\n";
system("cp '$tmpdir/DIFF' '$patchesDir/$finalName.tmp'") == 0 system("cp '$tmpdir/DIFF' '$patchesDir/$finalName.tmp'") == 0
or die "cannot copy diff"; or die "cannot copy diff";