holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Fix hosts entries with wildcard interface

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5951 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-16 20:10:53 +00:00
parent 62463ad49e
commit a8f3e3faa9
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall-perl/Shorewall/Hosts.pm
View File

@ -72,7 +72,7 @@ sub validate_hosts_file()
my $interface; my $interface;
if ( $hosts =~ /^([\w.@%-]+):(.*)$/ ) { if ( $hosts =~ /^([\w.@%-]+\+?):(.*)$/ ) {
$interface = $1; $interface = $1;
$hosts = $2; $hosts = $2;
$zoneref->{options}{complex} = 1 if $hosts =~ /^\+/; $zoneref->{options}{complex} = 1 if $hosts =~ /^\+/;
@ -103,9 +103,7 @@ sub validate_hosts_file()
$optionsref = \%options; $optionsref = \%options;
} }
my @h = split ',', $hosts; add_group_to_zone( $zone, $type , $interface, [ split ',', $hosts ] , $optionsref);
add_group_to_zone( $zone, $type , $interface, \@h , $optionsref);
progress_message " Host \"$line\" validated"; progress_message " Host \"$line\" validated";
} }