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

Fix dynamic zone problem

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6095 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-23 23:17:30 +00:00
parent 4eda3e7902
commit 29f51b52b4
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Shorewall-perl/Shorewall/Config.pm
View File

@ -780,9 +780,9 @@ sub get_configuration( $ ) {
determine_capabilities;
}
} elsif ( $export ) {
fatal_error "The -e flag requires a capabilities file" unless open_file 'capabilities';
open_file 'capabilities' or fatal_error "The -e flag requires a capabilities file";
} else {
fatal_error "Compiling under an ordinary user id requires a capabilities file" unless open_file 'capabilities';
open_file 'capabilities' or fatal_error "Compiling under an ordinary user id requires a capabilities file";
}
$globals{ORIGINAL_POLICY_MATCH} = $capabilities{POLICY_MATCH};
@ -817,7 +817,6 @@ sub get_configuration( $ ) {
check_trivalue ( 'ROUTE_FILTER', '' );
check_trivalue ( 'LOG_MARTIANS', '' );
default_yes_no 'ADD_IP_ALIASES' , 'Yes';
default_yes_no 'ADD_SNAT_ALIASES' , '';
default_yes_no 'DETECT_DNAT_IPADDRS' , '';
@ -915,7 +914,8 @@ sub get_configuration( $ ) {
default 'TC_ENABLED' , 'Internal';
if ( $val = "\L$config{TC_ENABLED}" ) {
$val = "\L$config{TC_ENABLED}";
if ( $val eq 'yes' ) {
$file = find_file 'tcstart';
fatal_error "Unable to find tcstart file" unless -f $file;
@ -924,7 +924,6 @@ sub get_configuration( $ ) {
fatal_error "Invalid value ($config{TC_ENABLED}) for TC_ENABLED" unless $val eq 'no';
$config{TC_ENABLED} = '';
}
}
default 'RESTOREFILE' , 'restore';
default 'DROP_DEFAULT' , 'Drop';

3
Shorewall-perl/Shorewall/Rules.pm
View File

@ -598,7 +598,6 @@ sub add_common_rules() {
for $chain ( @{dynamic_chains $interface} ) {
new_standard_chain $chain;
}
}
(new_chain 'nat' , $chain = dynamic_in($interface) )->{referenced} = 1;
@ -606,6 +605,8 @@ sub add_common_rules() {
add_rule $filter_table->{forward_chain $interface}, '-j ' . dynamic_fwd $interface;
add_rule $filter_table->{output_chain $interface}, '-j ' . dynamic_out $interface;
}
}
$list = find_interfaces_by_option 'upnp';