From 9d85d0ff7a9b1fcdac69be0bb53672a337749f15 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 23 Nov 2009 13:51:46 -0800
Subject: [PATCH] Allow IPv6 DNS names in net contexts

---
 Shorewall/Perl/Shorewall/IPAddrs.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/IPAddrs.pm b/Shorewall/Perl/Shorewall/IPAddrs.pm
index 15d4744fa..2ca17dbdf 100644
--- a/Shorewall/Perl/Shorewall/IPAddrs.pm
+++ b/Shorewall/Perl/Shorewall/IPAddrs.pm
@@ -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;