1
0

Fix more physical name issues

This commit is contained in:
Tom Eastep 2010-12-19 16:38:24 -08:00
parent 44f001388a
commit 262b4044f8
2 changed files with 4 additions and 4 deletions
Shorewall/Perl/Shorewall

View File

@ -125,15 +125,15 @@ sub setup_proxy_arp() {
$first_entry = 0;
}
fatal_error "Unknown interface ($external)" unless known_interface $external;
fatal_error "Unknown interface ($external)" unless known_interface $external, 1;
fatal_error "Wildcard interface ($external) not allowed" if $external =~ /\+$/;
$reset{$external} = 1 unless $set{$external};
my $extphy = physical_name $external;
my $extphy = get_physical $external;
my $physical = '-';
if ( $interface ne '-' ) {
fatal_error "Unknown interface ($interface)" unless known_interface $interface;
fatal_error "Unknown interface ($interface)" unless known_interface $interface, 1;
fatal_error "Wildcard interface ($interface) not allowed" if $interface =~ /\+$/;
$physical = physical_name $interface;
$set{$interface} = 1;

View File

@ -1334,7 +1334,7 @@ sub find_interfaces_by_option1( $ ) {
my $wild = 0;
for my $interface ( sort { $interfaces{$a}->{number} <=> $interfaces{$b}->{number} }
keys %interfaces ) {
( grep $interfaces{$_}{root}, keys %interfaces ) ) {
my $interfaceref = $interfaces{$interface};
next unless defined $interfaceref->{physical};