r9119 - in /branches/upstream/libnet-subnets-perl: ./ current/ current/lib/ current/lib/Net/ current/t/

emhn-guest at users.alioth.debian.org emhn-guest at users.alioth.debian.org
Fri Nov 9 21:52:52 UTC 2007


Author: emhn-guest
Date: Fri Nov  9 21:52:52 2007
New Revision: 9119

URL: http://svn.debian.org/wsvn/?sc=1&rev=9119
Log:
[svn-inject] Installing original source of libnet-subnets-perl

Added:
    branches/upstream/libnet-subnets-perl/
    branches/upstream/libnet-subnets-perl/current/
    branches/upstream/libnet-subnets-perl/current/Changes
    branches/upstream/libnet-subnets-perl/current/MANIFEST
    branches/upstream/libnet-subnets-perl/current/META.yml
    branches/upstream/libnet-subnets-perl/current/Makefile.PL
    branches/upstream/libnet-subnets-perl/current/README
    branches/upstream/libnet-subnets-perl/current/lib/
    branches/upstream/libnet-subnets-perl/current/lib/Net/
    branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm
    branches/upstream/libnet-subnets-perl/current/t/
    branches/upstream/libnet-subnets-perl/current/t/1use.t
    branches/upstream/libnet-subnets-perl/current/t/2check.t
    branches/upstream/libnet-subnets-perl/current/t/3range.t
    branches/upstream/libnet-subnets-perl/current/t/4list.t

Added: branches/upstream/libnet-subnets-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/Changes?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/Changes (added)
+++ branches/upstream/libnet-subnets-perl/current/Changes Fri Nov  9 21:52:52 2007
@@ -1,0 +1,52 @@
+Revision history for Perl extension Net::Subnets.
+
+0.21  Sat Feb 19 21:00:00 2005
+        - fixed pod (Jan Harders)
+
+0.20  Sun Nov 16 16:00:00 2003
+
+	- added list() function
+	- better documentation
+
+0.19  Wed Nov 12 11:00:00 2003
+
+	- fixed a bug in subnets() and check() which produced
+	  false matches, reported by Eric Johanson
+
+	- fixed the changelog
+
+0.18  Tue Sep 30 21:30:00 2003
+
+	- fixed some typos
+
+0.17  Tue Sep 30 21:00:00 2003
+
+	- made the constructor inheritable, reported by Markus Thielmann
+
+0.16  Sun Sep 28 22:00:00 2003
+
+	- added range() function
+
+0.15  Mon Sep 15 21:00:00 2003
+
+	- new test
+
+0.14  Fri Sep 12 23:30:00 2003
+
+	- better documentation
+
+0.13  Fri Sep 12 22:55:00 2003
+
+	- added example
+
+0.12  Fri Sep 12 01:00:00 2003
+
+	- fixed even more typos
+
+0.11  Thu Sep 12 00:00:00 2003
+
+	- fixed some typos
+
+0.10  Wed Aug 27 22:00:00 2003
+
+	- first public release

Added: branches/upstream/libnet-subnets-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/MANIFEST?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/MANIFEST (added)
+++ branches/upstream/libnet-subnets-perl/current/MANIFEST Fri Nov  9 21:52:52 2007
@@ -1,0 +1,10 @@
+Changes
+lib/Net/Subnets.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/1use.t
+t/2check.t
+t/3range.t
+t/4list.t

Added: branches/upstream/libnet-subnets-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/META.yml?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/META.yml (added)
+++ branches/upstream/libnet-subnets-perl/current/META.yml Fri Nov  9 21:52:52 2007
@@ -1,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         Net-Subnets
+version:      0.21
+version_from: lib/Net/Subnets.pm
+installdirs:  site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17

Added: branches/upstream/libnet-subnets-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/Makefile.PL?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/Makefile.PL (added)
+++ branches/upstream/libnet-subnets-perl/current/Makefile.PL Fri Nov  9 21:52:52 2007
@@ -1,0 +1,7 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME         => 'Net::Subnets',
+    AUTHOR       => 'Sebastian Riedel (sri at oook.de)',
+    VERSION_FROM => 'lib/Net/Subnets.pm',
+);

