holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Several fixes to IPv6 Address Handling

Browse Source
This commit is contained in:
Tom Eastep 2009-11-23 14:44:53 -08:00
parent 9d85d0ff7a
commit 1710f9ce7c
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Shorewall/Perl/Shorewall/IPAddrs.pm
View File

@ -485,16 +485,12 @@ sub valid_6address( $ ) {
return 0 unless ( @address == $max ) || $address =~ /::/; return 0 unless ( @address == $max ) || $address =~ /::/;
return 0 if $address =~ /:::/ || $address =~ /::.*::/; return 0 if $address =~ /:::/ || $address =~ /::.*::/;
if ( $address =~ /^:/ ) { unless ( $address eq '::' ) {
unless ( $address eq '::' ) { return 0 if $address =~ /^:/ || $address =~ /:$/;
return 0 if $address =~ /:$/ || $address =~ /^:.*::/;
}
} elsif ( $address =~ /:$/ ) {
return 0 if $address =~ /::.*:$/;
}
for my $a ( @address ) { for my $a ( @address ) {
return 0 unless $a eq '' || ( $a =~ /^[a-fA-f\d]+$/ && oct "0x$a" < 65536 ); return 0 unless $a eq '' || ( $a =~ /^[a-fA-f\d]+$/ && oct "0x$a" < 65536 );
}
} }
1; 1;
@ -543,15 +539,26 @@ sub validate_6net( $$ ) {
sub normalize_6addr( $ ) { sub normalize_6addr( $ ) {
my $addr = shift; my $addr = shift;
while ( $addr =~ tr/:/:/ < 6 ) { if ( $addr eq '::' ) {
$addr =~ s/::/:0::/; '0:0:0:0:0:0:0:0';
} else {
#
# Suppress leading zeros
#
$addr =~ s/^0+//;
$addr =~ s/:0+/:/g;
$addr =~ s/^:/0:/;
$addr =~ s/:$/:0/;
while ( $addr =~ tr/:/:/ < 7 ) {
$addr =~ s/::/:0::/;
}
$addr =~ s/::/:0:/;
$addr =~ s/^0+:/0:/;
$addr;
} }
$addr =~ s/::/:0:/;
$addr =~ s/:0+/:0/g;
$addr =~ s/^0+:/0:/;
$addr;
} }
sub validate_6range( $$ ) { sub validate_6range( $$ ) {