extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-05-29 14:11:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allow IPv6 DNS names in net contexts

Browse Source
This commit is contained in:
Tom Eastep 2009-11-23 13:51:46 -08:00
parent d3d21d4d18
commit 9d85d0ff7a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -548,6 +548,8 @@ sub normalize_6addr( $ ) {
} }
$addr =~ s/::/:0:/; $addr =~ s/::/:0:/;
$addr =~ s/:0+/:0/g;
$addr =~ s/^0+:/0:/;
$addr; $addr;
} }
@ -573,7 +575,7 @@ sub validate_6range( $$ ) {
} }
sub validate_6host( $$ ) { sub validate_6host( $$ ) {
my ( $host, $allow_name ) = $_[0]; my ( $host, $allow_name ) = @_;
if ( $host =~ /^(.*:.*)-(.*:.*)$/ ) { if ( $host =~ /^(.*:.*)-(.*:.*)$/ ) {
validate_6range $1, $2; validate_6range $1, $2;