From 90bd19feb98e8f1011388f331c75c844b4ca94aa Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 13 Jan 2013 07:39:27 -0800 Subject: [PATCH] Convert DNS names into ip addresses in validate_net(). Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/IPAddrs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/IPAddrs.pm b/Shorewall/Perl/Shorewall/IPAddrs.pm index ece7fc1f0..f48c88886 100644 --- a/Shorewall/Perl/Shorewall/IPAddrs.pm +++ b/Shorewall/Perl/Shorewall/IPAddrs.pm @@ -202,7 +202,7 @@ sub validate_4net( $$ ) { fatal_error "Invalid IP address ($net)" unless valid_4address $net; } else { fatal_error "Invalid Network address ($_[0])" if $_[0] =~ '/' || ! defined $net; - validate_4address $net, $_[1]; + $net = validate_4address $net, $_[1]; $vlsm = 32; } @@ -635,7 +635,7 @@ sub validate_6net( $$ ) { fatal_error "Invalid IPv6 address ($net)" unless valid_6address $net; } else { fatal_error "Invalid Network address ($_[0])" if $_[0] =~ '/'; - validate_6address $net, $allow_name; + net = validate_6address $net, $allow_name; $vlsm = 128; }