From: wessels <>
Date: Wed, 13 Nov 1996 05:38:30 +0000 (+0000)
Subject: support for net probe in miss replies
X-Git-Tag: SQUID_3_0_PRE1~5480
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1f67cd29f15a8c4df52c2f2701c949295fac3e46;p=thirdparty%2Fsquid.git

support for net probe in miss replies
---

diff --git a/scripts/udp-banger.pl b/scripts/udp-banger.pl
index bd6d69228a..a2405ee8b0 100755
--- a/scripts/udp-banger.pl
+++ b/scripts/udp-banger.pl
@@ -10,9 +10,12 @@
 # URLs to request.  Run N of these at the same time to simulate a heavy
 # neighbor cache load.
 
+require 'getopts.pl';
 
 $|=1;
 
+&Getopts('n');
+
 $host=(shift || 'localhost') ;
 $port=(shift || '3130') ;
 
@@ -59,17 +62,24 @@ $myip=(gethostbyname($me))[4];
 die "socket: $!\n" unless
 	socket (SOCK, &AF_INET, &SOCK_DGRAM, $proto);
 
+$flags = 0;
+$flags |= 0x80000000;
+$flags |= 0x40000000 if ($opt_n);
+$flags = ~0;
+
 while (<>) {
 	chop;
 	$request_template = 'CCnx4Nx4x4a4a' . length;
-	$request = pack($request_template, 1, 2, 24 + length, ~0, $myip, $_);
+	$request = pack($request_template, 1, 2, 24 + length, $flags, $myip, $_);
 	die "send: $!\n" unless
 		send(SOCK, $request, 0, $them);
 	die "recv: $!\n" unless
                 $theiraddr = recv(SOCK, $reply, 1024, 0);
   	($junk, $junk, $sourceaddr, $junk) = unpack($sockaddr, $theiraddr);
   	@theirip = unpack('C4', $sourceaddr);
-        ($type,$ver,$len,$payload) = unpack('CCnx4x8x4A', $reply);
+        ($type,$ver,$len,$flag,$p1,$p2,$payload) = unpack('CCnx4Nnnx4A', $reply);
         print join('.', @theirip) . ' ' . $CODES[$type] . " $_\n";
+	print "hop = $p1\n" if ($opt_n);
+	print "rtt = $p2\n" if ($opt_n);
 }