Import of LUISMUNOZ/NetAddr-IP-3.05 from CPAN.

Fork: 0

x-way / NetAddr-IP

Browse code Import of LUISMUNOZ/NetAddr-IP-3.05 from CPAN. gitpan-cpan-distribution: NetAddr-IP gitpan-cpan-version: 3.05 gitpan-cpan-path: LUISMUNOZ/NetAddr-IP-3.05.tar.gz gitpan-cpan-author: LUISMUNOZ gitpan-cpan-maturity: released address_exclude master
1 parent 8ef1888 commit c01203ad83fb6ecc7d0f043f7d0f46f52ef6ac6a Luis Muñoz authored on 19 Nov 2001 Gitpan committed on 21 Oct 2014

Patch

Unified Split

Showing 4 changed files

                Ignore Space
               Show notes
              View
            
          
          54 ■■■■■
          IP.pm
 				# End of the overload methods.
				#############################################
 
 
our $VERSION = '3.04';
our $VERSION = '3.05';
 
# Preloaded methods go here.
 
				# This is a variant to ->new() that
	vec($mask, 1, 8) = 0xFF;
	vec($mask, 2, 8) = 0xFF;
	vec($mask, 3, 8) = _obits $4, $5;
    }
    elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)
	   \s*-\s*(\d+)\.(\d+)\.(\d+)\.(\d+)$/x
	   and $1 >= 0 and $1 <= 255
	   and $2 >= 0 and $2 <= 255
	   and $3 >= 0 and $3 <= 255
	   and $4 >= 0 and $4 <= 255
	   and $5 >= 0 and $5 <= 255
	   and $6 >= 0 and $6 <= 255
	   and $7 >= 0 and $7 <= 255
	   and $8 >= 0 and $8 <= 255)
    {
	my $last = '';
 
	vec($addr, 0, 8) = $1;
	vec($addr, 1, 8) = $2;
	vec($addr, 2, 8) = $3;
	vec($addr, 3, 8) = $4;
 
	vec($last, 0, 8) = $5;
	vec($last, 1, 8) = $6;
	vec($last, 2, 8) = $7;
	vec($last, 3, 8) = $8;
 
	vec($mask, 0, 8) = _obits $1, $5;
	vec($mask, 1, 8) = _obits $2, $6;
	vec($mask, 2, 8) = _obits $3, $7;
	vec($mask, 3, 8) = _obits $4, $8;
    }
    elsif (my $a = gethostbyname($ip)) {
	if (inet_ntoa($a) =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)$!)  {
	    vec($addr, 0, 8) = $1;
	    vec($addr, 1, 8) = $2;
    my @faddr = split (/\./, $self->first->addr);
    my @laddr = split (/\./, $self->last->addr);
 
    return do_prefix $mask, \@faddr, \@laddr;
}
 
sub range ($) {
    my $self = shift;
    my $mask = $self->masklen;
 
    return undef if $self->{bits} > 32;
    return $self->network->addr . ' - ' . $self->broadcast->addr;
}
 
sub broadcast ($) {
    my $self	= shift;
=item C<-E<gt>cidr()>
 
Returns a scalar with the address and mask in CIDR notation.
 
=item C<-E<gt>range()>
 
Returns a scalar with the base address and the broadcast address
separated by a dash and spaces. This is called range notation.
 
=item C<-E<gt>prefix()>
 
Returns a scalar with the address and mask in prefix
representation. This is useful for some programs, which expect its
function.
 
=back
 
=item 3.05
 
=over
 
=item *
 
Added support for range notation, where base and broadcast addresses
are given as arguments to C<-E<gt>new()>.
 
=back
 
=back
 
=head1 AUTHOR
 				# End of the overload methods.
 				#############################################
+our $VERSION = '3.04';
+our $VERSION = '3.05';
 # Preloaded methods go here.
 				# This is a variant to ->new() that
 	vec($mask, 1, 8) = 0xFF;
 	vec($mask, 2, 8) = 0xFF;
 	vec($mask, 3, 8) = _obits $4, $5;
     }
+    elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)
+	   \s*-\s*(\d+)\.(\d+)\.(\d+)\.(\d+)$/x
+	   and $1 >= 0 and $1 <= 255
+	   and $2 >= 0 and $2 <= 255
+	   and $3 >= 0 and $3 <= 255
+	   and $4 >= 0 and $4 <= 255
+	   and $5 >= 0 and $5 <= 255
+	   and $6 >= 0 and $6 <= 255
+	   and $7 >= 0 and $7 <= 255
+	   and $8 >= 0 and $8 <= 255)
+    {
+	my $last = '';
+	vec($addr, 0, 8) = $1;
+	vec($addr, 1, 8) = $2;
+	vec($addr, 2, 8) = $3;
+	vec($addr, 3, 8) = $4;
+	vec($last, 0, 8) = $5;
+	vec($last, 1, 8) = $6;
+	vec($last, 2, 8) = $7;
+	vec($last, 3, 8) = $8;
+	vec($mask, 0, 8) = _obits $1, $5;
+	vec($mask, 1, 8) = _obits $2, $6;
+	vec($mask, 2, 8) = _obits $3, $7;
+	vec($mask, 3, 8) = _obits $4, $8;
+    }
     elsif (my $a = gethostbyname($ip)) {
 	if (inet_ntoa($a) =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)$!)  {
 	    vec($addr, 0, 8) = $1;
 	    vec($addr, 1, 8) = $2;
     my @faddr = split (/\./, $self->first->addr);
     my @laddr = split (/\./, $self->last->addr);
     return do_prefix $mask, \@faddr, \@laddr;
+}
+sub range ($) {
+    my $self = shift;
+    my $mask = $self->masklen;
+    return undef if $self->{bits} > 32;
+    return $self->network->addr . ' - ' . $self->broadcast->addr;
 }
 sub broadcast ($) {
     my $self	= shift;
 =item C<-E<gt>cidr()>
 Returns a scalar with the address and mask in CIDR notation.
+=item C<-E<gt>range()>
+Returns a scalar with the base address and the broadcast address
+separated by a dash and spaces. This is called range notation.
 =item C<-E<gt>prefix()>
 Returns a scalar with the address and mask in prefix
 representation. This is useful for some programs, which expect its
 function.
 =back
+=item 3.05
+=over
+=item *
+Added support for range notation, where base and broadcast addresses
+are given as arguments to C<-E<gt>new()>.
+=back
 =back
 =head1 AUTHOR

                Ignore Space
               Show notes
              View
            
          
          1 ■■■■■
          MANIFEST
 t/masklen.t
t/v4-base.t
t/v4-cidr.t
t/over-arr.t
t/v4-range.t
t/v4-basem.t
t/v4-first.t
t/wildcard.t
t/v4-compact.t
 t/masklen.t
 t/v4-base.t
 t/v4-cidr.t
 t/over-arr.t
+t/v4-range.t
 t/v4-basem.t
 t/v4-first.t
 t/wildcard.t
 t/v4-compact.t

Ignore Space Show notes View README

Ignore Space Show notes View t/v4-range.t 0 → 100644

Show line notes below