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

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

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