Source Format Enforcement (#763)

[thirdparty/squid.git] / scripts / udp-banger.pl

diff --git a/scripts/udp-banger.pl b/scripts/udp-banger.pl
index 11db9a9d74d79db38c2bf42f8d77f263d2dcb389..da781b67f3fac61ec669720bdbcc84118bfc40e9 100755 (executable)
--- a/scripts/udp-banger.pl
+++ b/scripts/udp-banger.pl
@@ -1,13 +1,13 @@
 #!/usr/local/bin/perl
 #
-## Copyright (C) 1996-2018 The Squid Software Foundation and contributors
+## Copyright (C) 1996-2021 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.
 ##
 
-# udp-banger.pl 
+# udp-banger.pl
 #
 # Duane Wessels, Dec 1995
 #
@@ -55,7 +55,7 @@ $port=(shift || '3130') ;
     "UDP_DENIED",
     "UDP_HIT_OBJ",
     "ICP_END"
-);
+    );
 
 $sock = IO::Socket::INET->new(PeerAddr => "$host:$port", Proto => 'udp');
 die "socket: $!\n" unless defined($sock);
@@ -66,7 +66,7 @@ $myip=(gethostbyname($me))[4];
 $flags = fcntl ($sock, &F_GETFL, 0);
 $flags |= &O_NONBLOCK;
 die "fcntl O_NONBLOCK: $!\n" unless
-       fcntl ($sock, &F_SETFL, $flags);
+    fcntl ($sock, &F_SETFL, $flags);
 
 $flags = 0;
 $flags |= 0x80000000;
@@ -76,55 +76,55 @@ $rn = 0;
 
 $start = time;
 while (<>) {
-       chop;
+    chop;
 
-       if ($opt_l) { # it's a Squid log file
-               @stuff = split(/\s+/, $_);
-               $_ = $stuff[6];
-       }
+    if ($opt_l) { # it's a Squid log file
+        @stuff = split(/\s+/, $_);
+        $_ = $stuff[6];
+    }
 
-        $len = length($_) + 1;
-        $request_template = sprintf 'CCnNNa4a4x4a%d', $len;
-        $request = pack($request_template,
-                1,              # C opcode
-                2,              # C version
-                24 + $len,      # n length
-                ++$rn,          # N reqnum
-                $flags,         # N flags
-                '',             # a4 pad
-                $myip,          # a4 shostid
-                $_);            # a%d payload
-       die "send: $!\n" unless
-               send($sock, $request, 0);
-       $nsent++;
-        $rin = '';
-        vec($rin,fileno($sock),1) = 1;
-        ($nfound,$timeleft) = select($rout=$rin, undef, undef, 2.0);
-       next if ($nfound == 0);
-       while (1) {
-               last unless ($theiraddr = recv($sock, $reply, 1024, 0));
-               next if $opt_q; # quietly carry on
-               $nrecv++;
-               if ($opt_r) {
-                       # only print send/receive rates
-                       if (($nsent & 0xFF) == 0) {
-                               $dt = time - $start;
-                               printf "SENT %d %f/sec; RECV %d %f/sec\n",
-                                       $nsent,
-                                       $nsent / $dt,
-                                       $nrecv,
-                                       $nrecv / $dt;
-                       }
-               } else {
-                       # print the whole reply
-                       ($junk, $junk, $sourceaddr, $junk) = unpack($sockaddr, $theiraddr);
-                       @theirip = unpack('C4', $sourceaddr);
-                       ($type,$ver,$len,$flag,$p1,$p2,$payload) = unpack('CCnx4Nnnx4A', $reply);
-                       print join('.', @theirip) . ' ' . $CODES[$type] . " $_";
-                       print " hop=$p1" if ($opt_n);
-                       print " rtt=$p2" if ($opt_n);
-                       print "\n";
-               }
+    $len = length($_) + 1;
+    $request_template = sprintf 'CCnNNa4a4x4a%d', $len;
+    $request = pack($request_template,
+        1,              # C opcode
+        2,              # C version
+        24 + $len,      # n length
+        ++$rn,          # N reqnum
+        $flags,         # N flags
+        '',             # a4 pad
+        $myip,          # a4 shostid
+        $_);            # a%d payload
+    die "send: $!\n" unless
+        send($sock, $request, 0);
+    $nsent++;
+    $rin = '';
+    vec($rin,fileno($sock),1) = 1;
+    ($nfound,$timeleft) = select($rout=$rin, undef, undef, 2.0);
+    next if ($nfound == 0);
+    while (1) {
+        last unless ($theiraddr = recv($sock, $reply, 1024, 0));
+        next if $opt_q; # quietly carry on
+        $nrecv++;
+        if ($opt_r) {
+            # only print send/receive rates
+            if (($nsent & 0xFF) == 0) {
+                $dt = time - $start;
+                printf "SENT %d %f/sec; RECV %d %f/sec\n",
+                    $nsent,
+                    $nsent / $dt,
+                    $nrecv,
+                    $nrecv / $dt;
+            }
+        } else {
+            # print the whole reply
+            ($junk, $junk, $sourceaddr, $junk) = unpack($sockaddr, $theiraddr);
+            @theirip = unpack('C4', $sourceaddr);
+            ($type,$ver,$len,$flag,$p1,$p2,$payload) = unpack('CCnx4Nnnx4A', $reply);
+            print join('.', @theirip) . ' ' . $CODES[$type] . " $_";
+            print " hop=$p1" if ($opt_n);
+            print " rtt=$p2" if ($opt_n);
+            print "\n";
         }
+    }
 }