Added: branches/upstream/libnet-subnets-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/README?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/README (added)
+++ branches/upstream/libnet-subnets-perl/current/README Fri Nov  9 21:52:52 2007
@@ -1,0 +1,21 @@
+Net/Subnets version 0.20
+========================
+
+Very fast matches large lists of IP addresses against many CIDR subnets,
+calculates IP address ranges and provides a simple object oriented interface.
+
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2003 Sebastian Riedel & Juergen Peters. All rights reserved.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.

Added: branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm (added)
+++ branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm Fri Nov  9 21:52:52 2007
@@ -1,0 +1,182 @@
+package Net::Subnets;
+
+use strict;
+use vars qw($VERSION);
+
+$VERSION = '0.21';
+
+sub new {
+    my $self = shift;
+    return bless( {}, ( ref($self) || $self ) );
+}
+
+sub subnets {
+    my ( $self, $subnets ) = @_;
+    my %masks;
+    foreach (@$subnets) {
+        /^(.+?)\/(.+)$/o;
+        my $revmask = 32 - ( $2 || 32 );
+        $self->{subnets}{$revmask}
+          { unpack( "N", pack( "C4", split( /\./, $1 ) ) ) >> $revmask } = $_;
+        $masks{$revmask}++;
+    }
+    @{ $self->{masks} } =
+      sort( { $masks{$a} <=> $masks{$b} } keys(%masks) );
+}
+
+sub check {
+    my ( $self, $address ) = @_;
+    foreach ( @{ $self->{masks} } ) {
+        my $option =
+          unpack( "N", pack( "C4", split( /\./, $$address ) ) ) >> $_;
+        if ( $self->{subnets}{$_}{$option} ) {
+            return \( $self->{subnets}{$_}{$option} );
+        }
+    }
+    return 0;
+}
+
+sub range {
+    my ( $self, $subnet ) = @_;
+    $$subnet =~ /^(.+?)\/(.+)$/o;
+    my $net =
+      pack( 'C4', split( /\./, $1 ) ) &
+      pack( 'B*', ( 1 x $2 ) . ( 0 x ( 32 - ( $2 || 32 ) ) ) );
+    my $lowip =
+      join( '.', unpack( 'C4', pack( 'B*', ( 0 x 31 ) . 1 ) | $net ) );
+    my $highip = join(
+        '.',
+        unpack(
+            'C4', pack( 'B*', ( 0 x $2 ) . ( 1 x ( 31 - $2 ) ) . 0 ) | $net
+        )
+    );
+    if ( $2 == 32 ) {
+        return ( \$highip, \$highip );
+    }
+    return ( \$lowip, \$highip );
+}
+
+sub list {
+    my ( $self, $lowip, $highip ) = @_;
+    my $lowint  = unpack( "N", pack( "C4", split( /\./, $$lowip ) ) );
+    my $highint = unpack( "N", pack( "C4", split( /\./, $$highip ) ) );
+    my @list = ( join( '.', unpack( 'C4', pack( 'N', $lowint ) ) ) );
+    while ( $lowint lt $highint ) {
+        push( @list, join( '.', unpack( 'C4', pack( 'N', ++$lowint ) ) ) );
+    }
+    return \@list;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Net::Subnets - Computing subnets in large scale networks
+
+=head1 SYNOPSIS
+
+    use Net::Subnets;
+    my $sn = Net::Subnets->new;
+    $sn->subnets( \@subnets );
+    if ( my $subnetref = $sn->check( \$address ) ) {
+        ...
+    }
+    my ( $lowipref, highipref ) = $sn->range( \$subnet );
+    my $listref = $sn->list( \( $lowipref, $highipref ) );
+
+=head1 DESCRIPTION
+
+Very fast matches large lists of IP addresses against many CIDR subnets and
+calculates IP address ranges.
+
+The following functions are provided by this module:
+
+    new()
+        Creates an "Net::Subnets" object.
+        It takes no arguments.
+
+    subnets( \@subnets )
+        The subnets() function lets you prepare a list of CIDR subnets.
+        It takes an array reference.
+
+    check( \$address )
+        The check() function lets you check an IP address against the
+        previously prepared subnets.
+        It takes a scalar reference and returns a scalar reference to
+        the first matching CIDR subnet.
+
+    range( \$subnet )
+        The range() function lets you calculate the IP address range
+        of a subnet.
+        It takes a scalar reference and returns two scalar references to
+        the lowest and highest IP address.
+
+    list( \$lowip, \$highip )
+        The list() function lets you calculate a list containing all IP
+        addresses in a given range.
+        It takes two scalar references and returns a reference to a list
+        containing the IP addresses.
+
+This is a simple and efficient example for subnet matching:
+
+    use Net::Subnets;
+
+    my @subnets   = qw(10.0.0.0/24 10.0.1.0/24);
+    my @addresses = qw(10.0.0.1 10.0.1.2 10.0.3.1);
+
+    my $sn = Net::Subnets->new;
+    $sn->subnets( \@subnets );
+    my $results;
+    foreach my $address ( @addresses ) {
+        if ( my $subnetref = $sn->check( \$address ) ) {
+            $results .= "$address: $$subnetref\n";
+        }
+        else {
+            $results .= "$address: not found\n";
+        }
+    }
+    print( $results );
+
+This is a simple example for range calculation:
+
+    use Net::Subnets;
+
+    my @subnets = qw(10.0.0.0/24 10.0.1.0/24);
+
+    my $sn = Net::Subnets->new;
+    my $results;
+    foreach my $subnet ( @subnets ) {
+        my ( $lowipref, $highipref ) = $sn->range( \$subnet );
+        $results .= "$subnet: $$lowipref - $$highipref\n";
+    }
+    print( $results );
+    
+This is a simple example for list generation:
+    
+    use Net::Subnets;
+
+    my $lowip  = '192.168.0.1';
+    my $highip = '192.168.0.100';
+
+    my $sn = Net::Subnets->new;
+    my $listref = $sn->list( \( $lowip, $highip ) );
+    foreach my $address ( @{ $listref } ) {
+        # do something cool
+    }
+
+
+=head1 AUTHOR
+
+Sebastian Riedel (sri at cpan.org),
+Juergen Peters (juergen.peters at taulmarill.de)
+
+=head1 COPYRIGHT
+
+Copyright 2003 Sebastian Riedel & Juergen Peters. All rights reserved.
+
+This library is free software. You can redistribute it and/or
+modify it under the same terms
+as perl itself.
+
+=cut

Added: branches/upstream/libnet-subnets-perl/current/t/1use.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/t/1use.t?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/1use.t (added)
+++ branches/upstream/libnet-subnets-perl/current/t/1use.t Fri Nov  9 21:52:52 2007
@@ -1,0 +1,4 @@
+use strict;
+use Test::More tests => 1;
+
+BEGIN { use_ok('Net::Subnets') }

Added: branches/upstream/libnet-subnets-perl/current/t/2check.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/t/2check.t?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/2check.t (added)
+++ branches/upstream/libnet-subnets-perl/current/t/2check.t Fri Nov  9 21:52:52 2007
@@ -1,0 +1,18 @@
+use strict;
+use Test::Simple tests => 4;
+use Net::Subnets;
+
+my @subnets   = qw(10.0.0.0/24 10.0.1.0/24);
+my @good_addr = qw(10.0.0.1 10.0.1.2);
+my @bad_addr  = qw(10.0.3.4 20.0.0.1);
+
+my $sn = Net::Subnets->new;
+$sn->subnets( \@subnets );
+
+foreach my $addr (@good_addr) {
+    ok( $sn->check( \$addr ) );
+}
+
+foreach my $addr (@bad_addr) {
+    ok( !$sn->check( \$addr ) );
+}

Added: branches/upstream/libnet-subnets-perl/current/t/3range.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/t/3range.t?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/3range.t (added)
+++ branches/upstream/libnet-subnets-perl/current/t/3range.t Fri Nov  9 21:52:52 2007
@@ -1,0 +1,13 @@
+use strict;
+use Test::Simple tests => 2;
+use Net::Subnets;
+
+my @subnets = qw(10.0.0.0/24 10.0.1.4/32);
+my @lowips  = qw(10.0.0.1 10.0.1.4);
+my @highips = qw(10.0.0.254 10.0.1.4);
+
+my $sn = Net::Subnets->new;
+for ( my $i = 0 ; $i <= $#subnets ; $i++ ) {
+    my ( $lowip, $highip ) = $sn->range( \$subnets[$i] );
+    ok( ( ( $lowips[$i] eq $$lowip ) && ( $highips[$i] eq $$highip ) ) );
+}

Added: branches/upstream/libnet-subnets-perl/current/t/4list.t
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-subnets-perl/current/t/4list.t?rev=9119&op=file
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/4list.t (added)
+++ branches/upstream/libnet-subnets-perl/current/t/4list.t Fri Nov  9 21:52:52 2007
@@ -1,0 +1,525 @@
+use strict;
+use Test::Simple tests => 510;
+use Net::Subnets;
+
+my $subnet = '10.0.0.0/23';
+
+my $sn   = Net::Subnets->new;
+my $list = $sn->list( $sn->range( \$subnet ) );
+
+while (<DATA>) {
+    chomp;
+    ok( ( $_ eq $$list[ $. - 1 ] ) );
+}
+
+__DATA__
+10.0.0.1
+10.0.0.2
+10.0.0.3
+10.0.0.4
+10.0.0.5
+10.0.0.6
+10.0.0.7
+10.0.0.8
+10.0.0.9
+10.0.0.10
+10.0.0.11
+10.0.0.12
+10.0.0.13
+10.0.0.14
+10.0.0.15
+10.0.0.16
+10.0.0.17
+10.0.0.18
+10.0.0.19
+10.0.0.20
+10.0.0.21
+10.0.0.22
+10.0.0.23
+10.0.0.24
+10.0.0.25
+10.0.0.26
+10.0.0.27
+10.0.0.28
+10.0.0.29
+10.0.0.30
+10.0.0.31
+10.0.0.32
+10.0.0.33
+10.0.0.34
+10.0.0.35
+10.0.0.36
+10.0.0.37
+10.0.0.38
+10.0.0.39
+10.0.0.40
+10.0.0.41
+10.0.0.42
+10.0.0.43
+10.0.0.44
+10.0.0.45
+10.0.0.46
+10.0.0.47
+10.0.0.48
+10.0.0.49
+10.0.0.50
+10.0.0.51
+10.0.0.52
+10.0.0.53
+10.0.0.54
+10.0.0.55
+10.0.0.56
+10.0.0.57
+10.0.0.58
+10.0.0.59
+10.0.0.60
+10.0.0.61
+10.0.0.62
+10.0.0.63
+10.0.0.64
+10.0.0.65
+10.0.0.66
+10.0.0.67
+10.0.0.68
+10.0.0.69
+10.0.0.70
+10.0.0.71
+10.0.0.72
+10.0.0.73
+10.0.0.74
+10.0.0.75
+10.0.0.76
+10.0.0.77
+10.0.0.78
+10.0.0.79
+10.0.0.80
+10.0.0.81
+10.0.0.82
+10.0.0.83
+10.0.0.84
+10.0.0.85
+10.0.0.86
+10.0.0.87
+10.0.0.88
+10.0.0.89
+10.0.0.90
+10.0.0.91
+10.0.0.92
+10.0.0.93
+10.0.0.94
+10.0.0.95
+10.0.0.96
+10.0.0.97
+10.0.0.98
+10.0.0.99
+10.0.0.100
+10.0.0.101
+10.0.0.102
+10.0.0.103
+10.0.0.104
+10.0.0.105
+10.0.0.106
+10.0.0.107
+10.0.0.108
+10.0.0.109
+10.0.0.110
+10.0.0.111
+10.0.0.112
+10.0.0.113
+10.0.0.114
+10.0.0.115
+10.0.0.116
+10.0.0.117
+10.0.0.118
+10.0.0.119
+10.0.0.120
+10.0.0.121
+10.0.0.122
+10.0.0.123
+10.0.0.124
+10.0.0.125
+10.0.0.126
+10.0.0.127
+10.0.0.128
+10.0.0.129
+10.0.0.130
+10.0.0.131
+10.0.0.132
+10.0.0.133
+10.0.0.134
+10.0.0.135
+10.0.0.136
+10.0.0.137
+10.0.0.138
+10.0.0.139
+10.0.0.140
+10.0.0.141
+10.0.0.142
+10.0.0.143
+10.0.0.144
+10.0.0.145
+10.0.0.146
+10.0.0.147
+10.0.0.148
+10.0.0.149
+10.0.0.150
+10.0.0.151
+10.0.0.152
+10.0.0.153
+10.0.0.154
+10.0.0.155
+10.0.0.156
+10.0.0.157
+10.0.0.158
+10.0.0.159
+10.0.0.160
+10.0.0.161
+10.0.0.162
+10.0.0.163
+10.0.0.164
+10.0.0.165
+10.0.0.166
+10.0.0.167
+10.0.0.168
+10.0.0.169
+10.0.0.170
+10.0.0.171
+10.0.0.172
+10.0.0.173
+10.0.0.174
+10.0.0.175
+10.0.0.176
+10.0.0.177
+10.0.0.178
+10.0.0.179
+10.0.0.180
+10.0.0.181
+10.0.0.182
+10.0.0.183
+10.0.0.184
+10.0.0.185
+10.0.0.186
+10.0.0.187
+10.0.0.188
+10.0.0.189
+10.0.0.190
+10.0.0.191
+10.0.0.192
+10.0.0.193
+10.0.0.194
+10.0.0.195
+10.0.0.196
+10.0.0.197
+10.0.0.198
+10.0.0.199
+10.0.0.200
+10.0.0.201
+10.0.0.202
+10.0.0.203
+10.0.0.204
+10.0.0.205
+10.0.0.206
+10.0.0.207
+10.0.0.208
+10.0.0.209
+10.0.0.210
+10.0.0.211
+10.0.0.212
+10.0.0.213
+10.0.0.214
+10.0.0.215
+10.0.0.216
+10.0.0.217
+10.0.0.218
+10.0.0.219
+10.0.0.220
+10.0.0.221
+10.0.0.222
+10.0.0.223
+10.0.0.224
+10.0.0.225
+10.0.0.226
+10.0.0.227
+10.0.0.228
+10.0.0.229
+10.0.0.230
+10.0.0.231
+10.0.0.232
+10.0.0.233
+10.0.0.234
+10.0.0.235
+10.0.0.236
+10.0.0.237
+10.0.0.238
+10.0.0.239
+10.0.0.240
+10.0.0.241
+10.0.0.242
+10.0.0.243
+10.0.0.244
+10.0.0.245
+10.0.0.246
+10.0.0.247
+10.0.0.248
+10.0.0.249
+10.0.0.250
+10.0.0.251
+10.0.0.252
+10.0.0.253
+10.0.0.254
+10.0.0.255
+10.0.1.0
+10.0.1.1
+10.0.1.2
+10.0.1.3
+10.0.1.4
+10.0.1.5
+10.0.1.6
+10.0.1.7
+10.0.1.8
+10.0.1.9
+10.0.1.10
+10.0.1.11
+10.0.1.12
+10.0.1.13
+10.0.1.14
+10.0.1.15
+10.0.1.16
+10.0.1.17
+10.0.1.18
+10.0.1.19
+10.0.1.20
+10.0.1.21
+10.0.1.22
+10.0.1.23
+10.0.1.24
+10.0.1.25
+10.0.1.26
+10.0.1.27
+10.0.1.28
+10.0.1.29
+10.0.1.30
+10.0.1.31
+10.0.1.32
+10.0.1.33
+10.0.1.34
+10.0.1.35
+10.0.1.36
+10.0.1.37
+10.0.1.38
+10.0.1.39
+10.0.1.40
+10.0.1.41
+10.0.1.42
+10.0.1.43
+10.0.1.44
+10.0.1.45
+10.0.1.46
+10.0.1.47
+10.0.1.48
+10.0.1.49
+10.0.1.50
+10.0.1.51
+10.0.1.52
+10.0.1.53
+10.0.1.54
+10.0.1.55
+10.0.1.56
+10.0.1.57
+10.0.1.58
+10.0.1.59
+10.0.1.60
+10.0.1.61
+10.0.1.62
+10.0.1.63
+10.0.1.64
+10.0.1.65
+10.0.1.66
+10.0.1.67
+10.0.1.68
+10.0.1.69
+10.0.1.70
+10.0.1.71
+10.0.1.72
+10.0.1.73
+10.0.1.74
+10.0.1.75
+10.0.1.76
+10.0.1.77
+10.0.1.78
+10.0.1.79
+10.0.1.80
+10.0.1.81
+10.0.1.82
+10.0.1.83
+10.0.1.84
+10.0.1.85
+10.0.1.86
+10.0.1.87
+10.0.1.88
+10.0.1.89
+10.0.1.90
+10.0.1.91
+10.0.1.92
+10.0.1.93
+10.0.1.94
+10.0.1.95
+10.0.1.96
+10.0.1.97
+10.0.1.98
+10.0.1.99
+10.0.1.100
+10.0.1.101
+10.0.1.102
+10.0.1.103
+10.0.1.104
+10.0.1.105
+10.0.1.106
+10.0.1.107
+10.0.1.108
+10.0.1.109
+10.0.1.110
+10.0.1.111
+10.0.1.112
+10.0.1.113
+10.0.1.114
+10.0.1.115
+10.0.1.116
+10.0.1.117
+10.0.1.118
+10.0.1.119
+10.0.1.120
+10.0.1.121
+10.0.1.122
+10.0.1.123
+10.0.1.124
+10.0.1.125
+10.0.1.126
+10.0.1.127
+10.0.1.128
+10.0.1.129
+10.0.1.130
+10.0.1.131
+10.0.1.132
+10.0.1.133
+10.0.1.134
+10.0.1.135
+10.0.1.136
+10.0.1.137
+10.0.1.138
+10.0.1.139
+10.0.1.140
+10.0.1.141
+10.0.1.142
+10.0.1.143
+10.0.1.144
+10.0.1.145
+10.0.1.146
+10.0.1.147
+10.0.1.148
+10.0.1.149
+10.0.1.150
+10.0.1.151
+10.0.1.152
+10.0.1.153
+10.0.1.154
+10.0.1.155
+10.0.1.156
+10.0.1.157
+10.0.1.158
+10.0.1.159
+10.0.1.160
+10.0.1.161
+10.0.1.162
+10.0.1.163
+10.0.1.164
+10.0.1.165
+10.0.1.166
+10.0.1.167
+10.0.1.168
+10.0.1.169
+10.0.1.170
+10.0.1.171
+10.0.1.172
+10.0.1.173
+10.0.1.174
+10.0.1.175
+10.0.1.176
+10.0.1.177
+10.0.1.178
+10.0.1.179
+10.0.1.180
+10.0.1.181
+10.0.1.182
+10.0.1.183
+10.0.1.184
+10.0.1.185
+10.0.1.186
+10.0.1.187
+10.0.1.188
+10.0.1.189
+10.0.1.190
+10.0.1.191
+10.0.1.192
+10.0.1.193
+10.0.1.194
+10.0.1.195
+10.0.1.196
+10.0.1.197
+10.0.1.198
+10.0.1.199
+10.0.1.200
+10.0.1.201
+10.0.1.202
+10.0.1.203
+10.0.1.204
+10.0.1.205
+10.0.1.206
+10.0.1.207
+10.0.1.208
+10.0.1.209
+10.0.1.210
+10.0.1.211
+10.0.1.212
+10.0.1.213
+10.0.1.214
+10.0.1.215
+10.0.1.216
+10.0.1.217
+10.0.1.218
+10.0.1.219
+10.0.1.220
+10.0.1.221
+10.0.1.222
+10.0.1.223
+10.0.1.224
+10.0.1.225
+10.0.1.226
+10.0.1.227
+10.0.1.228
+10.0.1.229
+10.0.1.230
+10.0.1.231
+10.0.1.232
+10.0.1.233
+10.0.1.234
+10.0.1.235
+10.0.1.236
+10.0.1.237
+10.0.1.238
+10.0.1.239
+10.0.1.240
+10.0.1.241
+10.0.1.242
+10.0.1.243
+10.0.1.244
+10.0.1.245
+10.0.1.246
+10.0.1.247
+10.0.1.248
+10.0.1.249
+10.0.1.250
+10.0.1.251
+10.0.1.252
+10.0.1.253
+10.0.1.254




More information about the Pkg-perl-cvs-commits mailing list