extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-02-23 13:11:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Yet one more change to IPv6 address validation

Browse Source
This commit is contained in:
Tom Eastep 2009-11-24 08:29:12 -08:00
parent deb45c5a27
commit cd84efea94
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -485,8 +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 =~ /::.*::/;
unless ( $address =~ tr/:/:/ == 2 && ( $address =~ /^::/ || $address =~ /::$/ ) ) { unless ( $address =~ /^::/ ) {
return 0 if $address =~ /^:/ || $address =~ /:$/; return 0 if $address =~ /^:/;
}
unless ( $address =~ /::$/ ) {
return 0 if $address =~ /:$/;
} }
for my $a ( @address ) { for my $a ( @address ) {