about summary refs log tree commit diff
path: root/scripts
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2004-12-30T17·19+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2004-12-30T17·19+0000
commit35b76a81c42df1f07f4de711eb1bcf681eac3c3a (patch)
tree18ac46c45f3bc217bb76ac0a410165969de65631 /scripts
parent3745cecc6a569f09a7fdb95363b2c7eeaf59b687 (diff)
* More instrumentation (statistics go to /nix/var/log/nix/downloads).
Diffstat (limited to 'scripts')
-rw-r--r--scripts/download-using-manifests.pl.in7
1 files changed, 6 insertions, 1 deletions
diff --git a/scripts/download-using-manifests.pl.in b/scripts/download-using-manifests.pl.in
index 01c8bf4a320a..fc0d3e87ad7b 100644
--- a/scripts/download-using-manifests.pl.in
+++ b/scripts/download-using-manifests.pl.in
@@ -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";
+            }
         }
 
     }