From 35b76a81c42df1f07f4de711eb1bcf681eac3c3a Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Thu, 30 Dec 2004 17:19:47 +0000 Subject: [PATCH] * More instrumentation (statistics go to /nix/var/log/nix/downloads). --- scripts/download-using-manifests.pl.in | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/scripts/download-using-manifests.pl.in b/scripts/download-using-manifests.pl.in index 01c8bf4a3..fc0d3e87a 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"; + } } }