SourceFormat Enforcement

[thirdparty/squid.git] / scripts / cache-compare.pl

diff --git a/scripts/cache-compare.pl b/scripts/cache-compare.pl
index cbe54f2e27a91141e178ef48baf95539671defde..c3d1c1c08a50dffe6f2a64c8589996faa638b17b 100755 (executable)
--- a/scripts/cache-compare.pl
+++ b/scripts/cache-compare.pl
@@ -1,4 +1,11 @@
 #!/usr/local/bin/perl
+#
+## Copyright (C) 1996-2017 The Squid Software Foundation and contributors
+##
+## Squid software is distributed under GPLv2+ license and includes
+## contributions from numerous individuals and organizations.
+## Please see the COPYING and CONTRIBUTORS files for details.
+##
 
 # cache-compare.pl
 #
@@ -8,21 +15,21 @@
 # from a number of different caches.
 #
 # stdin is a list of URLs.  Set the @getfrom array to a list of caches
-# to fetch each URL from.  Include 'SOURCE' is @getfrom to fetch from
+# to fetch each URL from.  Include 'SOURCE' in @getfrom to fetch from
 # the source host also.  For each URL, print the byte count, elapsed
 # time and average data rate.  At the end print out some averages.
 #
 # NOTE: uses the Perl function syscall() to implement gettimeofday(2).
-# Assumes # that gettimeofday is syscall #116 on the system
+# Assumes that gettimeofday is syscall #116 on the system
 # (see /usr/include/sys/syscall.h).
 #
 # BUGS:
 # Should probably cache the gethostbyname() calls.
 
-@getfrom = ('SOURCE', 'localhost:3128');
+@getfrom = ('SOURCE', 'localhost:3128', 'bo:3128');
 
 require 'sys/socket.ph';
-$gettimeofday = 116;           # cheating, should use require syscall.ph
+$gettimeofday = 1128;          # cheating, should use require syscall.ph
 
 while (<>) {
        chop ($url = $_);