Fix a couple of silly bugs

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5578 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-19 18:29:58 +00:00
parent 1fd340c6d7
commit 4715a87ebc
2 changed files with 5 additions and 4 deletions

View File

@ -45,17 +45,17 @@ sub setup_one_proxy_arp( $$$$$ ) {
$haveroute = '-' unless $haveroute;
if ( "\L$haveroute " eq 'no' || $haveroute eq '-' ) {
if ( "\L$haveroute" eq 'no' || $haveroute eq '-' ) {
$haveroute = 0;
} elsif ( "\L$haveroute" eq 'yes' ) {
$haveroute = 1;
} else {
fatal_error "Invalid value ($haveroute) for HAVROUTE in Proxy Arp Entry \"$line\"";
fatal_error "Invalid value ($haveroute) for HAVEROUTE in Proxy Arp Entry \"$line\"";
}
$persistent = '-' unless $persistent;
if ( "\L$persistent " eq 'no' || $persistent eq '-' ) {
if ( "\L$persistent" eq 'no' || $persistent eq '-' ) {
$persistent = 0;
} elsif ( "\L$persistent" eq 'yes' ) {
$persistent = 1;

View File

@ -320,7 +320,7 @@ stop_firewall() {
emit '';
for my $hosts ( @$criticalhosts ) {
my ( $interface, $host ) = ( split /,/, $hosts );
my ( $interface, $host ) = ( split /:/, $hosts );
my $source = match_source_net $host;
my $dest = match_dest_net $host;
@ -712,6 +712,7 @@ sub compile_firewall( $ ) {
generate_script_3;
finalize_object;
generate_aux_config;
}
}