From owner-freebsd-stable  Sat Jun 16  0:46:50 2001
Delivered-To: freebsd-stable@freebsd.org
Received: from topperwein.dyndns.org (acs-24-154-28-172.zoominternet.net [24.154.28.172])
	by hub.freebsd.org (Postfix) with ESMTP id 8945537B405
	for <stable@freebsd.org>; Sat, 16 Jun 2001 00:46:33 -0700 (PDT)
	(envelope-from behanna@zbzoom.net)
Received: from topperwein.dyndns.org (topperwein.dyndns.org [192.168.168.10])
	by topperwein.dyndns.org (8.11.4/8.11.4) with ESMTP id f5G7lT890446
	for <stable@freebsd.org>; Sat, 16 Jun 2001 03:47:29 -0400 (EDT)
	(envelope-from behanna@zbzoom.net)
Date: Sat, 16 Jun 2001 03:47:29 -0400 (EDT)
From: Chris BeHanna <behanna@zbzoom.net>
Reply-To: Chris BeHanna <behanna@zbzoom.net>
To: FreeBSD-Stable <stable@freebsd.org>
Subject: Re: Benchmarking CVSup
In-Reply-To: <20010616000523.A6642@anime.net>
Message-ID: <Pine.BSF.4.32.0106160346260.90437-100000@topperwein.dyndns.org>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: owner-freebsd-stable@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-stable.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo?subject=subscribe%20freebsd-stable>
List-Unsubscribe: <mailto:majordomo?subject=unsubscribe%20freebsd-stable>
X-Loop: FreeBSD.ORG

There's probably a better way to do this (e.g., sort the output in
increasing order of hopcount):

#!/usr/bin/perl

$verbose = "false";

if (scalar(@ARGV) > 0) {
    if ($ARGV[0] = "-v") {
        $verbose = "true";
    }
}

if ($verbose eq "false") {
    $devnull = "2>/dev/null";
}

for ($i=1; $i<=16; $i++) {
    $tracecmd = "traceroute -n cvsup$i.freebsd.org $devnull";
    print "$tracecmd\n";

    open(TRACEROUTE, "$tracecmd |") or die "$!\n";

    do {
        $prevline = $line;

        if ($verbose eq "true") {
            print $line;
        }
    }
    while ($line = <TRACEROUTE>);

    close(TRACEROUTE);

    chomp($prevline);

    @tmp = split(' ', $prevline);
    $hops = $tmp[0];

    $mirrors[$i] = $hops;
}

print "\n===== Summary =====\n\n";

for ($i=1; $i<=16; $i++) {
    print "cvsup$i.freebsd.org:  $mirrors[$i] hops\n";
}

-- 
Chris BeHanna
Software Engineer                   (Remove "bogus" before responding.)
behanna@bogus.zbzoom.net
I was raised by a pack of wild corn dogs.


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-stable" in the body of the message