holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests 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+/:0/g;
$addr =~ s/^0+:/0:/;
$addr;
}
@ -573,7 +575,7 @@ sub validate_6range( $$ ) {
}
sub validate_6host( $$ ) {
my ( $host, $allow_name ) = $_[0];
my ( $host, $allow_name ) = @_;
if ( $host =~ /^(.*:.*)-(.*:.*)$/ ) {
validate_6range $1, $2;