add test/ping-sweep

diff --git a/Changes b/Changes
index af065cb..60abca9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+* Fri Nov 25 2005 Brendan O'Dea <bod@optus.net> 2.1.13
+- Add test/ping-sweep.
+
 * Thu Nov 17 2005 Brendan O'Dea <bod@optus.net> 2.1.12
 - Set MTU on tunnel interface so the kernel will re-fragment large
   packets to within MRU.

diff --git a/l2tpns.h b/l2tpns.h
index 6efb15f..32bfaf6 100644 (file)
--- a/l2tpns.h
+++ b/l2tpns.h
@@ -1,5 +1,5 @@
 // L2TPNS Global Stuff
-// $Id: l2tpns.h,v 1.99 2005/11/17 07:35:35 bodea Exp $
+// $Id: l2tpns.h,v 1.100 2005/11/25 02:18:40 bodea Exp $
 
 #ifndef __L2TPNS_H__
 #define __L2TPNS_H__
@@ -15,7 +15,7 @@
 #include <sys/types.h>
 #include <libcli.h>
 
-#define VERSION        "2.1.12"
+#define VERSION        "2.1.13"
 
 // Limits
 #define MAXTUNNEL      500             // could be up to 65535

diff --git a/l2tpns.spec b/l2tpns.spec
index be68d99..513541e 100644 (file)
--- a/l2tpns.spec
+++ b/l2tpns.spec
@@ -1,6 +1,6 @@
 Summary: A high-speed clustered L2TP LNS
 Name: l2tpns
-Version: 2.1.12
+Version: 2.1.13
 Release: 1
 Copyright: GPL
 Group: System Environment/Daemons
@@ -43,5 +43,5 @@ rm -rf %{buildroot}
 %attr(644,root,root) /usr/share/man/man[58]/*
 
 %changelog
-* Thu Nov 17 2005 Brendan O'Dea <bod@optus.net> 2.1.12-1
-- 2.1.12 release, see /usr/share/doc/l2tpns-2.1.12/Changes
+* Fri Nov 25 2005 Brendan O'Dea <bod@optus.net> 2.1.13-1
+- 2.1.13 release, see /usr/share/doc/l2tpns-2.1.13/Changes

diff --git a/test/ping-sweep b/test/ping-sweep
new file mode 100644 (file)
index 0000000..3795364
--- /dev/null
+++ b/test/ping-sweep
@@ -0,0 +1,121 @@
+#! /usr/bin/perl -w
+
+# Ping test: run through packet sizes (default: 56-3000)
+
+use strict;
+use Socket;
+
+use constant TRIES                     => 4;
+use constant TIMEOUT                   => 3; # 3s
+use constant MAXPACK                   => 16*1024;
+
+use constant ICMP_TYPE_ECHOREPLY       => 0; # ICMP packet types
+use constant ICMP_TYPE_ECHO            => 8;
+use constant ICMP_CODE                 => 0; # No ICMP code for ECHO and ECHOREPLY
+
+use constant SOL_IP                    => 0;
+use constant IP_MTU_DISCOVER           => 10;
+use constant IP_PMTUDISC_WANT          => 0;
+use constant IP_PMTUDISC_DONT          => 1;
+use constant IP_PMTUDISC_DO            => 2;
+
+my $verbose = shift if @ARGV and $ARGV[0] =~ /^--?v(erbose)?$/;
+my ($host, $min, $max) = @ARGV;
+
+die "Usage: $0 [-v] HOST [MIN [MAX]]\n" unless $host;
+my $addr = inet_aton $host or die "$0: invalid host $host\n";
+my $sin = sockaddr_in 0, $addr;
+
+$min =   56 if @ARGV < 2;
+$max = 3000 if @ARGV < 3;
+$max = $min if $min > $max;
+
+my $icmp = getprotobyname 'icmp' or die "$0: can't get ICMP proto ($!)\n";
+socket my $sock, PF_INET, SOCK_RAW, $icmp
+    or die "$0: can't create ICMP socket ($!)\n";
+
+setsockopt $sock, SOL_IP, IP_MTU_DISCOVER, IP_PMTUDISC_DONT
+    or die "$0: can't disable PMTU discovery ($!)\n";
+
+{
+    my $seq = 0;
+    sub icmp_out
+    {
+       my $len = shift;
+
+       # fill data with the *$len*$len*$len*...
+       my $d = sprintf '*%d', $len;
+       my $data = $d x (int ($len / length $d) + 1);
+
+       my $s = 0 + $seq++;
+       $seq %= 65536;
+
+       my $pack = pack "C C n n n a$len" =>
+           ICMP_TYPE_ECHO,     # icmp_type
+           ICMP_CODE,          # icmp_code
+           0,                  # icmp_cksum
+           $$,                 # icmp_id
+           $s,                 # icmp_seq
+           $data;              # payload
+
+       my $cksum = 0;
+       $cksum += $_ for unpack 'n*' => $pack . "\x00";
+       my $wrap;
+       $cksum = ($cksum & 0xffff) + $wrap while ($wrap = ($cksum >> 16));
+
+       substr $pack, 2, 2, pack n => ~$cksum;
+       ($s, $pack);
+    }
+}
+
+sub icmp_in
+{
+    my ($pack, $seq) = @_;
+    return unless length $pack >= 28;
+    my ($type, $code, $cksum, $id, $s) = unpack 'C C n n n' => substr $pack, 20;
+    return $type == ICMP_TYPE_ECHOREPLY
+       and $code == ICMP_CODE
+       and $id == $$
+       and $s == $seq;
+}
+
+$|++ if $verbose;
+
+for (my $size = $min; $size <= $max; $size++)
+{
+    my ($seq, $pack) = icmp_out $size;
+
+    print "$size: " if $verbose;
+    my $res = 0;
+
+    for (my $t = 0; $t < TRIES; $t++)
+    {
+       send $sock, $pack, 0, $sin
+           or die "$0: sendto failed ($!)\n";
+
+       my $rin = '';
+       (vec $rin, fileno $sock, 1) = 1;
+       select $rin, undef, undef, TIMEOUT or next;
+       
+       my $peer = recv $sock, my $buf, MAXPACK, 0
+           or die "$0: recvfrom failed ($!)\n";
+
+       next unless (sockaddr_in $peer)[1] eq $addr
+           and icmp_in $buf, $seq;
+
+       # OK
+       $res++;
+       last;
+    }
+
+    if ($verbose)
+    {
+       print +($res ? 'OK' : 'FAIL'), "\n";
+    }
+    else
+    {
+       print "$size\n" unless $res;
+    }
+}
+
+1;