TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* More instrumentation (statistics go to /nix/var/log/nix/downloads).

This commit is contained in:
Eelco Dolstra 2004-12-30 17:19:47 +00:00
parent 3745cecc6a
commit 35b76a81c4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/download-using-manifests.pl.in
View File

@ -13,7 +13,9 @@ open LOGFILE, ">>$logFile" or die "cannot open log file $logFile";
die unless scalar @ARGV == 1;
my $targetPath = $ARGV[0];
print LOGFILE "$$ get $targetPath\n";
my $date = `date`;
chomp $date;
print LOGFILE "$$ get $targetPath $date\n";
# Load all manifests.
@ -110,6 +112,9 @@ while ($queueFront < scalar @queue) {
foreach my $narFile (@{$narFileList}) {
print " NAR from $narFile->{url}\n";
addEdge "start", $u, $narFile->{size}, "narfile", $narFile;
if ($u eq $targetPath) {
print LOGFILE "$$ full-download-would-be $narFile->{size}\n";
}
}
}